//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//IN1 DD *
RECORD1
RECORD2
RECORD3
//IN2 DD *
RECORD4
RECORD5
RECORD6
//SORTOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS F1=IN1,FIELDS=(81,8,A),SORTED,NOSEQCK
JOINKEYS F2=IN2,FIELDS=(81,8,A),SORTED,NOSEQCK
JOIN UNPAIRED,F1,F2,ONLY
OPTION COPY
OUTREC BUILD=(1,80)
//JNF1CNTL DD *
INREC OVERLAY=(81:SEQNUM,8,ZD,START=1,INCR=2)
//JNF2CNTL DD *
INREC OVERLAY=(81:SEQNUM,8,ZD,START=2,INCR=2)
/*
//SYSOUT DD SYSOUT=*
//IN1 DD *
RECORD1
RECORD2
RECORD3
//IN2 DD *
RECORD4
RECORD5
RECORD6
//SORTOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS F1=IN1,FIELDS=(81,8,A),SORTED,NOSEQCK
JOINKEYS F2=IN2,FIELDS=(81,8,A),SORTED,NOSEQCK
JOIN UNPAIRED,F1,F2,ONLY
OPTION COPY
OUTREC BUILD=(1,80)
//JNF1CNTL DD *
INREC OVERLAY=(81:SEQNUM,8,ZD,START=1,INCR=2)
//JNF2CNTL DD *
INREC OVERLAY=(81:SEQNUM,8,ZD,START=2,INCR=2)
/*