/*           CRTCMD     CMD(mylib/RGZDBRPFM) +                     */
/*                      PGM(mylib/RGZDBRPFM) +                     */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RGZDBRPFM) +                        */
/*                      TEXT('Reorganize DB related PF member')    */

             CMD        PROMPT('Reorganize DBR PF member')
             PARM       KWD(FILE) +
                        TYPE(Q00AB) +
                        MIN(1) +
                        FILE(*UNSPFD) +
                        CHOICE(*NONE) +
                        PROMPT('Qualified PF name')
Q00AB:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Library')
             PARM       KWD(MBR) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*FIRST) +
                        SPCVAL( +
                          (*FIRST ) +
                          (*LAST )) +
                        EXPR(*YES) +
                        PROMPT('Member')
             PARM       KWD(KEYFILE) +
                        TYPE(E019E) +
                        DFT(*NONE) +
                        SNGVAL( +
                          (*NONE ) +
                          (*FILE )) +
                        FILE(*IN) +
                        PROMPT('Key file')
E019E:       ELEM       TYPE(Q00AB) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('Logical file')
             ELEM       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        EXPR(*YES) +
                        PROMPT('Member')
             PARM       KWD(RCDFMT) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*ONLY) +
                        SPCVAL( +
                          (*ONLY )) +
                        EXPR(*YES) +
                        PROMPT('Record format')
             PARM       KWD(RUNTYP) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*NORMAL) +
                        VALUES( +
                          '*NORMAL' +
                          '*RECOVER')
                        PMTCTL(*PMTRQS) +
                        PROMPT('Run type')
             PARM       KWD(JOBQ) +
                        TYPE(Q028F) +
                        CHOICE(*NONE) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Job queue')
Q028F:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(QBATCH)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Library')