Update QSHQRYSRC.CMD

richardschoen · Feb 7, 2025 · d70a92d · d70a92d
1 parent 11425db
commit d70a92d
Showing 1 changed file with 15 additions and 7 deletions.
diff --git a/QSHQRYSRC.CMD b/QSHQRYSRC.CMD
@@ -7,27 +7,35 @@
              PARM       KWD(IFSFILE) TYPE(*CHAR) LEN(255) DFT(*NONE) +
                           SPCVAL((*NONE ' ')) MAX(1) PROMPT('SQL +
                           IFS source file' 4)
+             PARM       KWD(PARMS) TYPE(*CHAR) LEN(100) RSTD(*NO) +
+                          MAX(30) EXPR(*YES) CASE(*MIXED) +
+                          INLPMTLEN(32) PROMPT('SQL placeholder +
+                          parm name' 5)
+             PARM       KWD(PARMVALS) TYPE(*CHAR) LEN(100) RSTD(*NO) +
+                          MAX(30) EXPR(*YES) CASE(*MIXED) +
+                          INLPMTLEN(32) PROMPT('SQL parm +
+                          replacement value' 6)
              PARM       KWD(OUTFILE) TYPE(QUAL2) MIN(0) MAX(1) +
-                          PROMPT('Temp file to receive results' 5)
+                          PROMPT('Temp file to receive results' 7)
              PARM       KWD(EMPTYERROR) TYPE(*CHAR) LEN(4) +
                           RSTD(*YES) DFT(*YES) VALUES(*NO *YES) +
                           MIN(0) MAX(1) PROMPT('Escape error if no +
-                          result data' 6)
+                          result data' 8)
              PARM       KWD(NAMING) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                           DFT(*SYS) VALUES(*SYS *SQL) MIN(0) MAX(1) +
-                          PROMPT('Naming' 7)
+                          PROMPT('Naming' 9)
              PARM       KWD(PROMPT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                           DFT(*NO) VALUES(*NO *YES) MIN(0) MAX(1) +
-                          PROMPT('Prompt RUNSQL' 8)
+                          PROMPT('Prompt RUNSQL' 10)
              PARM       KWD(CRTIDCOL) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                           DFT(*NO) VALUES(*NO *YES) MIN(0) MAX(1) +
-                          PROMPT('Create row identity column' 9)
+                          PROMPT('Create row identity column' 11)
              PARM       KWD(IDCOLNAME) TYPE(*CHAR) DFT(RECID) MIN(0) +
                           MAX(1) CASE(*MIXED) PROMPT('Record ID +
-                          column name' 10)
+                          column name' 12)
              PARM       KWD(DLTTMPSRC) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                           DFT(*YES) VALUES(*NO *YES) MIN(0) MAX(1) +
-                          PROMPT('Delete temp source file after' 11)
+                          PROMPT('Delete temp source file after' 13)
              PARM       KWD(SQLLOC) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                           DFT(*SRCMBR) VALUES(*SRCMBR *IFSFILE) +
                           MIN(0) MAX(1) PROMPT('SQL source from +