Re: ICETOOL - compare 2 input files
Posted: Thu Oct 18, 2012 10:30 pm
bittybit,
Use the following DFSORT JCL which will give you the desired results. We expanded the 8 byte PD field to 16 bytes using HEX function and then we use the first 13 bytes for matching.
Use the following DFSORT JCL which will give you the desired results. We expanded the 8 byte PD field to 16 bytes using HEX function and then we use the first 13 bytes for matching.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD DSN=Your Input VB file1,DISP=SHR
//INB DD DSN=Your Input VB file2,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(5,13,A)
JOINKEYS F2=INB,FIELDS=(5,13,A)
REFORMAT FIELDS=(F1:1,4,21)
//*
//JNF1CNTL DD *
INREC BUILD=(1,4,55,8,HEX,5)
//*
//JNF2CNTL DD *
INREC BUILD=(1,4,55,8,HEX,5)
//*
//SYSOUT DD SYSOUT=*
//INA DD DSN=Your Input VB file1,DISP=SHR
//INB DD DSN=Your Input VB file2,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(5,13,A)
JOINKEYS F2=INB,FIELDS=(5,13,A)
REFORMAT FIELDS=(F1:1,4,21)
//*
//JNF1CNTL DD *
INREC BUILD=(1,4,55,8,HEX,5)
//*
//JNF2CNTL DD *
INREC BUILD=(1,4,55,8,HEX,5)
//*