         MACRO                                                                  
&NAME    RV1#TRCC &BASE=,&COMM=                                                 
* --- RV1TRC (CSECT information start) ---                                      
         COPY  RV1#CNST                                                         
         AIF   ('&TRCMODE' EQ 'NONE').TRCNONE                                   
         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'REVT001'              message id                             
&REVTRC.W DS   F                         work                                   
.*EVTRC.D DS   F                         common data area                       
&REVTRC.S EQU  *                                                                
         ST    &BASE,&REVTRC.W           Save Base Reg.                         
.*       ST    &COMM,&REVTRC.D           Save common data area.                 
         CALL  RV1TRC,((&COMM.),&REVTRC.M,&REVTRC.C,&REVTRC.W),VL               
&REVTRC.Q EQU *                                                                 
* --- RV1TRC (CSECT information end) ---                                        
.TRCNONE MEXIT                                                                  
         MEND                                                                   
