/*           CRTCMD     CMD(mylib/SWPLIBL) +                      */
/*                      PGM(*LIBL/SWPLIBL) +                       */
/*                      SRCFILE(mylib/mysrcf) +               */
/*                      SRCMBR(SWPLIBL) +                          */
/*                      TEXT('Swap library list')                  */

             CMD        PROMPT('Swap a job''s *libl w/*jobd')
             PARM       KWD(JOBD) +
                        TYPE(Q00C5) +
                        DFT(*NONE) +
                        SNGVAL( +
                          (*NONE )) +
                        PROMPT('Jobd name' 2)
Q00C5:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        EXPR(*YES)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        EXPR(*YES) +
                        PROMPT('Library')
             PARM       KWD(USRPRF) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*NONE) +
                        SPCVAL( +
                          (*NONE ) +
                          (*SYSVAL )) +
                        EXPR(*YES) +
                        PROMPT('User profile name' 3)
             PARM       KWD(JOB) +
                        TYPE(Q01BD) +
                        DFT(*NONE) +
                        SNGVAL( +
                          (* ) +
                          (*NONE ) +
                          (*SELECT )) +
                        PROMPT('Job' 1)
Q01BD:       QUAL       TYPE(*NAME) +
                        LEN(10)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        PROMPT('User')
             QUAL       TYPE(*CHAR) +
                        LEN(6) +
                        PROMPT('Number')
             DEP        CTL(&JOBD *EQ *NONE) +
                        PARM( +
                          (&USRPRF *NE *NONE) +
                          (&JOB *NE *NONE)) +
                        NBRTRUE(*EQ 1) +
             DEP        CTL(&USRPRF *EQ *NONE) +
                        PARM( +
                          (&JOBD *NE *NONE) +
                          (&JOB *NE *NONE)) +
                        NBRTRUE(*EQ 1) +
             DEP        CTL(&JOB *EQ *NONE) +
                        PARM( +
                          (&USRPRF *NE *NONE) +
                          (&JOBD *NE *NONE)) +
                        NBRTRUE(*EQ 1)