/*----------------------------------------------------------------*/
/* CL COMMAND RSTSPLF RESTORE SPOOLED FILE FROM DB MEMBER */
/* COPYRIGHT (c) 1998 Vengoal Chang */
/* ALL RIGHTS RESERVED. */
/*----------------------------------------------------------------*/
CMD PROMPT('Restore Spooled File from DB')
PARM KWD(FRMFILE) TYPE(Q0309) MIN(1) +
CHOICE(*NONE) PROMPT('From physical file' 1)
PARM KWD(FRMMBR) TYPE(*NAME) LEN(10) EXPR(*YES) +
PROMPT('From member' 2)
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')