/*           CRTCMD     CMD(mylib/LUSDBFDBR) +                     */
/*                      PGM(QSYS/QDBLDBR) +                        */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(LUSDBFDBR) +                        */
/*                      TEXT('QDBLDBR')                            */

             CMD        PROMPT('List DBF Relations to *Usrspc')
             PARM       KWD(USRSPC) +
                        TYPE(Q00AB) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('Qualified user space name')
Q00AB:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*CURLIB) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Space library')
             PARM       KWD(FORMAT) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        RSTD(*YES) +
                        DFT(*FILE) +
                        SPCVAL( +
                          (*FILE DBRL0100) +
                          (*MBR DBRL0200) +
                          (*RCDFMT DBRL0300)) +
                        PROMPT('Format to list')
             PARM       KWD(DBF) +
                        TYPE(Q0184) +
                        CHOICE(*NONE) +
                        PROMPT('File name')
Q0184:       QUAL       TYPE(*GENERIC) +
                        LEN(10) +
                        DFT(*ALL) +
                        SPCVAL( +
                          (*ALL ))
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*ALL ) +
                          (*ALLUSR ) +
                          (*CURLIB ) +
                          (*LIBL ) +
                          (*USRLIBL )) +
                        PROMPT('Library')
             PARM       KWD(MBR) +
                        TYPE(*GENERIC) +
                        LEN(10) +
                        DFT(*ALL) +
                        SPCVAL( +
                          (*ALL ) +
                          (*FIRST ) +
                          (*LAST )) +
                        PROMPT('Member(s) to select')
             PARM       KWD(RCDFMT) +
                        TYPE(*GENERIC) +
                        LEN(10) +
                        DFT(*ALL) +
                        SPCVAL( +
                          (*ALL )) +
                        PROMPT('Record format(s)')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)