//SORTIN DD *
Y
/*
//IN2 DD SYSOUT=(*,INTRDR)
//IN3 DD SYSOUT=(*,INTRDR)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL INCLUDE=(1,1,CH,EQ,C'Y'),
FNAMES=IN2,
BUILD=(C'//TEST# JOB ''',C' ''',C',''TEST'',',/,
C'// CLASS=A,MSGCLASS=X, ',/,
C'// MSGLEVEL=(1,1),NOTIFY=&SYSUID, ',/,
C'// REGION=0M ',/,
C'//*',77X,/,
C'//STEP001 EXEC PGM=SORT ',/,
C'//DFSMSG DD SYSOUT=* ',/,
C'//SORTIN DD DISP=SHR,DSN=<IN2> ',/,
C'//SORTOUT DD SYSOUT=* ',/,
C'//SYSIN DD * ',/,
C' SORT FIELDS=COPY ',/,
C'/* ',/,
C'//',78X)
OUTFIL INCLUDE=(1,1,CH,EQ,C'N'),
FNAMES=IN3,
BUILD=(C'//TEST# JOB ''',C' ''',C',''TEST'',',/,
C'// CLASS=A,MSGCLASS=X, ',/,
C'// MSGLEVEL=(1,1),NOTIFY=&SYSUID, ',/,
C'// REGION=0M ',/,
C'//*',77X,/,
C'//STEP001 EXEC PGM=SORT ',/,
C'//DFSMSG DD SYSOUT=* ',/,
C'//SORTIN DD DISP=SHR,DSN=<IN3> ',/,
C'//SORTOUT DD SYSOUT=* ',/,
C'//SYSIN DD * ',/,
C' SORT FIELDS=COPY ',/,
C'/* ',/,
C'//',78X)
/*