Create qshqryaid.cmd

richardschoen · Feb 6, 2025 · 7d36d38 · 7d36d38
1 parent 165ce1f
commit 7d36d38
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/qshqryaid.cmd b/qshqryaid.cmd
@@ -0,0 +1,12 @@
+             CMD        PROMPT('SQL Add Unique ID Col to Table')
+             PARM       KWD(OUTFILE) TYPE(QUAL2) MIN(0) MAX(1) +
+                          PROMPT('Temp file to receive results')
+             PARM       KWD(IDCOLNAME) TYPE(*CHAR) DFT(RECID) MIN(0) +
+                          MAX(1) CASE(*MIXED) PROMPT('Record ID +
+                          column name')
+             PARM       KWD(PROMPT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
+                          DFT(*NO) VALUES(*NO *YES) MIN(0) MAX(1) +
+                          PROMPT('Prompt RUNSQL')
+ QUAL2:      QUAL       TYPE(*NAME) LEN(10) DFT(SQLTMP0001) EXPR(*YES)
+             QUAL       TYPE(*NAME) LEN(10) DFT(QTEMP) EXPR(*YES) +
+                          PROMPT('Library')