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

             PARM       KWD(OUTQ) TYPE(GETOUTQ) SNGVAL((*ALL)) +
                          MIN(1) PROMPT('OUTPUT QUEUE')

             PARM       KWD(TOFILE) TYPE(GETFILE) MIN(1) +
                          PROMPT('SAVE TO FILE')

             PARM       KWD(MBROPT) TYPE(*CHAR) LEN(8) RSTD(*YES) +
                          DFT(*REPLACE) VALUES(*REPLACE *ADD) +
                          PROMPT('REPLACE OR ADD MEMBERS')


             PARM       KWD(USER) TYPE(*NAME) LEN(10) DFT(*ALL) +
                          SPCVAL((*ALL) (*CURRENT)) PMTCTL(*PMTRQS) +
                          PROMPT(USER)
             PARM       KWD(FORM) TYPE(*CHAR) LEN(10) DFT(*ALL) +
                          SPCVAL((*ALL) (*STD)) PMTCTL(*PMTRQS) +
                          PROMPT('FORM TYPE')
             PARM       KWD(USRDTA) TYPE(*CHAR) LEN(10) DFT(*ALL) +
                          SPCVAL((*ALL)) PMTCTL(*PMTRQS) +
                          PROMPT('USER SPECIFIED DATA')


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

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