/* 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