From 3e94f84f0bff4a233e49a98a53668b4a1f840fe8 Mon Sep 17 00:00:00 2001 From: Richard Schoen Date: Fri, 4 Aug 2023 18:12:00 -0500 Subject: [PATCH] Create QSHGETPARM.CMD --- QSHGETPARM.CMD | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 QSHGETPARM.CMD diff --git a/QSHGETPARM.CMD b/QSHGETPARM.CMD new file mode 100644 index 0000000..b66b75f --- /dev/null +++ b/QSHGETPARM.CMD @@ -0,0 +1,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)')