Create your own RUNSQL cmd for use in CLP.

 1. Create a new RUNSQL mbr in srcfile QQMQRYSRC, enter a single line as
follows and save it.
&V1&V2&V3&V4&V5&V6&V7&V8&V9&V10

2. Create a *QMQRY object named RUNSQL from this source - CRTQMQRY
QMQRY(QGPL/RUNSQL)

3. Create a CLP pgm named RUNSQL as follws.
             PGM        PARM(&STMT)
             DCL        VAR(&STMT) TYPE(*CHAR) LEN(550)
             DCL        VAR(&V1) TYPE(*CHAR) LEN(55)
             DCL        VAR(&V2) TYPE(*CHAR) LEN(55)
             DCL        VAR(&V3) TYPE(*CHAR) LEN(55)
             DCL        VAR(&V4) TYPE(*CHAR) LEN(55)
             DCL        VAR(&V5) TYPE(*CHAR) LEN(55)
             DCL        VAR(&V6) TYPE(*CHAR) LEN(55)
             DCL        VAR(&V7) TYPE(*CHAR) LEN(55)
             DCL        VAR(&V8) TYPE(*CHAR) LEN(55)
             DCL        VAR(&V9) TYPE(*CHAR) LEN(55)
             DCL        VAR(&V10) TYPE(*CHAR) LEN(55)

             CHGVAR &V1 %SST(&STMT 001 55)
             CHGVAR &V2 %SST(&STMT 056 55)
             CHGVAR &V3 %SST(&STMT 111 55)
             CHGVAR &V4 %SST(&STMT 166 55)
             CHGVAR &V5 %SST(&STMT 221 55)
             CHGVAR &V6 %SST(&STMT 276 55)
             CHGVAR &V7 %SST(&STMT 331 55)
             CHGVAR &V8 %SST(&STMT 386 55)
             CHGVAR &V9 %SST(&STMT 441 55)
             CHGVAR &V10 %SST(&STMT 496 55)


             STRQMQRY   QMQRY(RUNSQL) SETVAR((V1 &V1) (V2 &V2) (V3 +
                          &V3) (V4 &V4) (V5 &V5) (V6 &V6) (V7 &V7) +
                          (V8 &V8) (V9 &V9) (V10 &V10))

ENDPGM

4. Create a command named RUNSQL as follows
             CMD        PROMPT('Run SQL Statement')       
             PARM       KWD(STMT) TYPE(*CHAR) LEN(550)

[report a broken link by clicking here]