forked from richardschoen/QshOni
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathQSHGETPR2.CMD
More file actions
40 lines (40 loc) · 2.27 KB
/
Copy pathQSHGETPR2.CMD
File metadata and controls
40 lines (40 loc) · 2.27 KB
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
32
33
34
35
36
37
38
39
40
CMD PROMPT('Scan Qshell Log for Parm Vals')
PARM KWD(RETURN01) TYPE(*CHAR) LEN(255) +
RTNVAL(*YES) CASE(*MIXED) PROMPT('Return +
parm 1 (255)')
PARM KWD(RETURN02) TYPE(*CHAR) LEN(255) +
RTNVAL(*YES) CASE(*MIXED) PROMPT('Return +
parm 2 (255)')
PARM KWD(RETURN03) TYPE(*CHAR) LEN(255) +
RTNVAL(*YES) CASE(*MIXED) PROMPT('Return +
parm 3 (255)')
PARM KWD(RETURN04) TYPE(*CHAR) LEN(255) +
RTNVAL(*YES) CASE(*MIXED) PROMPT('Return +
parm 4 (255)')
PARM KWD(RETURN05) TYPE(*CHAR) LEN(255) +
RTNVAL(*YES) CASE(*MIXED) PROMPT('Return +
parm 5 (255)')
PARM KWD(RETURN06) TYPE(*CHAR) LEN(255) +
RTNVAL(*YES) CASE(*MIXED) PROMPT('Return +
parm 6 (255)')
PARM KWD(RETURN07) TYPE(*CHAR) LEN(255) +
RTNVAL(*YES) CASE(*MIXED) PROMPT('Return +
parm 7 (255)')
PARM KWD(RETURN08) TYPE(*CHAR) LEN(255) +
RTNVAL(*YES) CASE(*MIXED) PROMPT('Return +
parm 8 (255)')
PARM KWD(RETURN09) TYPE(*CHAR) LEN(255) +
RTNVAL(*YES) CASE(*MIXED) PROMPT('Return +
parm 9 (255)')
PARM KWD(RETURN10) TYPE(*CHAR) LEN(255) +
RTNVAL(*YES) CASE(*MIXED) PROMPT('Return +
parm 10 (255)')
PARM KWD(WRTDIAGMSG) TYPE(*CHAR) LEN(4) +
RSTD(*YES) DFT(*NO) VALUES(*NO *YES) +
PROMPT('Write return parms to joblog')
PARM KWD(WRTDTAARA) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*NO) VALUES(*NO *YES) PROMPT('Write +
return parms to dtaara')
PARM KWD(DTAARALIB) TYPE(*CHAR) LEN(10) +
DFT(QTEMP) PROMPT('Library for temp data +
areas')