*DECK FCSCDAL 
USETEXT TEXTFCS;
      PROC FCSCDAL; 
*CALL COPYRITE
# TITLE FCSCDAL - PROCESS DEFINE_AUTO_LOGIN COMMAND.                   #
  
      BEGIN                            # FCSCDAL                       #
  
# 
**    FCSCDAL - PROCESS DEFINE_AUTO_LOGIN COMMAND.
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE PROCESSES THE DEFINE_AUTO_LOGIN COMMAND. 
* 
*     PROC FCSCDAL
* 
*     ENTRY   PARMS[1]   = HOST NAME. 
*             PARMS[2]   = USER NAME. 
*             PARMS[3]   = PASSWORD.
*             PARMS[4]   = FAMILY.
*             PARMS[5]   = ACCOUNT. 
*             PARMS[6]   = PROJECT. 
*             PARMS[7]   = STATUS VARIABLE (IGNORED). 
* 
*     EXIT    FTPERROR   = TRUE IF PROTOCOL ERROR DETECTED. 
*             FTPFAIL    = TRUE IF COMMAND FAILURE DETECTED.
*             FTPUSERE   = TRUE IF USER ERROR DETECTED. 
*             ALIX       = INDEX OF ALI ENTRY.
* 
*     METHOD  SEARCH FOR MATCHING AUTO LOGIN INFORMATION ENTRY. 
*             IF NOT FOUND THEN CREATE A NEW ENTRY. 
*             COPY INFORMATION FROM PARAMETER BLOCKS INTO ENTRY.
* 
# 
  
# 
****  PROC FCSCDAL - XREF LIST
# 
      XREF
        BEGIN 
        PROC FCSMATS;                  # ALLOCATE TABLE SPACE          #
        FUNC FCSUFAE B;                # FIND AUTO LOGIN INFO ENTRY    #
        PROC MOVE;                     # MOVE A NUMBER OF WORDS        #
        END 
# 
****
# 
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      IF NOT FCSUFAE
      THEN
        BEGIN                          # MATCHING ENTRY NOT FOUND      #
        FCSMATS (P<ALI>, ALIL,
                 ALISIZ$);             # ALLOCATE SPACE FOR ENTRY      #
        END 
# 
*     COPY AUTO LOGIN INFORMATION INTO TABLE ENTRY. 
# 
      MOVE (ALISIZ$, PARMS[1],
            ALI[ALIX]);                # MOVE FROM PARAMETER BLOCKS    #
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSCDAL                       #
  
      TERM
