/* REXX    DFLTTLIB   returns the default ISPTLIB dataset for the
                      desired stage.

*/ arg argline                         /* pro-forma quick-start      */
address TSO
arg parms "((" opts
opts = Strip(opts,"T",")")
parse var opts "TRACE"  tv  .
parse value tv "N"  with  tv .
rc = Trace(tv)

tlib. = "'FCLARKE.OPEN.ISPTLIB'"

parse var parms  instg  .              /* specified stage            */
parse value instg "TS"  with,
            instg   .

return(tlib.instg)                     /*@ DFLTTLIB                  */