/*           CRTCMD     CMD(mylib/RTVJOBI) +                       */
/*                      PGM(QSYS/QUSRJOBI) +                       */
/*                      SRCFILE(mylib/mysrc) +                     */
/*                      SRCMBR(RTVJOBI) +                          */
/*                      TEXT('QUSRJOBI Retrieve job informatio+    */
/*                      n') +                                      */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Retrieve job information')
             PARM       KWD(JOBI) +
                        TYPE(*CHAR) +
                        LEN(1000) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('*char(1000)') +
                        PROMPT('Job information structure' 2)
             PARM       KWD(JOBILEN) +
                        TYPE(*INT4) +
                        CONSTANT(1000) +
                        MIN(1)
             PARM       KWD(FORMAT) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        RSTD(*YES) +
                        DFT(*PERFORM) +
                        SPCVAL( +
                          (*PERFORM JOBI0100) +
                          (*ADDLPERFORM JOBI0150) +
                          (*WRKACTJOB JOBI0200) +
                          (*JOBQ JOBI0300) +
                          (*JOBATTR JOBI0400) +
                          (*MSGLOG JOBI0500) +
                          (*ACTJOBI JOBI0600) +
                          (*LIBL JOBI0700) +
                          (*ACTSIGL JOBI0800) +
                          (*ACTSQLCSR JOBI0900)) +
                        PROMPT('Format to list' 4)
             PARM       KWD(JOB) +
                        TYPE(Q01A5) +
                        DFT(*) +
                        SNGVAL( +
                          (* ) +
                          (*INT )) +
                        PROMPT('Job' 1)
Q01A5:       QUAL       TYPE(*NAME) +
                        LEN(10)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        PROMPT('User')
             QUAL       TYPE(*CHAR) +
                        LEN(6) +
                        PROMPT('Number')
             PARM       KWD(INTJOBID) +
                        TYPE(*CHAR) +
                        LEN(16) +
                        DFT(*BLANK) +
                        SPCVAL( +
                          (*BLANK '                ')) +
                        PROMPT('Internal job identifier' 5)
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)