/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : RSTOUTQ                                     +--*/
/*--+ COMMAND NAME : RESTORE OUTPUT QUEUE                        +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.0 (1999/07/13)                            +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('RESTORE OUTPUT QUEUE')

             PARM       KWD(FILE) TYPE(GETFILE) MIN(1) PROMPT('SAVED +
                          OUTPUT QUEUE FILE')

             PARM       KWD(RSTOUTQ) TYPE(GETRSTOUTQ) DFT(*JOB) +
                          SNGVAL((*JOB)) PROMPT('RESTORE TO OUTPUT +
                          QUEUE')

             PARM       KWD(MBR) TYPE(*NAME) LEN(10) DFT(*ALL) +
                          SPCVAL((*ALL)) PMTCTL(*PMTRQS) PROMPT(MEMBER)


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

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