*DECK     OVL21 - FRONT END OVERLAY FOR CCG.
* 
*         OVERLAY (2,1) 
* 
          IDENT  FTN521 
          LCC    OVERLAY(FTN,2,1,O=FWA21) 
          COMMENT  FTN5 FRONT END OVERLAY FOR CCG.
          END    FTN21
          IDENT  RPV21
 RPV21    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)
  
  
**        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
  
          ENTRY  RPV21
 RPV21    RPVFWA RPV21
 .T       IFEQ   TEST,ON,1
          RPVFWA FSNAP
          RPVFWA FEC
          RPVFWA FERRS
          RPVFWA PEM
          RPVFWA ALLOC
          RPVFWA FLINK
          RPVFWA LEX
          RPVFWA HEADER 
          RPVFWA KEY
          RPVFWA CDDIR
          RPVFWA DATA 
          RPVFWA DECL 
          RPVFWA TYPE 
          RPVFWA FMT
          RPVFWA IO 
          RPVFWA PAR
          RPVFWA CONRED 
          RPVFWA STMTF
          RPVFWA LABEL
          RPVFWA FSKEL
          RPVFWA INIT21,=XB=INI21 
          RPVFWA LWA21
          DATA   0           ** END OF RNA TABLE ** 
          DATA   0
          END 
* 
**IF DEF,TEST,2  (NEXT LINE)
*IF DEF,TEST,2
          IDENT  FSNAP
          END 
          IDENT  FEC
          END 
          IDENT  FERRS
          END 
          IDENT  PEM
          END 
          IDENT  ALLOC
          END 
          IDENT  FLINK
          END 
          IDENT  LEX
          END 
          IDENT  HEADER 
          END 
          IDENT  KEY
          END 
          IDENT  CDDIR
          END 
          IDENT  DATA 
          END 
          IDENT  DECL 
          END 
          IDENT  TYPE 
          END 
          IDENT  FMT
          END 
          IDENT  IO 
          END 
          IDENT  PAR
          END 
          IDENT  CONRED 
          END 
          IDENT  STMTF
          END 
          IDENT  LABEL
          END 
          IDENT  FSKEL
          END 
          IDENT  INIT21 
          END 
