address TSO                            /*                            */
"ALLOC FI(SORTIN)  DA(TEMPSRT) RECFM(F B) SPACE(5 2) TRACK NEW REU",
   " LRECL(16) BLKSIZE("srtblk")"      /*                            */
if rc > 4 then do                      /*                            */
   "ALLOC FI(SORTIN)  DA(TEMPSRT) SHR REU"
   end                                 /*                            */
"ALLOC FI(SORTOUT) DA(TEMPSRT) SHR REU"/*                            */
"ALLOC FI(SYSIN) NEW TRACKS SPACE(1) UNIT(SYSDA)",
       " LRECL(80) BLKSIZE(800) RECFM(F B) REU"
queue " SORT  FIELDS=(1,8,CH,A)"
"EXECIO" queued() "DISKW SYSIN (FINIS"
"ALLOC FI(SYSOUT)  DUMMY  REU "        /*                            */
"EXECIO" mlist.0 "DISKW SORTIN (STEM MLIST. FINIS"
"CALL 'sys1.lnklib(SORT)'"
"EXECIO" mlist.0 "DISKR SORTOUT (STEM MLIST. FINIS"
"FREE  FI(SORTIN SORTOUT SYSOUT)"      /*                            */