midx  = queued()                    /* how many lines ?           */
   "ALLOC FI( SORTIN ) UNIT( VIO  ) RECFM( V B  ) "
             "SPACE( 1 1 ) TRACK NEW REU LRECL( 255 ) 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, 8,CH,A)"
   "EXECIO" queued() "DISKW SYSIN (FINIS"

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

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