/* This newly-added section guards against those installations that
      default new allocations to classes that cause their overnight
      purge -- as if a deliberate allocation wasn't for anything worth
      keeping.   */
   parse value "" with  mclas sclas @mclas @sclas
      "NEWSTACK"
      "PERMCLAS"                       /* get parameters             */
      do queued()
         pull tag value .              /* MCLAS  XYZ maybe           */
         @z = Value(tag,value)         /* MCLAS = XYZ                */
      end                              /* queued                     */
      "DELSTACK"
   if mclas <> "" then @mclas = "MGMTCLAS("mclas")"
   if sclas <> "" then @sclas = "STORCLAS("sclas")"

   alloc.0   = "NEW CATALOG UNIT(SYSDA) SPACE(5 5) TRACKS",
               @mclas @sclas,          /* specify mgmt- and storclas */
               "RECFM(V B) LRECL(32760) BLKSIZE(0)"
   alloc.1   = "SHR"                   /* if it already exists...    */
   tempstat = Sysdsn(outdsn) = "OK" |, /* 1=exists, 0=missing        */
              Sysdsn(outdsn) = "MEMBER NOT FOUND"
   "ALLOC FI(@TMP) DA("outdsn") REU" alloc.tempstat