*DECK FCSUFAE 
USETEXT TEXTFCS;
      FUNC FCSUFAE B; 
*CALL COPYRITE
# TITLE FCSUFAE - UTILITY TO FIND AUTO LOGIN ENTRY.                    #
  
      BEGIN                            # FCSUFAE                       #
  
# 
**    FCSUFAE - UTILITY TO FIND AUTO LOGIN ENTRY. 
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE USING THE HOST NAME IN THE PARAMETER BLOCK 
*     SEARCHES FOR THE CORRESPONDING AUTO LOGIN INFORAMTION ENTRY.
* 
*     FUNC FCSUFAE
* 
*     ENTRY   PARMS[1]   = HOST NAME. 
* 
*     EXIT    FCSUFAE    = TRUE IF ENTRY FOUND. 
*             FCSUFAE    = FALSE IF ENTRY NOT FOUND.
*             ALIX       = INDEX OF ENTRY IF ENTRY FOUND. 
*             ALIX       = INDEX OF NEXT AVAILABLE ENTRY IF ENTRY 
*                          NOT FOUND. 
* 
*     METHOD  SEARCH AUTO LOGIN INFORMATION TABLE FOR MATCHING
*             HOST NAME.
*             RETURN INDEX OF ENTRY OR INDEX OF NEXT AVAILABLE
*             ENTRY IF ENTRY NOT FOUND. 
* 
# 
  
# 
****  FUNC FCSUFAE - XREF LIST
# 
      XREF
        BEGIN 
        END 
# 
****
# 
      ITEM I             I;            # INDUCTION VARIABLE            #
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      FCSUFAE = FALSE;                 # RETURN FALSE BY DEFAULT       #
      ALIX    = ALIL;                  # RETURN NEXT INDEX BY DEFAULT  #
      FOR I = 0 STEP ALISIZ$
        WHILE I LS ALIX DO             # LOOP TILL FOUND OR TABLE END  #
        BEGIN 
        IF PARAMP[1] EQ ALI$HOSTP[I]
        THEN
          BEGIN                        # HOST NAME MATCHES             #
          FCSUFAE = TRUE;              # FOUND MATCHING ENTRY          #
          ALIX    = I;                 # RETURN INDEX OF ENTRY         #
          END 
        END 
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSUFAE                       #
  
      TERM
