*DECK FCSCDHC 
USETEXT TEXTFCS;
      PROC FCSCDHC; 
*CALL COPYRITE
# TITLE FCSCDHC - PROCESS DELETE_HOST_CONNECTION COMMAND.              #
  
      BEGIN                            # FCSCDHC                       #
  
# 
**    FCSCDHC - PROCESS DELETE_HOST_CONNECTION COMMAND. 
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE PROCESSES THE DELETE_HOST_CONNECTION COMMAND.
* 
*     PROC FCSCDHC
* 
*     ENTRY   PARMS[1]   = STATUS VARIABLE (IGNORED). 
* 
*     EXIT    FTPERROR   = TRUE IF PROTOCOL ERROR DETECTED. 
*             FTPFAIL    = TRUE IF COMMAND FAILURE DETECTED.
*             FTPUSERE   = TRUE IF USER ERROR DETECTED. 
*             FTPSTATE   = *FTPUIDLE*.
* 
*     NOTES   FTPSTATE IS UPDATED IN *FCSNWFR* SINCE THE STATE IS 
*             ALWAYS UPDATED ON RECEIPT OF A 221 OR 421 REPLY.
* 
*     METHOD  CHECK FOR REMOTE HOST CONNECTION. 
*             SEND *QUIT* FTP COMMAND TO REMOTE HOST. 
*             WAIT FOR REPLY FROM REMOTE HOST.
*             WAIT FOR *FTPI* TO INDICATE DISCONNECT FROM REMOTE HOST.
* 
# 
  
# 
****  PROC FCSCDHC - XREF LIST
# 
      XREF
        BEGIN 
        FUNC FCSFSCS B;                # FTP SINGLE COMMAND SEQUENCE   #
        FUNC FCSUCRC B;                # CHECK FOR REMOTE CONNECTION   #
        PROC FCSNWDB;                  # WAIT FOR DATA BLOCK           #
        END 
# 
****
# 
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      IF FCSUCRC
      THEN
        BEGIN                          # REMOTE CONNECTION EXISTS      #
        PARAMSZ[1] = 0;                # NO PARAMETERS WITH FTP *QUIT* #
        IF FCSFSCS (FTPCQUIT, PARMS[1], REMOTEID) 
        THEN
          BEGIN                        # FTP SEQUENCE COMPLETED OK     #
          END 
# 
*     WAIT FOR DISCONNECT INDICATION FROM *FTPI*. 
# 
        IF (FTPSTATE LAN FTPUIDLE NQ 0) AND 
           (FTPFC NQ AIPIDI)
        THEN
          BEGIN                        # RECEIVED *221* OR *421* REPLY #
          FCSNWDB (AIPIDI, REMOTEID);  # WAIT FOR DISCONNECT INDICATION#
          END 
        END 
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSCDHC                       #
  
      TERM
