I have 2 big files with variable record length (each about 300000 records).
I know that in both files are some identical records (about 100).
How can I retrieve those identical records?
I tried
//STEP3 EXEC PGM=SORT
//SORTJNF1 DD DISP=SHR,DSN=File1
//SORTJNF2 DD DISP=SHR,DSN=File2
//*ORTOUT DD SYSOUT=*
//SORTOUT DD DSN=File3,
// DISP=(NEW,CATLG,DELETE),
// LIKE=File1
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD DUMMY
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(1,390,A)
JOINKEYS FILE=F2,FIELDS=(1,390,A)
REFORMAT FIELDS=?????
SORT FIELDS=COPY
//SORTJNF1 DD DISP=SHR,DSN=File1
//SORTJNF2 DD DISP=SHR,DSN=File2
//*ORTOUT DD SYSOUT=*
//SORTOUT DD DSN=File3,
// DISP=(NEW,CATLG,DELETE),
// LIKE=File1
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD DUMMY
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(1,390,A)
JOINKEYS FILE=F2,FIELDS=(1,390,A)
REFORMAT FIELDS=?????
SORT FIELDS=COPY
But I don't know how to tell SORT with the REFORMAT statement that I want to have the complete record (anyway of from F1 or F2, because the records are the same)
Or is there another way to achieve this?
thanks a lot in advance,
frank
