//VIL0010D JOB UNIVER,CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
//STEP01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=VIL0014.VISDARB2,DISP=SHR
//SORTOF01 DD DSN=VIL0014.ATOI,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SORTOF02 DD DSN=VIL0014.JTOR,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SORTOF03 DD DSN=VIL0014.STOZ,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSIN DD *
 SORT FIELDS=COPY
 OUTFIL FILES=01,INCLUDE=(21,1,CH,GE,C'A',AND,21,1,CH,LE,C'I')
 OUTFIL FILES=02,INCLUDE=(21,1,CH,GE,C'J',AND,21,1,CH,LE,C'R')
 OUTFIL FILES=03,SAVE