I am using the below code to compare two files, my requirement is:
Compare data in two files and i need the File1 data which is not matching the below condition:
File 1 and File 2 data should match on the below column data. Now basically my question is my sort fulfills my requirement ? the reason why am asking is the input data in both the files is around 20 M and is tough to validate it.
01,11, ZD
13,07, CH
29,10,CH
377,09,CH
//S1 EXEC SORT
//SORTJNF1 DD DSN=File1.SORTED,DISP=SHR
//SORTJNF2 DD DSN=File2.REF.SORTED,DISP=SHR
//SORTOUT DD DSN=Output.UNIQ,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(800,800),RLSE),
// DCB=(LRECL=430,RECFM=FB)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,
FIELDS=(1,11,A,13,07,A,29,10,A,377,09,A),SORTED,NOSEQCK
JOINKEYS FILE=F2,
FIELDS=(1,11,A,13,07,A,29,10,A,377,09,A),SORTED,NOSEQCK
JOIN UNPAIRED,F1,ONLY
SORT FIELDS=COPY
/*
//SORTJNF1 DD DSN=File1.SORTED,DISP=SHR
//SORTJNF2 DD DSN=File2.REF.SORTED,DISP=SHR
//SORTOUT DD DSN=Output.UNIQ,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(800,800),RLSE),
// DCB=(LRECL=430,RECFM=FB)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,
FIELDS=(1,11,A,13,07,A,29,10,A,377,09,A),SORTED,NOSEQCK
JOINKEYS FILE=F2,
FIELDS=(1,11,A,13,07,A,29,10,A,377,09,A),SORTED,NOSEQCK
JOIN UNPAIRED,F1,ONLY
SORT FIELDS=COPY
/*
And at last, how i can achieve the same output using the ICETOOL statement:
I used the below:
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(01,11,CH) -
ON(13,07,CH) ON(29,10,CH) ON(377,09,ZD) -
ALLDUPS DISCARD(UNIQUE)
/*
SELECT FROM(IN) TO(OUT) ON(01,11,CH) -
ON(13,07,CH) ON(29,10,CH) ON(377,09,ZD) -
ALLDUPS DISCARD(UNIQUE)
/*
But it didn't worked, as expected so i read the documentation for ICETOOL and realized that its not going to work with multiple ON.
Can anyone suggest how i can get this done using ICETOOL as well.
The reason why am asking is, i need to validate the output created by the JOIN KEYS before i go ahead and do it a production job.
Thanks in advance For your time !!!
