/*           CRTCMD     CMD(mylib/EXCCMDMBR) +                     */
/*                      PGM(*LIBL/EXCCMDMBR) +                     */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(EXCCMDMBR) +                        */
/*                      TEXT('Execute commands in a CL member') +  */
/*                      HLPPNLGRP(*LIBL/EXCCMDMBR) +               */
/*                      HLPID(EXCCMDMBR)                           */

             CMD        PROMPT('Execute commands CL member')
             PARM       KWD(MBR) +
                        TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        PROMPT('Member')
             PARM       KWD(SRCF) +
                        TYPE(Q0120) +
                        CHOICE(*NONE) +
                        PROMPT('Source file')
             PARM       KWD(ERROPT) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*ABORT) +
                        VALUES( +
                          '*ABORT' +
                          '*BYPASS' +
                          '*CHECK')
                        PROMPT('Error option')
Q0120:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(QCLSRC)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*LIBL ) +
                          (*CURLIB )) +
                        PROMPT('Library')