// JOB VSB021,,6000,6000
// OPR '*****VSB021**-S O R T   RPGIRAMNOINDEX   F I L E'
// DVC 20  // LFD PRNTR
// DVC 50  // VOL SDIVSB  // LBL RPGIRAMNOINDEX  // LFD SORTIN1
// DVC 50  // VOL SDIVSB  // LBL VSBWORK1  // LFD DM01,,INIT
// DVC 50  // VOL SDIVSB  // LBL VSBWORK2  // LFD DM02,,INIT
// DVC 50  // VOL SDIVSB  // LBL RPGIRAMSORT  // LFD SORTOUT,,INIT
// EXEC SORT
/$
 SORT FIELDS=(77,4,,D),WORK=2,SIZE=200,FILE=1
 RECORD TYPE=F,RCSZ=96
 INPFIL BLKSIZE=512,VOLUME=1
 OUTFIL BLKSIZE=512,FILTYPE=IRAM
 END
/*
/&
