/* REXX     .......   ....
                      ....
*/
address ISREDIT
"MACRO (opts)"
if rc = 20 then do                     /* ISREDIT not available      */
   address TSO
   parse source  .  .  exec_name .
   ex_nam = Left( exec_name,8 )        /* predictable size           */
   helpmsg = ex_nam "is an EDIT macro"
   say helpmsg
   end
parse var opts  parms "((" opts
upper opts
opts = Strip( opts,'T','5d'x )         /* yes we want no bananas     */
parse value ""  with  tv
parse var opts "TRACE" tv .
parse value tv "N" with tv .
rc = Trace( 'O' ) ; rc = Trace( tv )


exit                                   /*@                           */