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

             CMD        PROMPT('Build a list of files')
             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(5) +
                        RSTD(*YES) +
                        DFT(*ALL) +
                        VALUES( +
                          '*ALL' +
                          '*DSPF' +
                          '*PRTF' +
                          '*DKTF' +
                          '*TAPF' +
                          '*CMNF' +
                          '*BSCF' +
                          '*MXDF' +
                          '*PF' +
                          '*LF' +
                          '*SAVF' +
                          '*DDMF' +
                          '*ICFF')
                        PROMPT('File attributes' 4)
             PARM       KWD(LSTF) +
                        TYPE(Q01A8) +
                        CHOICE(*NONE) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('List file' 3)
Q01A8:       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(E0245) +
                        CHOICE(*NONE) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('List options' 2)
E0245:       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')