/*           CRTCMD     CMD(mylib/RTVDBFDT) +                      */
/*                      PGM(QSYS/QDBRTVFD) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RTVDBFDT) +                         */
/*                      TEXT(QDBRTVFD) +                           */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Retrieve DB File Def. Template')
             PARM       KWD(DBFDT) +
                        TYPE(*CHAR) +
                        LEN(400) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('*char(400)') +
                        PROMPT('Basic file definition template' 1)
             PARM       KWD(DBFDTLEN) +
                        TYPE(*INT4) +
                        CONSTANT(400) +
                        MIN(1)
             PARM       KWD(RTNDBF) +
                        TYPE(*CHAR) +
                        LEN(20) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('*char(20)') +
                        PROMPT('Returned file name' 3)
             PARM       KWD(FORMAT) +
                        TYPE(*NAME) +
                        LEN(8) +
                        CONSTANT(FILD0100) +
                        MIN(1)
             PARM       KWD(DBF) +
                        TYPE(Q017F) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('Database file' 5)
Q017F:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        EXPR(*YES)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*CURLIB) +
                        SPCVAL( +
                          (*LIBL ) +
                          (*CURLIB )) +
                        PROMPT('Library')
             PARM       KWD(RCDFMT) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*FIRST) +
                        SPCVAL( +
                          (*FIRST )) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Record format' 8)
             PARM       KWD(OVRPRC) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*YES) +
                        SPCVAL( +
                          (*YES 1) +
                          (*NO 0)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Overrides processed?' 9)
             PARM       KWD(SYS) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*LCL) +
                        VALUES( +
                          '*LCL' +
                          '*RMT' +
                          '*FILETYPE')
                        PMTCTL(*PMTRQS) +
                        PROMPT('System' 10)
             PARM       KWD(FMTTYP) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        CONSTANT('*EXT      ')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)