/*           CRTCMD     CMD(mylib/RTNJOBDILL) +                    */
/*                      PGM(*LIBL/RTNJOBDILL) +                    */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RTNJOBDILL) +                       */
/*                      TEXT('Return *jobd initial library lis+    */
/*                      t') +                                      */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Return a *jobd initial *libl')
             PARM       KWD(JOBD) +
                        TYPE(Q00AB) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('Jobd name')
Q00AB:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        EXPR(*YES)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Library')
             PARM       KWD(INLLIBL) +
                        TYPE(*CHAR) +
                        LEN(275) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        PROMPT('Initial library list     (275)')