Join Two records
Posted: Wed Mar 22, 2017 11:47 pm
Hi I want to join two files and then want to keep the unpaired records into third files using sort Join JCL.
File1 has record :
File2 has record:
I ran below JCL :
But I received below data in third file :
CALLLL
0000000000001111111111111222222222222
the output I want is :
Can someone please let me know how to do it?
Thanks
File1 has record :
0000000000001111111111111222222222222
File2 has record:
CALLLL
I ran below JCL :
//STEP04 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DSN=T5355.ABHAY.RAVI.INPUTF1,DISP=SHR
//SORTJNF2 DD DSN=T5355.ABHAY.RAVI.INPUTF2,DISP=SHR
//SORTOUT DD DSN=T5355.ABHAY.RAVI.OUTPUT,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(100,200),RLSE),
// DCB=(LRECL=240,RECFM=FB,BLKSIZE=0)
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(1,5,A)
JOINKEYS FILES=F2,FIELDS=(1,5,A)
JOIN UNPAIRED,F1,F2,ONLY
REFORMAT FIELDS=(F1:1,38,F2:1,6)
SORT FIELDS=COPY
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DSN=T5355.ABHAY.RAVI.INPUTF1,DISP=SHR
//SORTJNF2 DD DSN=T5355.ABHAY.RAVI.INPUTF2,DISP=SHR
//SORTOUT DD DSN=T5355.ABHAY.RAVI.OUTPUT,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(100,200),RLSE),
// DCB=(LRECL=240,RECFM=FB,BLKSIZE=0)
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(1,5,A)
JOINKEYS FILES=F2,FIELDS=(1,5,A)
JOIN UNPAIRED,F1,F2,ONLY
REFORMAT FIELDS=(F1:1,38,F2:1,6)
SORT FIELDS=COPY
But I received below data in third file :
CALLLL
0000000000001111111111111222222222222
the output I want is :
0000000000001111111111111222222222222CALLLL
Can someone please let me know how to do it?
Thanks