         MACRO                                                                  
&NAME    RV1#TRCR &COMM=                                                        
         COPY  RV1#CNST                                                         
         AIF   ('&TRCMODE' EQ 'NONE').TRCNONE                                   
* --- RV1TRC (CSECT information start) ---                                      
         LCLC  &REVTRC                                                          
&REVTRC  SETC  'RVT'.'&SYSNDX'                                                  
         CLC   REVTRC,=CL3'ON '                                                 
         BNE   &REVTRC.Q                                                        
         B     &REVTRC.S                                                        
&REVTRC.C DC   CL8'&SYSECT'              csect name                             
&REVTRC.M DC   CL8'REVT002'              message id                             
&REVTRC.S EQU  *                                                                
         CALL  RV1TRC,((&COMM.),&REVTRC.M,&REVTRC.C),VL                         
&REVTRC.Q EQU *                                                                 
* --- RV1TRC (CSECT information end) ---                                        
.TRCNONE MEXIT                                                                  
         MEND                                                                   
