*DECK FCSCDLH 
USETEXT TEXTFCS;
      PROC FCSCDLH; 
*CALL COPYRITE
# TITLE FCSCDLH - PROCESS DISPLAY_LOCAL_HELP COMMAND.                  #
  
      BEGIN                            # FCSCDLH                       #
  
# 
**    FCSCDLH - PROCESS DISPLAY_LOCAL_HELP COMMAND. 
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE PROCESSES THE DISPLAY_LOCAL_HELP COMMAND.
* 
*     PROC FCSCDLH
* 
*     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. 
* 
*     METHOD  WRITE HELP INFORMATION TO THE OUTPUT FILE.
* 
# 
  
# 
****  PROC FCSCDLH - XREF LIST
# 
      XREF
        BEGIN 
        PROC FCSOWOF;                  # WRITE TO OUTPUT FILE          #
        END 
# 
****
# 
      DEF HELPSZ$        #  68 #;      # SIZE OF HELP INFORMATION      #
  
      ARRAY HELP [01:HELPSZ$] S(6); 
        BEGIN 
        ITEM HELP$LINE   C(00,00,54) =
       ["COMMAND NAME                    COMMAND ALIASES       ", 
        "------------                    ---------------       ", 
        "APPEND_FILE                     APPE, APPEND, APPF    ", 
        "    APPEND TO A REMOTE FILE                           ", 
        "CHANGE_AUTO_LOGIN_MODE          CHAALM                ", 
        "    TURN AUTO LOGIN MODE ON OR OFF                    ", 
        "CHANGE_BELL_MODE                BELL, CHABM           ", 
        "    TURN BELL PROMPT ON OR OFF                        ", 
        "CHANGE_CODE_SET                 CHACS                 ", 
        "    CHANGE DEFAULT LOCAL CODE SET                     ", 
        "CHANGE_DEBUG_MODE               CHADM, DEBUG          ", 
        "    TURN DEBUG MESSAGES ON OR OFF                     ", 
        "CHANGE_EXPRESSION_EVALUATION    CHAEE                 ", 
        "    TURN SCL EVALUATION ON OR OFF                     ", 
        "CHANGE_FILE_NAME                CHAFN, RENAME         ", 
        "    RENAME A REMOTE FILE                              ", 
        "CHANGE_INPUT_FILE               CHAIF                 ", 
        "    CHANGE DEFAULT INPUT FILE                         ", 
        "CHANGE_OUTPUT_FILE              CHAOF                 ", 
        "    CHANGE DEFAULT OUTPUT FILE                        ", 
        "CHANGE_PORT_COMMAND_MODE        CHAPCM, SENDPORT      ", 
        "    TURN PORT COMMAND MODE ON OR OFF                  ", 
        "CHANGE_TRANSFER_TYPE            CHATT, TYPE           ", 
        "    CHANGE TYPE OF LOCAL FILE BEING TRANSFERRED       ", 
        "CHANGE_VERBOSE_MODE             CHAVM, VERBOSE        ", 
        "    TURN FTP MESSAGES ON OR OFF                       ", 
        "CHANGE_WORKING_DIRECTORY        CHAWD, CD, CWD        ", 
        "    CHANGE REMOTE WORKING DIRECTORY                   ", 
        "CREATE_DIRECTORY                CRED, MKDIR, MKD      ", 
        "    CREATE A REMOTE DIRECTORY                         ", 
        "CREATE_HOST_CONNECTION          CREHC, OPEN           ", 
        "    CONNECT TO A REMOTE FTP HOST                      ", 
        "DEFINE_AUTO_LOGIN_MODE          DEFAL                 ", 
        "    DEFINE AUTO LOGIN INFORMATION FOR A REMOTE HOST   ", 
        "DELETE_DIRECTORY                DELD, RMDIR, RMD      ", 
        "    DELETE A REMOTE DIRECTORY                         ", 
        "DELETE_FILE                     DELF, DELETE, DELE    ", 
        "    DELETE A REMOTE FILE                              ", 
        "DELETE_HOST_CONNECTION          DELHC, CLOSE          ", 
        "    TERMINATE CURRENT FTP CONNECTION                  ", 
        "DISPLAY_COMMAND_INFORMATION     DISCI                 ", 
        "    DISPLAY PARAMETERS FOR A PARTICULAR COMMAND       ", 
        "DISPLAY_COMMAND_LIST_ENTRY      DISCLE                ", 
        "    DISPLAY LIST OF COMMANDS                          ", 
        "DISPLAY_DIRECTORY               DISD, DIR, LIST       ", 
        "    LIST OF A REMOTE DIRECTORY                        ", 
        "DISPLAY_FILE_NAMES              DISFN, LS, NLST       ", 
        "    LIST FILES IN A REMOTE DIRECTORY                  ", 
        "DISPLAY_FTP_OPTIONS             DISFO, STATUS         ", 
        "    DISPLAY FTP PARAMETER SETTINGS                    ", 
        "DISPLAY_LOCAL_HELP              DISLH, HELP           ", 
        "    DISPLAY LOCAL CLIENT-FTP HELP                     ", 
        "DISPLAY_REMOTE_HELP             DISRH, REMOTEHELP     ", 
        "    DISPLAY REMOTE SERVER-FTP HELP                    ", 
        "DISPLAY_WORKING_DIRECTORY       DISWD, PWD            ", 
        "    DISPLAY REMOTE WORKING DIRECTORY                  ", 
        "ELEVATE_WORKING_DIRECTORY       ELEWD, CDUP           ", 
        "    ELEVATE WORKING DIRECTORY                         ", 
        "GET_FILE                        GETF, GET, RECV, RETR ", 
        "    RETRIEVE A REMOTE FILE                            ", 
        "LOGIN_USER                      LOGU, USER            ", 
        "    SEND USER NAME AND PASSWORD                       ", 
        "QUIT                            QUI, BYE, Q           ", 
        "    TERMINATE FTP UTILITY                             ", 
        "REPLACE_FILE                    REPF, PUT, SEND, STOR ", 
        "    SEND A LOCAL FILE                                 ", 
        "SEND_FTP_COMMAND                SENFC, QUOTE          ", 
        "    SEND ARBITRARY FTP COMMAND                        "];
        ITEM HELP$ZBYTE U(05,24,36) = [HELPSZ$(0)]; 
        END 
  
      ITEM I             I;            # LOOP INDUCTION VARIABLE       #
      ITEM SPACING       U = O"55550000000000000000"; 
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
  
      FOR I = 1 STEP 2
        WHILE I LS HELPSZ$ DO 
        BEGIN                          # LOOP THRU ALL LINES OF TABLE  #
        FCSOWOF (HELP[I], INTERNAL$);  # WRITE LINE TO OUTPUT FILE     #
        FCSOWOF (HELP[I+1], INTERNAL$);# WRITE LINE TO OUTPUT FILE     #
        FCSOWOF (SPACING, INTERNAL$);  # WRITE BLANK LINE TO OUTPUT    #
        END 
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSCDLH                       #
  
      TERM
