*DECK FCSCDFN 
USETEXT TEXTFCS;
      PROC FCSCDFN; 
*CALL COPYRITE
# TITLE FCSCDFN - PROCESS DISPLAY_FILE_NAMES COMMAND.                  #
  
      BEGIN                            # FCSCDFN                       #
  
# 
**    FCSCDFN - PROCESS DISPLAY_FILE_NAMES COMMAND. 
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE PROCESSES THE DISPLAY_FILE_NAMES COMMAND.
* 
*     PROC FCSCDFN
* 
*     ENTRY   PARMS[1]   = DIRECTORY NAME.
*             PARMS[2]   = LOCAL FILE TO RECEIVE DISPLAY INFORMATION. 
*             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  CALL THE COMMON ROUTINE *FCSBDID* TO PROCESS THIS COMMAND.
* 
# 
  
# 
****  PROC FCSCDFN - XREF LIST
# 
      XREF
        BEGIN 
        PROC FCSBDFN;                  # DISPLAY DIRECTORY / FILE NAMES#
        END 
# 
****
# 
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
  
      FCSBDFN (FTPCNLST);              # USE *NLST* FTP COMMAND        #
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSCDFN                       #
  
      TERM
