/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : CPYOUTQ                                     +--*/
/*--+ COMMAND NAME : COPY OUTPUT QUEUE                           +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.0 (1999/08/17)                            +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('COPY OUTPUT QUEUE')

             PARM       KWD(FROMOUTQ) TYPE(FROMOUTQ) SNGVAL((*ALL)) +
                          MIN(1) PROMPT('FROM OUTPUT QUEUE')
             PARM       KWD(TOOUTQ) TYPE(TOOUTQ) DFT(*JOB) +
                          SNGVAL((*JOB)) PROMPT('TO OUTPUT QUEUE')

             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')


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

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