*DECK FTP 
          IDENT  FTP
*CALL COPYRITE
          LCC    OVERLAY(FTP,00,00,OV=1)
          LDSET  EPT=FTP
          LDSET  EPT=CRECFC 
          LDSET  EPT=SSJ= 
          ENTRY  FTP
          ENTRY  CRECFC 
          ENTRY  SSJ= 
          TITLE  FTP - *FCS* 00,00 MAIN OVERLAY.
          COMMENT  FTP - *FCS* 00,00 MAIN OVERLAY.
*CALL COPYRITB
*****     FTP - FCS 00,00 MAIN OVERLAY. 
* 
*         THIS OVERLAY CONTAINS THE *FCS* ROUTINES. CONTROL IS GIVEN
*         TO THE *FCS* MAINLINE ROUTINE WHICH LOADS AND EXECUTES THE
*         *FCS* INITIALIZATION OVERLAY. WHEN INITIALIZATION IS COMPLETE 
*         CONTROL IS GIVEN TO THE *FCS* EXECUTIVE PROCESSOR WHICH 
*         RELEASES THE MEMORY USED BY THE *FCS* INITIALIZATION OVERLAY
*         TO THE *FCS* TABLE MANAGER. 
* 
  
 SSJ=     EQU    0           SSJ= PRIVILEGES ONLY 
  
 FTP      BSS    0
 CRECFC   BSS    0
          RJ     =XFCSAMSP   *FCS* MAINLINE ROUTINE 
          ENDRUN
  
          END    FTP
