/*===================================================================*/ /* TO COMPILE: */ /* */ /* CRTCMD CMD(XXX/FTPPARM) PGM(XXX/FTPPARMCL) + */ /* SRCFILE(XXX/QCMDSRC) TEXT('FTPPARM ') */ /* */ /*===================================================================*/ CMD PROMPT('Auto-FTP') PARM KWD(SYSNAME) TYPE(*CHAR) LEN(16) MIN(1) + PROMPT('System Name or IP Address') PARM KWD(USER) TYPE(*CHAR) LEN(10) MIN(1) + PROMPT('User Id') PARM KWD(PASSWORD) TYPE(*CHAR) LEN(10) + DSPINPUT(*NO) PROMPT('Password') PARM KWD(OBJECT) TYPE(*GENERIC) LEN(10) + PROMPT('Object') PARM KWD(TGTRLS) TYPE(*CHAR) LEN(8) RSTD(*YES) + DFT(*PRV) VALUES(*CURRENT *PRV V4R5M0 + V5R1M0 V5R2M0) PROMPT('Target Release') PARM KWD(LIB) TYPE(*CHAR) LEN(10) + PROMPT('Object Library') PARM KWD(RLIB) TYPE(*CHAR) LEN(10) + PROMPT('Restore to Library') PARM KWD(MBRO) TYPE(*CHAR) LEN(6) RSTD(*YES) + DFT(*ALL) VALUES(*MATCH *ALL *NEW *OLD) + PROMPT('Data base member option') PARM KWD(ALWO) TYPE(*CHAR) LEN(8) RSTD(*YES) + DFT(*ALL) + VALUES(*NONE *ALL *FILELVL) PROMPT('Allow + object differences')