-
Notifications
You must be signed in to change notification settings - Fork 19
/
QSHGETPARM.CMD
31 lines (31 loc) · 1.73 KB
/
QSHGETPARM.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('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)')