/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : RSTSPLF                                     +--*/
/*--+ COMMAND NAME : RESTORE SPOOLED FILE                        +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.0 (1999/04/22)                            +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('RESTORE SPOOLED FILE')

             PARM       KWD(FILE) TYPE(GETFILE) MIN(1) PROMPT('DATA +
                          BASE FILE')

             PARM       KWD(MBR) TYPE(*NAME) LEN(10) MIN(1) +
                          PROMPT(MEMBER)

             PARM       KWD(OUTQ) TYPE(GETOUTQ) DFT(*JOB) +
                          SNGVAL((*JOB)) PROMPT('OUTPUT QUEUE')


 GETFILE:    QUAL       TYPE(*NAME) LEN(10) MIN(1)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) PROMPT(LIBRARY)

 GETOUTQ:    QUAL       TYPE(*NAME) LEN(10)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) PROMPT(LIBRARY)