*DECK FCSCCFN 
USETEXT TEXTFCS;
      PROC FCSCCFN; 
*CALL COPYRITE
# TITLE FCSCCFN - PROCESS CHANGE_FILE_NAME COMMAND.                    #
  
      BEGIN                            # FCSCCFN                       #
  
# 
**    FCSCCFN - PROCESS CHANGE_FILE_NAME COMMAND. 
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE PROCESSES THE CHANGE_FILE_NAME COMMAND.
* 
*     PROC FCSCCFN
* 
*     ENTRY   PARMS[1]   = REMOTE FILE NAME.
*             PARMS[2]   = NEW REMOTE FILE NAME.
*             PARMS[3]   = STATUS VARIABLE (IGNORED). 
* 
*     EXIT    FTPERROR   = TRUE IF PROTOCOL ERROR DETECTED. 
*             FTPFAIL    = TRUE IF COMMAND FAILURE DETECTED.
*             FTPUSERE   = TRUE IF USER ERROR DETECTED. 
* 
*     METHOD  CHECK FOR REMOTE HOST CONNECTION. 
*             SEND *RNFR* FTP COMMAND TO REMOTE HOST. 
*             WAIT FOR REPLY FROM REMOTE HOST.
*             SEND *RNTO* FTP COMMAND TO REMOTE HOST. 
*             WAIT FOR REPLY FROM REMOTE HOST.
* 
# 
  
# 
****  PROC FCSCCFN - XREF LIST
# 
      XREF
        BEGIN 
        FUNC FCSFRNS B;                # FTP RENAME SEQUENCE           #
        FUNC FCSUCRC B;                # CHECK FOR REMOTE CONNECTION   #
        END 
# 
****
# 
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      IF FCSUCRC
      THEN
        BEGIN                          # REMOTE CONNECTION EXISTS      #
        IF FCSFRNS
        THEN
          BEGIN                        # RENAME SEQUENCE COMPLETED OK  #
          END 
        END 
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSCCFN                       #
  
      TERM
