MVSFORUMS.com

rsivananda · Beginner Joined: 11 Aug 2004 Posts: 30 Topics: 10

Hi
We have the following req:

1.we have a inout record file file1
2. we have a special char file file2 (This file has special char such as * ) & ^ etc

we need to read the input record from file1 and check if byte 40-150 has any bad char defined in file2

My soln: i am reading 40-150 record into one array and comparing each element of erray with all chars in special file.
But this req positioning cursor back to first rec in file2 which i amunable to do so

I know this code Shocked

is going to add a lot of overhead.Plz let me know if there is any better way of doing this.

Phantom · Posted: Thu Sep 29, 2005 6:55 am Post subject:

rsivananda,

You can achieve this using sort. But I need the following info before I can go with the code.

1. What should be done when there is a bad/special character in pos 40 - 150 ? Should the record be rejected ?
2. What is the LRECL and RECFM of your input files (1 & 2).
3. If possible give us a sample input and sample output.

Thanks,
Phantom

kolusu · Posted: Thu Sep 29, 2005 7:10 am Post subject:

rsivananda,

How are many records do you have in your special char file and what is the LRECL and RECFM of the file?

Phantom,

I am not sure as to how you are thinking of solving thru sort. Remember that you need to validate 110 bytes each individually.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

rsivananda · Beginner Joined: 11 Aug 2004 Posts: 30 Topics: 10

Hi
When ever in 40-150 has any special char that pos should be replaced by spaces,
and copied to output file.
The input records would be around 5000 but may increase depending on transactions.

Input file1:
RECFM=FB
LRECL=308

Sample partial input(27 chars)

202691093Bank Of XXX..
202691093Bank Of XXX..
202691093Bank Of XXX..
202691093Bank Of XXX
202691093Bank Of XXX

This is partial input file whihc has first 3 records gaving bad char at end which needs to be replaced by spaces and all clean fice records should be in output.

The last two dots when i saw in hex form are X'0D' and X'25'.

Phantom · Posted: Thu Sep 29, 2005 7:33 am Post subject:

Kolusu,

kolusu · Posted: Thu Sep 29, 2005 7:47 am Post subject:

Phantom,

Using ALTSEQ with Sort is a good option. But that also depends on the number of records in FILE2.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

rsivananda · Beginner Joined: 11 Aug 2004 Posts: 30 Topics: 10

Hello

We assumed all possible special chars which are 26.
We use SYNCSORT and we were asked to use a easytrieve.
Let us know if sysnsort solves the purpose.

Phantom · Posted: Thu Sep 29, 2005 7:54 am Post subject:

rsivananda,

Phantom · Posted: Thu Sep 29, 2005 8:01 am Post subject:

Kolusu,

Can you give him an Eazytrieve solution. I am not good in easytrieve.

Thanks,
Phantom

rsivananda · Beginner Joined: 11 Aug 2004 Posts: 30 Topics: 10

HI
We were asked to write code in easytreieve
Beause of the overhead it has,we are planning to use sysnsort.

any solution is ok

vkphani · Intermediate Joined: 05 Sep 2003 Posts: 483 Topics: 48

Sorry sorry.

It should be "equql to".

$$DD01 DROP IF=(field-position, field-length, EQ'*')

After dropping all such records, we can pad these positions with spaces right.

Phantom · Posted: Thu Sep 29, 2005 8:35 am Post subject:

rsivananda,

This should solve your requirement.
[code:1:31f0f7c655]
//STEP0100 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//FILE1 DD *
202691093BANK OF XXX*-XXX!XXX%XX

rsivananda · Beginner Joined: 11 Aug 2004 Posts: 30 Topics: 10

Syncsort version using in our shop.

SYNCSORT FOR Z/OS 1.1BN TPF2B U.S. PATENTS: 4210961, 5117495 (C) 2002 SYNCSORT INC. DATE=2005/269 TIME=06.22.52

Phantom · Posted: Thu Sep 29, 2005 8:40 am Post subject:

vkphani,

rsivananda · Beginner Joined: 11 Aug 2004 Posts: 30 Topics: 10

Apologies to Phantom for not responding to that question on file2
I thought it's file1 alone.
anyway i am checking with the code u have sent and will get back to u