-
Notifications
You must be signed in to change notification settings - Fork 20
/
QSHQRYSRC.CMD
31 lines (31 loc) · 1.88 KB
/
QSHQRYSRC.CMD
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
CMD PROMPT('SQL Query Src to Temp Table')
PARM KWD(SRCFILE) TYPE(QUAL1) MIN(1) MAX(1) +
PROMPT('SQL source file' 2)
PARM KWD(SRCMBR) TYPE(*CHAR) LEN(10) MIN(1) +
EXPR(*YES) CASE(*MONO) PROMPT('Source +
member' 3)
PARM KWD(IFSFILE) TYPE(*CHAR) LEN(255) DFT(*NONE) +
SPCVAL((*NONE ' ')) MAX(1) PROMPT('SQL +
IFS source file' 4)
PARM KWD(OUTFILE) TYPE(QUAL2) MIN(0) MAX(1) +
PROMPT('Temp file to receive results' 5)
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)
PARM KWD(PROMPT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*NO) VALUES(*NO *YES) MIN(0) MAX(1) +
PROMPT('Prompt RUNSQL' 7)
PARM KWD(DLTTMPSRC) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*YES) VALUES(*NO *YES) MIN(0) MAX(1) +
PROMPT('Delete temp source file after' 7)
PARM KWD(SQLLOC) TYPE(*CHAR) LEN(10) RSTD(*YES) +
DFT(*SRCMBR) VALUES(*SRCMBR *IFSFILE) +
MIN(0) MAX(1) PROMPT('SQL source from +
location type' 1)
QUAL2: QUAL TYPE(*NAME) LEN(10) DFT(SQLTMP0001) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) DFT(QTEMP) EXPR(*YES) +
PROMPT('Library')
QUAL1: QUAL TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) SPCVAL((*LIBL +
*LIBL)) EXPR(*YES) PROMPT('Library')