*DECK FCSIIPV 
USETEXT TEXTFCS;
      PROC FCSIIPV; 
*CALL COPYRITE
# TITLE FCSIIPV - INITIALIZE PROGRAM VARIABLES.                        #
  
      BEGIN                            # FCSIIPV                       #
  
# 
**    FCSIIPV - INITIALIZE PROGRAM VARIABLES. 
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE INITIALIZES THE FTP CONTROL STATEMENT PROCESSOR
*     VARIABLES.
* 
*     PROC FCSIIPV
* 
*     ENTRY   NOT MUCH HAPPENS BEFORE THIS. 
* 
*     EXIT    FTPINTER   = INTERACTIVE JOB FLAG.
*             FTPAUTOM   = AUTO LOGIN MODE. 
*             FTPBELLM   = BELL MODE. 
*             FTPDBUGM   = DEBUG MODE.
*             FTPEXPEM   = EXPRESSION EVALUATION MODE.
*             FTPPORTM   = PORT COMMAND MODE. 
*             FTPVERBM   = VERBOSE MODE.
*             FTPTYPE    = FTP TRANSFER TYPE. 
*             FTPFORM    = FTP TRANSFER FORMAT. 
*             FTPSTRU    = FTP TRANSFER STRUCTURE.
*             FTPMODE    = FTP TRANFER MODE.
*             FTPBYTE    = FTP LOCAL BYTE SIZE. 
* 
# 
  
# 
****  PROC FCSIIPV - XREF LIST
# 
      XREF
        BEGIN 
        FUNC GETJO U;                  # GET JOB ORIGIN                #
        END 
# 
****
# 
      DEF IAOT           # 3 #;        # INTERACTIVE JOB ORIGIN        #
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      FTPINTER = GETJO EQ IAOT;        # TRUE IF INTERACTIVE JOB ORIGIN#
      FTPAUTOM = OPTON$;               # AUTO LOGIN MODE IS ON         #
      FTPBELLM = OPTOFF$;              # BELL MODE IS OFF              #
      FTPDBUGM = OPTOFF$;              # DEBUG MODE IS OFF             #
      FTPEXPEM = OPTOFF$;              # EXPRESSION EVALUATION IS OFF  #
      FTPPORTM = OPTON$;;              # PORT COMMAND MODE IS ON       #
      FTPVERBM = OPTOFF$;              # VERBOSE MODE IS OFF           #
      FTPDCSET = OPTASCII$;            # DEFAULT CODE SET IS ASCII     #
      FTPTYPE  = OPTASCII$;            # FTP TYPE IS ASCII             #
      FTPFORM  = OPTNONPR$;            # FTP FORMAT IS NON_PRINT       #
      FTPSTRU  = OPTFILE$;             # FTP STRUCTURE IS FILE         #
      FTPMODE  = OPTSTREAM$;           # FTP MODE IS STREAM            #
      FTPBYTE  = OPT60$;               # FTP BYTE SIZE IS 60           #
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSIIPV                       #
  
      TERM
