IBM Mainframe Forum

//INSERT EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTOUT  DD SYSOUT=*
//SYSIN    DD *
  OPTION COPY
  JOINKEYS F1=INA,FIELDS=(81,1,A),SORTED,NOSEQCK
  JOINKEYS F2=INB,FIELDS=(81,1,A),SORTED,NOSEQCK
  JOIN UNPAIRED,F1,F2,ONLY
  REFORMAT FIELDS=(F1:1,80,?,F2:1,80)
                                                 
  INREC IFTHEN=(WHEN=(81,1,CH,EQ,C'1'),
                    BUILD=(1,80)),
               IFTHEN=(WHEN=NONE,
                    BUILD=(82,80))
                                                 
//INA      DD *
1
2
3
A
8
9
//INB      DD *
4
5
6
7
//JNF1CNTL DD *
 INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C'A'),
                PUSH=(81:ID=1))
//JNF2CNTL DD *
 INREC OVERLAY=(81:C'0')

1
2
3
4
5
6
7
A
8
9