split 2 input files into 3 output files based on fields

prathap_ts · New User Joined: 07 May 2005 Posts: 9 Location: Duluth, US

i want to convert 2 input files into 3 output files based on below conditions

i/p record first 2 byte - pic 9(2)
last 5 bytes - pic s9(9) comp-3

input file 1

15abc12345
15ggd11111
15hsr22222
15asd98765

input file 2

16xyz12345
16trh44444
16utt55555
16gdf98765

.....

output 1
15abc12345
15ggd11111
15hsr22222
15asd98765
16trh44444
16utt55555

output2
16xyz12345
16gdf98765

output 3
1612345 name1 field1
1698765 name2 field2

names1 & 2 are x(25)
fields1 & 2 are s9(9) comp-3

i want to do this in a single step

bipinpeter · Posted: Mon May 25, 2009 4:52 pm

Can you explain the your conditions clearly.I am not clear with that....

ksk · Posted: Mon May 25, 2009 4:54 pm

prathap_ts · New User Joined: 07 May 2005 Posts: 9 Location: Duluth, US

conditions

output 1 should contain unique records from input 1 and 2 based on last 5 digits

15abc12345
15ggd11111
15hsr22222
15asd98765
16trh44444
16utt55555

output 2 should contain duplicate records from input 1 and 2 based on last 5 digits (only 2nd occurance)

16xyz12345
16gdf98765

output 3 is made of first two bytes , last five bytes of duplicates records (say output 2) plus few more new fields like name1 and field1

1612345 name1 field1
1698765 name2 field2

leave the new fields... below output is ok in file 3

1612345
1698765

thanks in advance.

Skolusu · Posted: Tue May 26, 2009 7:56 pm

Pratap_ts,

The following DFSORT JCL will give you the desired results. I assumed that your both files are of the same lrecl and recfm.