*DECK     OVL23 - REAR END OVERLAY FOR CCG. 
* 
*         OVERLAY (2,3) 
* 
          IDENT  FTN523 
          LCC    OVERLAY(FTN,2,3,O=FWA23) 
          COMMENT FTN5 REAR END OVERLAY FOR CCG.
          END    FTN23
          IDENT  RPV23
 RPV23    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)
  
  
**        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
  
          ENTRY  RPV23
 RPV23    RPVFWA RPV23
 .T       IFEQ   TEST,ON,1
          RPVFWA RSNAP
          RPVFWA REC
          RPVFWA RLINK
          RPVFWA RERRS
          RPVFWA PEM
          RPVFWA ALLOC
          RPVFWA FAS
          RPVFWA MAP
          RPVFWA LIST 
          RPVFWA INIT23,=XB=INI23 
          RPVFWA LWA23
          DATA   0           ** END OF RNA TABLE ** 
          DATA   0
          END 
* 
**IF DEF,TEST,2  (NEXT LINE)
*IF DEF,TEST,2
          IDENT  RSNAP
          END 
          IDENT  REC
          END 
          IDENT  RLINK
          END 
          IDENT  RERRS
          END 
          IDENT  PEM
          END 
          IDENT  ALLOC
          END 
          IDENT  FAS
          END 
          IDENT  MAP
          END 
          IDENT  LIST 
          END 
          IDENT  INIT23 
          END 
