         MACRO                                                                  
&NAME    RV1#TRCG &PRM,&VLVAR                                                   
         COPY  RV1#CNST                                                         
         AIF   ('&TRCMODE' EQ 'NONE').TRCNONE                                   
* --- RV1TRC ---                                                                
         LCLC  &REVTRC                                                          
&REVTRC  SETC  'RVT'.'&SYSNDX'                                                  
         CLC   REVTRC,=CL3'ON '                                                 
         BNE   &REVTRC.Q                                                        
         CALL  RV1TRC,&PRM.,&VLVAR                                              
&REVTRC.Q EQU *                                                                 
* --- RV1TRC ---                                                                
.TRCNONE MEXIT                                                                  
         MEND                                                                   
