/*----------------------------------------------------------------*/
/* CL COMMAND CVTSPLWEB CONVERT SPOOLED FILE TO WEB PAGE */
/* COPYRIGHT (c) 1998 Vengoal Chang */
/* ALL RIGHTS RESERVED. */
/*----------------------------------------------------------------*/
CMD PROMPT('Convert Spooled File To HTML')
PARM KWD(FILE) TYPE(*NAME) LEN(10) MIN(1) +
FILE(*IN) EXPR(*YES) PROMPT('Spooled file' 1)
PARM KWD(TOFILE) TYPE(Q0309) MIN(1) FILE(*OUT) +
CHOICE(*NONE) PROMPT('To source physical +
file' 2)
PARM KWD(JOB) TYPE(Q036A) DFT(*) SNGVAL((*)) +
PROMPT('Job name' 3)
PARM KWD(SPLNBR) TYPE(*CHAR) LEN(5) DFT(*LAST) +
EXPR(*YES) CHOICE('1-9999 , *ONLY, +
*LAST') PROMPT('Spooled file number' 4)
PARM KWD(TOMBR) TYPE(*NAME) LEN(10) +
DFT(SPOOLFILE) SPCVAL((SPOOLFILE)) +
EXPR(*YES) PROMPT('To member' 5)
PARM KWD(MBROPT) TYPE(*CHAR) LEN(8) RSTD(*YES) +
DFT(*REPLACE) SPCVAL((*REPLACE) (*ADD)) +
EXPR(*YES) PROMPT('Replace or add records' 6)
Q0309: QUAL TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) +
SPCVAL((*LIBL) (*CURLIB *CURLIB)) +
EXPR(*YES) PROMPT('Library')
Q036A: QUAL TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) EXPR(*YES) PROMPT('User')
QUAL TYPE(*CHAR) LEN(6) RANGE('000000' '999999') +
FULL(*YES) EXPR(*YES) PROMPT('Number')