/*********************************************************************/
/*  Build a list of objects to process a command against             */
/*********************************************************************/
/*           CRTCMD     CMD( mylib/BLDOBJLST ) +                     */
/*                      PGM( mylib/BLDOBJLST ) +                     */
/*                      SRCFILE( mylib/mysrcf ) +                    */
/*                      SRCMBR( BLDOBJLST ) +                        */
/*                      TEXT( 'Build list of objects' ) +            */
/*                      PRDLIB( mylib )                              */

 BLDOBJLST:  CMD        PROMPT('Build a list of objects')


/*                                                                  */
/*    OBJ:  The objects to list...           .                      */
/*                                                                  */
             PARM       KWD(OBJ) TYPE(QOBJ) SNGVAL((*ALLUSR) (*IBM)) +
                          MIN(1) PROMPT('Object' 1)

 QOBJ:       QUAL       TYPE(*GENERIC) LEN(10) SPCVAL((*ALL)) MIN(1)
             QUAL       TYPE(*NAME) LEN(10) DFT(*USRLIBL) +
                          SPCVAL((*LIBL) (*CURLIB) (*USRLIBL) +
                          (*ALLUSR) (*ALL)) PROMPT('Library')


/*                                                                  */
/*  OBJTYP:  The object type to list...                             */
/*                                                                  */
             PARM       KWD(OBJTYP) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*ALL) VALUES(*ALRTBL *AUTL *BLKSF +
                          *BNDDIR *CFGL *CHTFMT *CLD *CLS *CMD +
                          *CNNL *COSD *CRG *CRQD *CSI *CSPMAP +
                          *CSPTBL *CTLD *DEVD *DDIR *DIR *DOC +
                          *DSTMF *DTAARA *DTADCT *DTAQ *EDTD +
                          *EXITRG *FCT *FILE *FLR *FNTRSC *FNTTBL +
                          *FORMDF *FTR *GSS *IGCDCT *IGCSRT *IGCTBL +
                          *IMGCLG *IPXD *JOBD *JOBQ *JOBSCD *JRN +
                          *JRNRCV *LIB *LIND *LOCALE *MEDDFN *MENU +
                          *MGTCOL *MODD *MODULE *MSGF *MSGQ *M36 +
                          *M36CFG *NODGRP *NODL *NTBD *NWID *NWSD +
                          *OUTQ *OVL *PAGDFN *PAGSEG *PDFMAP *PDG +
                          *PGM *PNLGRP *PRDAVL *PRDDFN *PRDLOD +
                          *PSFCFG *QMFORM *QMQRY *QRYDFN *RCT *SBSD +
                          *SCHIDX *SOCKET *SOMOBJ *SPADCT *SQLPKG +
                          *SQLUDT *SRVPGM *SSND *STMF *SVRSTG +
                          *SYMLNK *S36 *TBL *TIMZON *USRIDX *USRPRF +
                          *USRQ *USRSPC *VLDL *WSCST) +
                          SPCVAL((*ALL)) EXPR(*YES) PROMPT('Object +
                          type')

             DEP        CTL(&OBJ *EQ *ALLUSR) PARM((&OBJTYP *EQ *LIB))
             DEP        CTL(&OBJ *EQ *IBM) PARM((&OBJTYP *EQ *LIB))


/*                                                                  */
/*    LSTF: The file the list is held in...                         */
/*                                                                  */
             PARM       KWD(LSTF) TYPE(QLSTF) PMTCTL(*PMTRQS) +
                          PROMPT('List file' 3)

 QLSTF:      QUAL       TYPE(*NAME) LEN(10) DFT(*DFT) SPCVAL((*DFT))
             QUAL       TYPE(*NAME) LEN(10) DFT(QTEMP) +
                          SPCVAL((*LIBL) (*CURLIB)) PROMPT('Library')


/*                                                                  */
/*    LSTOPT: List 'options'...                                     */
/*                                                                  */
             PARM       KWD(LSTOPT) TYPE(ELSTOPT) PMTCTL(*PMTRQS) +
                          PROMPT('List options' 2)

/*            A name for the list...                                */
 ELSTOPT:    ELEM       TYPE(*NAME) LEN(10) DFT(*OBJ) SPCVAL((*OBJ) +
                          (*FIRST)) PROMPT('List name')

/*            Add or replace...                                     */
             ELEM       TYPE(*CHAR) LEN(8) RSTD(*YES) DFT(*REPLACE) +
                          VALUES(*REPLACE *ADD) PROMPT('Replace or +
                          add to list')