/*           CRTCMD     CMD(mylib/RTVJOBQI) +                      */
/*                      PGM(QSYS/QSPRJOBQ) +                       */
/*                      SRCFILE(mylib/mysrc) +                     */
/*                      SRCMBR(RTVJOBQI) +                         */
/*                      TEXT('QSPRJOBQ Retrieve job queue info+    */
/*                      rmation') +                                */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Retrieve jobq information')
             PARM       KWD(JOBQI) +
                        TYPE(*CHAR) +
                        LEN(122) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('*char(122)') +
                        PROMPT('Jobq information structure' 2)
             PARM       KWD(JOBQILEN) +
                        TYPE(*INT4) +
                        CONSTANT(122) +
                        MIN(1)
             PARM       KWD(FORMAT) +
                        TYPE(*NAME) +
                        LEN(8) +
                        CONSTANT(JOBQ0100) +
                        MIN(1)
             PARM       KWD(JOBQ) +
                        TYPE(Q014D) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('Job queue name' 1)
Q014D:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Library')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)