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