/*           CRTCMD     CMD(mylib/BLDMBRLST) +                     */
/*                      PGM(mylib/BLDMBRLST) +                     */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(BLDMBRLST)                          */

             CMD        PROMPT('Build a list of members')
             PARM       KWD(FILE) +
                        TYPE(Q00AB) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('File' 1)
Q00AB:       QUAL       TYPE(*GENERIC) +
                        LEN(10) +
                        SPCVAL( +
                          (*ALL )) +
                        MIN(1)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*USRLIBL) +
                        SPCVAL( +
                          (*LIBL ) +
                          (*CURLIB ) +
                          (*USRLIBL ) +
                          (*ALLUSR ) +
                          (*ALL )) +
                        PROMPT('Library')
             PARM       KWD(FILEATR) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        RSTD(*YES) +
                        DFT(*ALL) +
                        VALUES( +
                          '*ALL' +
                          '*PF' +
                          '*LF')
                        PROMPT('File attributes' 4)
             PARM       KWD(LSTF) +
                        TYPE(Q0194) +
                        CHOICE(*NONE) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('List file' 3)
Q0194:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*DFT) +
                        SPCVAL( +
                          (*DFT ))
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(QTEMP) +
                        SPCVAL( +
                          (*LIBL ) +
                          (*CURLIB )) +
                        PROMPT('Library')
             PARM       KWD(LSTOPT) +
                        TYPE(E0231) +
                        CHOICE(*NONE) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('List options' 2)
E0231:       ELEM       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*FILE) +
                        SPCVAL( +
                          (*FILE ) +
                          (*FIRST )) +
                        PROMPT('List name')
             ELEM       TYPE(*CHAR) +
                        LEN(8) +
                        RSTD(*YES) +
                        DFT(*REPLACE) +
                        VALUES( +
                          '*REPLACE' +
                          '*ADD')
                        PROMPT('Replace or add to list')