Author: magesh23586
Subject: Reply to: Icetool or Joinkeys example to compare two files
Posted: Sat Aug 20, 2016 3:14 am (GMT 5.5)
here is the code for you.
_________________
Regards,
Magesh
Subject: Reply to: Icetool or Joinkeys example to compare two files
Posted: Sat Aug 20, 2016 3:14 am (GMT 5.5)
here is the code for you.
| Code: |
//SORT1 EXEC PGM=SORT //SORTIN DD DSN=YOUR FILE 2 HAVING ONE RECORD //SORTOUT DD DSN=&&TEMP,DISP=(,CATLG,DELETE), // SPACE=(CYL,(1,1),RLSE) //SYSOUT DD SYSOUT=* //SYSIN DD * OPTION COPY OUTFIL BUILD=(C'REC1,C',X'7D',1,8,X'7D',/, C'REC2,C',X'7D',9,8,X'7D',80:X) /* //SORT2 EXEC PGM=SORT //SYMNAMES DD DSN=&&TEMP,DISP=SHR //SORTIN DD DSN=YOUR FILE 1 //SORTOUT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INCLUDE COND=(1,8,CH,EQ,REC1,OR,1,8,CH,EQ,REC2) |
_________________
Regards,
Magesh