/*           CRTCMD     CMD(mylib/LUSJOB) +                        */
/*                      PGM(QSYS/QUSLJOB) +                        */
/*                      SRCFILE(mylib/mysrc) +                     */
/*                      SRCMBR(LUSJOB) +                           */
/*                      TEXT('QUSLJOB List jobs to *usrspc')       */

             CMD        PROMPT('List jobs to *usrspc')
             PARM       KWD(USRSPC) +
                        TYPE(Q00AB) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('Qualified user space name' 2)
Q00AB:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*CURLIB) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Space library')
             PARM       KWD(FORMAT) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        CONSTANT(JOBL0100)
             PARM       KWD(JOB) +
                        TYPE(Q0188) +
                        DFT(*) +
                        SNGVAL( +
                          (* )) +
                        PROMPT('Job' 1)
Q0188:       QUAL       TYPE(*GENERIC) +
                        LEN(10) +
                        SPCVAL( +
                          (*CURRENT ) +
                          (*ALL )) +
                        MIN(1)
             QUAL       TYPE(*GENERIC) +
                        LEN(10) +
                        DFT(*ALL) +
                        SPCVAL( +
                          (*CURRENT ) +
                          (*ALL )) +
                        PROMPT('User')
             QUAL       TYPE(*CHAR) +
                        LEN(6) +
                        DFT(*ALL) +
                        SPCVAL( +
                          (*ALL )) +
                        PROMPT('Number')
             PARM       KWD(STATUS) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*ALL) +
                        VALUES( +
                          '*ACTIVE' +
                          '*JOBQ' +
                          '*OUTQ' +
                          '*ALL')
                        SPCVAL( +
                          (*ALL )) +
                        EXPR(*YES) +
                        PROMPT('Status' 4)
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)
             PARM       KWD(JOBTYP) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*) +
                        VALUES( +
                          '*' +
                          'A' +
                          'B' +
                          'I' +
                          'M' +
                          'R' +
                          'S' +
                          'W' +
                          'X')
                        PROMPT('Job type' 6)
             PARM       KWD(NBRFLD) +
                        TYPE(*INT4) +
                        CONSTANT(0)
             PARM       KWD(KEYRTN) +
                        TYPE(*INT4) +
                        CONSTANT(0)