/* REXX       ........    ....
                          ...

*/ arg argline                         /* pro-forma quick-start      */
address TSO
arg parms "((" opts
opts = Strip( opts,'T','5d'x )         /* clip trailing paren        */
parse var opts "TRACE"  tv  .
parse value tv "N"  with  tv .
rc = Trace( "O" ); rc = Trace( tv )


exit                                   /*@                           */