*DECK FCSIPES 
USETEXT TEXTFCS;
      PROC FCSIPES; 
*CALL COPYRITE
# TITLE FCSIPES - INIITIALIZATION EXECUTION SEQUENCER.                 #
  
      BEGIN                            # FCSIPES                       #
  
# 
**    FCSIPES - INITIALIZATION EXECUTION SEQUENCER. 
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE INITIALIZES THE FTP CONTROL STATEMENT PROCESSOR. 
* 
*     PROC FCSIPES
* 
*     ENTRY   CONTROL STATEMENT IMAGE IN RA COMMUNICATION AREA. 
* 
*     EXIT    CONTROL STATEMENT CRACKED AND PROCEESED.
* 
*     NOTES   THERE IS NO EXIT IN THE NORMAL SENSE. CONTROL IS GIVEN
*             TO *FCSXPES* WHICH NEVER RETURNS TO ITS CALLER. 
* 
*     METHOD  PARSE CONTROL STATEMENT.
*             INITIALIZE POINTER TABLE. 
*             INITIALIZE PROGRAM VARIABLES. 
*             INITIALIZE COMMAND TABLES.
*             INITIALIZE MANAGED TABLES.
*             INITIALIZE INPUT, OUTPUT AND PROMPT FILES.
*             INITIALIZE NETWORK INTERFACE. 
*             INITIALIZE TRANSFER FILE. 
*             PROCESS PROLOG FILE.
*             TRANSFER CONTROL TO PROGRAM EXECUTION SEQUENCER.
* 
# 
  
# 
****  PROC FCSIPES - XREF LIST
# 
      XREF
        BEGIN 
        PROC FCSIICT;                  # INITALIZE COMMAND TABLES      #
        PROC FCSIIMT;                  # INITIALIZE MANAGED TABLES     #
        PROC FCSIINI;                  # INITIALIZE NETWORK INTERFACE  #
        PROC FCSIIOP;                  # INITIALIZE INPUT/OUTPUT/PROMPT#
        PROC FCSIIPT;                  # INITALIZE POINTER TABLE       #
        PROC FCSIIPV;                  # INITALIZE PROGRAM VARIABLES   #
        PROC FCSIIXF;                  # INITIALIZE TRANSFER FILE      #
        PROC FCSIPCS;                  # PARSE CONTROL STATEMENT       #
        PROC FCSIPPF;                  # PROCESS PROLOG FILE           #
        PROC FCSXPES;                  # PROGRAM EXECUTION SEQUENCER   #
        END 
# 
****
# 
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      FCSIPCS;                         # PARSE CONTROL STATEMENT       #
      FTPSTATE = FTPUPARSED;           # CONTROL STATEMENT PARSED OKAY #
  
      FCSIIPT;                         # INITIALIZE POINTER TABLE      #
  
      FCSIIPV;                         # INITALIZE PROGRAM VARIABLES   #
  
      FCSIICT;                         # INITALIZE COMMAND TABLES      #
  
      FCSIIMT;                         # INITIALIZE MANAGED TABLES     #
  
      FCSIIOP;                         # INITIALIZE INPUT/OUTPUT/PROMPT#
      FTPSTATE = FTPUIOPSET;           # INPUT/OUTPUT/PROMPT SET UP OK #
  
      FCSIINI;                         # INITIALIZE NETWORK INTERFACE  #
  
      FCSIIXF;                         # INITIALIZE TRANSFER FILE      #
      FTPSTATE = FTPUIDLE;             # NO REMOTE HOST CONNECTION     #
  
      FCSIPPF;                         # PROCESS PROLOG FILE           #
  
      FCSXPES;                         # PROGRAM EXECUTION SEQUENCER   #
  
      END                              # FCSIPES                       #
  
      TERM
