midx  = queued()                    /* how many lines ?           */
   "ALLOC FI(SORTIN) UNIT(VIO) RECFM(F B) SPACE(5 2) TRACK NEW REU",
       "LRECL(16) BLKSIZE(0)"
   "EXECIO" midx "DISKW SORTIN (FINIS"
   "DELSTACK"                          /* restore prior queues       */

   say "Starting sort," midx "items."

   rc = Outtrap("sort.")
   "ALLOC FI(SORTOUT) REFDD(SORTIN) NEW REU"
   "ALLOC FI(SYSOUT) DUMMY REU "

   "ALLOC FI(SYSIN) NEW TRACKS SPACE(1) UNIT(VIO)",
           "LRECL(80) BLKSIZE(800) RECFM(F B) REU"
   queue " SORT FIELDS=(1,12,CH,A)"
   "EXECIO" queued() "DISKW SYSIN (FINIS"

   sortprm = "MSG=CC"                  /* suppress messages          */
   address LINKMVS "SORT sortprm"
   "EXECIO *      DISKR SORTOUT (STEM MLIST. FINIS"

   "FREE FI(SORTIN SORTOUT SYSOUT)"
   "ALLOC FI(SYSIN) DA(*) SHR REU"
   "DELETE TEMPSRT SCR PURGE"
   rc = Outtrap("off")