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: martin_pac...@uk.ibm.com

Twitter / Facebook IDs: MartinPacker
Blog: 
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker



From:   "Tidy, David (D)" <dt...@dow.com>
To:     IBM-MAIN@LISTSERV.UA.EDU
Date:   18/11/2014 13:32
Subject:        Re: Sort to show differences in a 2-file match
Sent by:        IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>



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:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Bill Ashton
Sent: 18 November 2014 13:59
To: IBM-MAIN@LISTSERV.UA.EDU
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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to