Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //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,4)),
- // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
- //SYSIN DD *
- SORT FIELDS=COPY
- OUTFIL FILES=01,INCLUDE=(20,20,CH,GE,C'A',AND,20,20,CH,LE,C'I')
- OUTFIL FILES=01,INCLUDE=(20,20,CH,GE,C'J',AND,20,20,CH,LE,C'R')
- OUTFIL FILES=01,INCLUDE=(20,20,CH,GE,C'S',AND,20,20,CH,LE,C'Z')
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement