Hi sir, i need datacard by using join keys. Two input files are given.1st input file have only date and 2nd input file have data with data. Keep the match record from 2nd input in one output file and unmatched record from second input file to another output file. How will you perform it?
Hi sir, i need datacard by using join keys. Two input files are given.1st input file have only date and 2nd input file have data with data. Keep the match record from 2nd input in one output file and unmatched record from second input file to another output file. How will you perform it?
Try this:
//SORTJOB JOB (ACCT),SORT,CLASS=A,MSGCLASS=X,REGION=0M
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN1 DD DSN=INPUT.FILE1,DISP=SHR
//SORTIN2 DD DSN=INPUT.FILE2,DISP=SHR
//SORTOUT1 DD DSN=OUTPUT.MATCHED,DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(5,5)),
// DCB=(RECFM=FB,LRECL=80)
//SORTOUT2 DD DSN=OUTPUT.UNMATCHED,DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(5,5)),
// DCB=(RECFM=FB,LRECL=80)
//SYSIN DD *
SORT FIELDS=(1,8,CH,A)
JOINKEYS FILE=F1,FIELDS=(1,8,CH,A)
JOINKEYS FILE=F2,FIELDS=(1,8,CH,A)
JOIN UNPAIRED,F1
REFORMAT FIELDS=(F1:1,8,F2:9,80)
OUTFIL FNAMES=SORTOUT1,INCLUDE=(81,1,CH,EQ,C' ')
OUTFIL FNAMES=SORTOUT2,SAVE
/*