Thanks so much, Sri. This works fine to accomplish my first goal...In my correction afterward, I realized I will always have more records in F1 (INA) that will not be in F2 (INB). How can I drop the test for "Recs in A, not in B"), and only report those records in B that are not in A, and those in A & B that mismatch?
Billy On Tue, Nov 18, 2014 at 11:45 AM, Sri h Kolusu <[email protected]> wrote: > Bill, > > It is quite simple to get a mismatch file using JOINKEYS. There are a > couple of DFSORT smart tricks which shows the usage of Joinkeys > > Join fields from two files on a key > Join fields from two files record-by-record > Cartesian join > Create files with matching and non-matching records > > http://www-01.ibm.com/support/docview.wss?rs=114&uid=isg3T7000094 > > In your case you wanted a little more about validating the data even on a > match. So use the following DFSORT JCL which will give you the desired > results. I added a 23 byte text to denote how the mismatch occurred. > > RECORD FOUND ONLY IN F1 > RECORD FOUND ONLY IN F2 > KEY MATCH DATA MISMATCH > > You will find this text at the end of each record. ie. at position 2525. > > > //STEP0100 EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //INA DD DISP=SHR,DSN=Your Input 2524 File A > //INB DD DISP=SHR,DSN=Your Input 2524 File B > //SORTOUT DD SYSOUT=* > //SYSIN DD * > JOINKEYS F1=INA,FIELDS=(1,24,A) > JOINKEYS F2=INB,FIELDS=(1,24,A) > JOIN UNPAIRED > REFORMAT FIELDS=(F1:1,2524,F2:1,2524,?) > OPTION COPY > OMIT COND=(5049,001,CH,EQ,C'B',AND, > 0025,256,CH,EQ,2549,256,CH,AND, > 0281,256,CH,EQ,2805,256,CH,AND, > 0537,256,CH,EQ,3061,256,CH,AND, > 0793,256,CH,EQ,3317,256,CH,AND, > 1049,256,CH,EQ,3573,256,CH,AND, > 1305,256,CH,EQ,3829,256,CH,AND, > 1561,256,CH,EQ,4085,256,CH,AND, > 1817,256,CH,EQ,4341,256,CH,AND, > 2073,256,CH,EQ,4597,256,CH,AND, > 2329,196,CH,EQ,4853,196,CH) > > INREC IFOUTLEN=2547, > IFTHEN=(WHEN=(5049,1,CH,EQ,C'1'), > BUILD=(0001,2524,C'RECORD FOUND ONLY IN F1')), > IFTHEN=(WHEN=(5049,1,CH,EQ,C'2'), > BUILD=(2525,2524,C'RECORD FOUND ONLY IN F2')), > IFTHEN=(WHEN=NONE, > BUILD=(1,2524,C'KEY MATCH DATA MISMATCH')) > > //* > //JNF1CNTL DD * > OPTION DYNALLOC=(,8) > //* > //JNF2CNTL DD * > OPTION DYNALLOC=(,8) > //* > > Here is a detailed explanation of Joinkeys. > > http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/4.0? > > Further if you have any questions please let me know > > Thanks, > Sri Hari Kolusu > DFSORT Development > IBM Corporation > Email: [email protected] > Phone: 408-927-2187 Tie Line: 457-2187 > > > > From: Bill Ashton <[email protected]> > To: [email protected] > Date: 11/18/2014 04:58 AM > Subject: Sort to show differences in a 2-file match > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > 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 > -- 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
