/*           CRTCMD     CMD(mylib/BLDOBJLST) +                     */
/*                      PGM(mylib/BLDOBJLST) +                     */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(BLDOBJLST) +                        */
/*                      TEXT('Build list of objects')              */

             CMD        PROMPT('Build a list of objects')
             PARM       KWD(OBJ) +
                        TYPE(Q00C4) +
                        SNGVAL( +
                          (*ALLUSR ) +
                          (*IBM )) +
                        MIN(1) +
                        PROMPT('Object' 1)
Q00C4:       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(OBJTYP) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*ALL) +
                        VALUES( +
                          '*ALRTBL' +
                          '*AUTL' +
                          '*BLKSF' +
                          '*BNDDIR' +
                          '*CFGL' +
                          '*CHTFMT' +
                          '*CLD' +
                          '*CLS' +
                          '*CMD' +
                          '*CNNL' +
                          '*COSD' +
                          '*CSI' +
                          '*CRQD' +
                          '*CTLD' +
                          '*DEVD' +
                          '*DDIR' +
                          '*DIR' +
                          '*DOC' +
                          '*DSTMF' +
                          '*DTAARA' +
                          '*DTADCT' +
                          '*DTAQ' +
                          '*EDTD' +
                          '*EXITRG' +
                          '*FCT' +
                          '*FILE' +
                          '*FLR' +
                          '*FNTRSC' +
                          '*FNTTBL' +
                          '*FORMDF' +
                          '*FTR' +
                          '*GSS' +
                          '*IGCDCT' +
                          '*IGCSRT' +
                          '*IGCTBL' +
                          '*IPXD' +
                          '*JOBD' +
                          '*JOBQ' +
                          '*JOBSCD' +
                          '*JRN' +
                          '*JRNRCV' +
                          '*LIB' +
                          '*LIND' +
                          '*MENU' +
                          '*MODD' +
                          '*MODULE' +
                          '*MSGF' +
                          '*MSGQ' +
                          '*M36' +
                          '*M36CFG' +
                          '*NODGRP' +
                          '*NODL' +
                          '*NTBD' +
                          '*NWID' +
                          '*NWSD' +
                          '*OUTQ' +
                          '*OVL' +
                          '*PAGDFN' +
                          '*PAGSEG' +
                          '*PDG' +
                          '*PGM' +
                          '*PNLGRP' +
                          '*PRDAVL' +
                          '*PRDDFN' +
                          '*PRDLOD' +
                          '*PSFCFG' +
                          '*QMFORM' +
                          '*QMQRY' +
                          '*QRYDFN' +
                          '*RCT' +
                          '*SBSD' +
                          '*SCHIDX' +
                          '*SOCKET' +
                          '*SOMOBJ' +
                          '*SPADCT' +
                          '*SQLPKG' +
                          '*SRVPGM' +
                          '*SSND' +
                          '*STMF' +
                          '*SVRSTG' +
                          '*SYMLNK' +
                          '*S36' +
                          '*TBL' +
                          '*USRIDX' +
                          '*USRPRF' +
                          '*USRQ' +
                          '*USRSPC' +
                          '*VLDL' +
                          '*WSCST')
                        SPCVAL( +
                          (*ALL )) +
                        EXPR(*YES) +
                        PROMPT('Object type' 4)
             PARM       KWD(LSTF) +
                        TYPE(Q029D) +
                        CHOICE(*NONE) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('List file' 3)
Q029D:       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(E033A) +
                        CHOICE(*NONE) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('List options' 2)
E033A:       ELEM       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*OBJ) +
                        SPCVAL( +
                          (*OBJ ) +
                          (*FIRST )) +
                        PROMPT('List name')
             ELEM       TYPE(*CHAR) +
                        LEN(8) +
                        RSTD(*YES) +
                        DFT(*REPLACE) +
                        VALUES( +
                          '*REPLACE' +
                          '*ADD')
                        PROMPT('Replace or add to list')
             DEP        CTL(&OBJ *EQ *ALLUSR) +
                        PARM( +
                          (&OBJTYP *EQ '*LIB')) +
             DEP        CTL(&OBJ *EQ *IBM) +
                        PARM( +
                          (&OBJTYP *EQ '*LIB'))