Hi, I have used ICETOOL with DISCARD to do that kind of thing - I think this would give what you want in SORTOU1: //S160SRT EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //SYSOUT DD SYSOUT=* //SORTIN1 DD DSN=dataseta, // DISP=SHR // DD DSN=datasetb, // DISP=OLD //TEMPDD DD DSN=&&TEMPZ, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //SORTOU1 DD DSN=&&DIFFS, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //TOOLIN DD * SELECT FROM(SORTIN1) TO(TEMPDD) DISCARD(SORTOU1) ON(1,2524,CH) ALLDUPS //*
Best regards, David Tidy IS Technical Management/SAP-Mf Dow Benelux B.V. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Bill Ashton Sent: 18 November 2014 13:59 To: [email protected] Subject: Sort to show differences in a 2-file match Hi Sri et al., I have 2 files that I would like to compare, file "A" has 50000 records, and file "B" only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file "C" of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
