/* REXX
 
           Written by ...
 
     Impact Analysis
.    ...       ...
 
     Modification History
     ccyymmdd ... ..........
                  ...
 
*/
address ISREDIT
"MACRO (opts)"
upper opts
parse var opts "TRACE" tv .
parse value tv "N" with tv .
rc = Trace(tv)
 
 
/*    Select one of the following methods of ending the macro:
"SAVE"
"CANCEL"
"END"
      This avoids the 'BDISPMAX exceeded' problem   */
exit                                   /*@                           */