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