Martin, that is something that might come in handy, but I don't need to know the number of the record at the moment, since I will have the key values. Thanks for the idea - I will have to see how that might be useful...
Billy On Tue, Nov 18, 2014 at 10:20 AM, Martin Packer <[email protected]> wrote: > I'm wondering if the OP actually wants some commentary like "at line 1234 > in File A there's no match from File B". I know Billy didn't say that > but... > > Cheers, Martin > > Martin Packer, > zChampion, Principal Systems Investigator, > Worldwide Banking Center of Excellence, IBM > > +44-7802-245-584 > > email: [email protected] > > Twitter / Facebook IDs: MartinPacker > Blog: > https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker > > > > From: "Tidy, David (D)" <[email protected]> > To: [email protected] > Date: 18/11/2014 13:32 > Subject: Re: Sort to show differences in a 2-file match > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > 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 > > > Unless stated otherwise above: > IBM United Kingdom Limited - Registered in England and Wales with number > 741598. > Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- 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
