MVSFORUMS.com

[koolspark]

hi,

I've two flat files. LRECL for file1 is 100 & LRECL for file2 is 10.
I need to compare these two files on the first 10 bytes.
if they are matching, write the 10 bytes to the output file with an extra 1byte flag 'M' (denoting matching) as suffix to the output.
if the record exist in file1 and doesn't exist in file2 then, write the 10bytes to output file with 1byte extra flag 'D' (deleted from file1) as suffix to the output.
if the record doesn't exist in file1 and exists in file2 then, write the 10bytes to output file with 1byte extra flag 'I' (Insert in file2) as suffix to the output.

eg:
file1(LRECL=100)
1111111111 *************
2222222222 *************
4444444444 *************
5555555555 *************

file2(LRECL=10)

1111111111
3333333333
4444444444
6666666666

outputfile(LRECL=11)
1111111111M
2222222222D
3333333333I
4444444444M
5555555555D
6666666666I

Is there any way to accomplish this without writing a cobol pgm?

Thanks,

[kolusu]

koolspark.

Use the following DFSORT JCL which will give you the desired results.

[koolspark]

Kolusu,

I'm not getting the flag(M, D,I) in the 11th position. The outputfile is created with 10bytes lenth only. Also, Is it possible to sort the output file on the first 10bytes?

Thanks,

[koolspark]

I'm sorry. I gave wrong LRECL for the SORTOUT file. Your sort works fine.
If I want to sort the sortout file based on the first 10 bytes, where/how should i specify the SORT FIELDS ?

Thank you very much for your support.

[kolusu]