/*           CRTCMD     CMD(mylib/RUNSQL) +                        */
/*                      PGM(*REXX) +                               */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RUNSQL) +                           */
/*                      REXSRCFILE(mylib/myREXXsrcf) +             */
/*                      REXSRCMBR(RUNSQL) +                        */
/*                      REXCMDENV(*COMMAND)                        */

             CMD        PROMPT('QMQRY Interactive SQL')
             PARM       KWD(SQL) +
                        TYPE(*CHAR) +
                        LEN(999) +
                        MIN(1) +
                        EXPR(*YES) +
                        PROMPT('SQL request')
             PARM       KWD(OUTPUT) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*) +
                        VALUES( +
                          '*' +
                          '*PRINT' +
                          '*OUTFILE')
                        PROMPT('Output')
             PARM       KWD(OUTFILE) +
                        TYPE(Q0125) +
                        CHOICE(*NONE) +
                        PMTCTL(P0186) +
                        PROMPT('File to receive output')
Q0125:       QUAL       TYPE(*NAME) +
                        LEN(10)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*LIBL ) +
                          (*CURLIB )) +
                        PROMPT('Library')
             PARM       KWD(MEMBER) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        RSTD(*YES) +
                        DFT(*REPLACE) +
                        VALUES( +
                          '*REPLACE' +
                          '*ADD')
                        PMTCTL(P0186) +
                        PROMPT('Replace or add records')
P0186:       PMTCTL     CTL(OUTPUT) +
                        COND( +
                          (*EQ '*OUTFILE'))