Very cool! Charles
-----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Sri h Kolusu Sent: Thursday, May 24, 2012 8:35 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Comparing datasets Zaromil, You can use DFSORT's JOINKEYS to compare the datasets. Here is a sample job which will compare the 2 datasets treating the first 2 bytes as a key to compare. You can have a maximum of 4080 bytes as a key. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD * C1 B1 A1 E1 //INB DD * A1 B1 C1 D1 //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY JOINKEYS F1=INA,FIELDS=(1,2,A) JOINKEYS F2=INB,FIELDS=(1,2,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,10,F2:1,10,?) OUTFIL IFOUTLEN=25, IFTHEN=(WHEN=(21,1,CH,EQ,C'B'),BUILD=(01,10,C'MATCHED RECORD')), IFTHEN=(WHEN=(21,1,CH,EQ,C'1'),BUILD=(01,10,C'ONLY FILE1 REC')), IFTHEN=(WHEN=(21,1,CH,EQ,C'2'),BUILD=(11,10,C'ONLY FILE2 REC')) //* The output from this job is A1 MATCHED RECORD B1 MATCHED RECORD C1 MATCHED RECORD D1 ONLY FILE2 REC E1 ONLY FILE1 REC Check this link for a detailed explanation of JOINKEYS http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/4.0? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
