/********************************************************************/ /* Command CHGFTPEXT - Change FTP Exit Data Area */ /********************************************************************/ /* Use this command maintain data area QGPL/DAFTPEXIT. */ /* The data area is used in Exit Point program FTPEXIT to set */ /* run-time parameters for the program. */ /********************************************************************/ /* Copyright (c) 1998 Bits & Bytes Programming */ /* ALL RIGHTS RESERVED */ /* */ /* Craig Pelkie */ /* Bits & Bytes Programming */ /* P.O. Box 1473 */ /* Valley Center, CA 92082-1473 */ /* craig@web400.com */ /********************************************************************/ chgftpext: cmd prompt('Change FTP Exit Point Dtaara') parm kwd(PRINT) + type(*char) + len(4) + rstd(*yes) + dft(*NO) + values(*YES *NO) + prompt('Print FTP Exit Point activity') parm kwd(FILE) + type(*char) + len(4) + rstd(*yes) + dft(*NO) + values(*YES *NO) + prompt('Output to file QGPL/FTPEXIT') parm kwd(INLR) + type(*char) + len(4) + rstd(*yes) + dft(*NO) + values(*YES *NO) + prompt('Return with *INLR on') parm kwd(FTPSERVER) + type(FTPSERVER) + prompt('Options for FTP Server') parm kwd(FTPANON) + type(FTPANON) + prompt('Options for Anonymous FTP') parm kwd(FTPCLIENT) + type(FTPCLIENT) + prompt('Options for FTP Client') parm kwd(REXEC) + type(REXEC) + prompt('Options for REXEC Server') parm kwd(TFTPSERVER) + type(TFTPSERVER) + prompt('Options for TFTP Server') parm kwd(APPLOGON) + type(APPLOGON) + prompt('Options for App Server Logon') /********************************************************************/ /* Parameters for FTP Server */ /********************************************************************/ FTPSERVER: elem type(*char) + len(4) + rstd(*yes) + dft(*NO) + values(*YES *NO) + prompt('Perform DUMP in Exit Program') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Session initialization') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Create directory/library') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Delete directory/library') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Set current directory') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('List directory/library') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Delete file') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Send file') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Receive file') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Rename file') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Execute CL commands') /********************************************************************/ /* Parameters for Anonymous FTP (to-server) */ /********************************************************************/ FTPANON: elem type(*char) + len(4) + rstd(*yes) + dft(*NO) + values(*YES *NO) + prompt('Perform DUMP in Exit Program') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER) + prompt('Session initialization') elem type(*char) + len(7) + rstd(*yes) + dft(*REJECT) + values(*ALLOW *REJECT *NEVER) + prompt('Create directory/library') elem type(*char) + len(7) + rstd(*yes) + dft(*REJECT) + values(*ALLOW *REJECT *NEVER) + prompt('Delete directory/library') elem type(*char) + len(7) + rstd(*yes) + dft(*REJECT) + values(*ALLOW *REJECT *NEVER) + prompt('Set current directory') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER) + prompt('List directory/library') elem type(*char) + len(7) + rstd(*yes) + dft(*REJECT) + values(*ALLOW *REJECT *NEVER) + prompt('Delete file') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER) + prompt('Send file') elem type(*char) + len(7) + rstd(*yes) + dft(*REJECT) + values(*ALLOW *REJECT *NEVER) + prompt('Receive file') elem type(*char) + len(7) + rstd(*yes) + dft(*REJECT) + values(*ALLOW *REJECT *NEVER) + prompt('Rename file') elem type(*char) + len(7) + rstd(*yes) + dft(*REJECT) + values(*ALLOW *REJECT *NEVER) + prompt('Execute CL commands') /********************************************************************/ /* Parameters for FTP Client */ /********************************************************************/ FTPCLIENT: elem type(*char) + len(4) + rstd(*yes) + dft(*NO) + values(*YES *NO) + prompt('Perform DUMP in Exit Program') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Session initialization') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Set current directory') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Send file') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Receive file') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Execute CL commands') /********************************************************************/ /* Parameters for REXEC server */ /********************************************************************/ REXEC: elem type(*char) + len(4) + rstd(*yes) + dft(*NO) + values(*YES *NO) + prompt('Perform DUMP in Exit Program') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Session initialization') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Execute CL commands') /********************************************************************/ /* Parameters for TFTP Server */ /********************************************************************/ TFTPSERVER: elem type(*char) + len(4) + rstd(*yes) + dft(*NO) + values(*YES *NO) + prompt('Perform DUMP in Exit Program') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Send file') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT *NEVER *ALWAYS) + prompt('Receive file') /********************************************************************/ /* Parameters for Application Server Logon Exit Point */ /********************************************************************/ APPLOGON: elem type(*char) + len(4) + rstd(*yes) + dft(*NO) + values(*YES *NO) + prompt('Perform DUMP in Exit Program') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT) + prompt('Allow Logon to FTP Server') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT) + prompt('Allow Anonymous FTP') elem type(*char) + len(10) + rstd(*no) + dft(PUBLIC) + spcval(*USRPRF) + prompt('Initial library for Anon FTP') elem type(*pname) + len(50) + rstd(*no) + dft('/public') + prompt('Initial directory for Anon FTP') elem type(*char) + len(7) + rstd(*yes) + dft(*ALLOW) + values(*ALLOW *REJECT) + prompt('Allow Logon to REXEC Server')