带有预填充元素的 iSeries/IBM i 命令 (CMDSRC)
iSeries / IBM i Command (CMDSRC) with Pre-Populated Elements
所以,我希望构建一个 iSeries / IBMi 命令,它可以选择附加代码(这些基本上是事务代码),它应该允许您指定...但我想默认最多 10 个中的前 3 个。
我的来源
PARM KWD(FROMDATE) TYPE(*CHAR) LEN(10) +
PROMPT('From YYYY-MM-DD')
PARM KWD(TODATE) TYPE(*CHAR) LEN(10) PROMPT('To +
YYYY-MM-DD')
PARM KWD(TXN) TYPE(*CHAR) LEN(1) RSTD(*YES) +
DFT(Y) VALUES(Y N) PROMPT('Specify TXN +
Codes Y or N')
PARM KWD(TXNLIST) TYPE(L2) PMTCTL(CHOOSETXN) +
PROMPT('TXN Code List')
L2: ELEM TYPE(*CHAR) LEN(5) MIN(0) MAX(10)
CHOOSETXN: PMTCTL CTL(TXN) COND((*EQ Y))
显示命令,
Type choices, press Enter.
From YYYY-MM-DD . . . . . . . . __________ Character value
To YYYY-MM-DD . . . . . . . . . __________ Character value
Specify TXN Codes Y or N . . . . Y Y, N
TXN Code List:
_____ Character value
+ for more values _____ ```
but I'd like the TXN Code List to be pre-populated??
E.g. pre-populate first three with "AA123", "BB124" & "ZZ999"
填充这些的一种方法是在调用此命令的 CL 程序中执行此操作。您可以使用设置默认值的局部变量填写参数。
DCL VAR(&TX1) TYPE(*CHAR) LEN(5)
DCL VAR(&TX2) TYPE(*CHAR) LEN(5)
DCL VAR(&TX3) TYPE(*CHAR) LEN(5)
CHGVAR VAR(&TX1) VALUE('AA123')
CHGVAR VAR(&TX2) VALUE('BB124')
CHGVAR VAR(&TX3) VALUE('ZZ999')
MYCMD TXN(Y) TXNLIST(&TX1 &TX2 &TX3)
如果需要,您还可以使用命令的 selective prompting,例如,如果您有一种类型的用户,您希望允许其输入日期选择字段,但只想使用默认交易代码,您可以将您的命令称为
MYCMD ??FROMDATE(*N) ??TODATE(*N) ?*TXN(Y) ?*TXNLIST(&TX1 &TX2 &TX3)
人们可能不希望使用另一个程序来完成任务的额外层,但也可以将其视为将关注点分离到适当的位置。我喜欢将 CMD 对象视为定义程序参数的受控方式,在概念上类似于原型。这确保我以一致的方式调用我的 RPG(或其他)程序,并且让我不必担心通过参数传入的损坏垃圾。我会说应该让 CMD 对象成为交通警察,以确保有效参数的可预测组合,并让任何特定的默认值,我认为这些默认值更有可能随着时间和情况在 CL 程序中设置。
部分选择可能取决于用户获取您的命令的方式。我在大多数用户从自定义菜单调用程序的系统中工作,并且很容易在链中设置 CL 程序。如果您的用例是供程序员或系统操作员直接从命令行调用它,那么您可能会认为使用 F4 提示符调用 CMD 对象比键入 CALL MYCMDTX
调用 CL 更容易,特别是如果你最终也需要参数。
好的...看起来子树就足够了...
CMD PROMPT('GENERATE TXNS')
PARM KWD(FROMDATE) TYPE(*CHAR) LEN(10) +
PROMPT('FROM YYYY-MM-DD')
PARM KWD(TODATE) TYPE(*CHAR) LEN(10) +
PROMPT('TO YYYY-MM-DD')
PARM KWD(SUBTREE) TYPE(*CHAR) LEN(1) RSTD(*YES) +
DFT(Y) VALUES(Y N) PROMPT('SPECIFY')
PARM KWD(TXNLIST) TYPE(TXNVALS) +
PMTCTL(SUBTREEY) PROMPT('TXN CODES')
TXNVALS: ELEM TYPE(*CHAR) LEN(5) DFT(AA123)
ELEM TYPE(*CHAR) LEN(5) DFT(BB124)
ELEM TYPE(*CHAR) LEN(5) DFT(ZZ999)
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
SUBTREEY: PMTCTL CTL(SUBTREE) COND((*EQ Y))
看起来像这样...虽然我仍然需要测试 CL 参数...
GENERATE TXNS (TESTCMD)
Type choices, press Enter.
FROM YYYY-MM-DD . . . . . . . . FROMDATE
TO YYYY-MM-DD . . . . . . . . . TODATE
SPECIFY . . . . . . . . . . . . SUBTREE Y
TXN CODES: TXNLIST
AA123
BB124
ZZ999
_____
_____
_____
_____
_____
_____
_____
遗憾的是,参数定义的 DFT
关键字仅支持单个值。
我的第一个想法是,也许您可以利用 prompt override program,其中:
allows current values rather than defaults to be displayed when a
command is prompted
可行的方法是使用特殊值 *DFT
或定义为默认值的值。如果用户提示命令,则他们可以看到实际值。但是看起来您需要指定 PMTCTL(*PMTRQS)
因为它是一个列表参数而不是单个值;这意味着用户还必须点击 F10=Additional parameters.
所以,我希望构建一个 iSeries / IBMi 命令,它可以选择附加代码(这些基本上是事务代码),它应该允许您指定...但我想默认最多 10 个中的前 3 个。
我的来源
PARM KWD(FROMDATE) TYPE(*CHAR) LEN(10) +
PROMPT('From YYYY-MM-DD')
PARM KWD(TODATE) TYPE(*CHAR) LEN(10) PROMPT('To +
YYYY-MM-DD')
PARM KWD(TXN) TYPE(*CHAR) LEN(1) RSTD(*YES) +
DFT(Y) VALUES(Y N) PROMPT('Specify TXN +
Codes Y or N')
PARM KWD(TXNLIST) TYPE(L2) PMTCTL(CHOOSETXN) +
PROMPT('TXN Code List')
L2: ELEM TYPE(*CHAR) LEN(5) MIN(0) MAX(10)
CHOOSETXN: PMTCTL CTL(TXN) COND((*EQ Y))
显示命令,
Type choices, press Enter.
From YYYY-MM-DD . . . . . . . . __________ Character value
To YYYY-MM-DD . . . . . . . . . __________ Character value
Specify TXN Codes Y or N . . . . Y Y, N
TXN Code List:
_____ Character value
+ for more values _____ ```
but I'd like the TXN Code List to be pre-populated??
E.g. pre-populate first three with "AA123", "BB124" & "ZZ999"
填充这些的一种方法是在调用此命令的 CL 程序中执行此操作。您可以使用设置默认值的局部变量填写参数。
DCL VAR(&TX1) TYPE(*CHAR) LEN(5)
DCL VAR(&TX2) TYPE(*CHAR) LEN(5)
DCL VAR(&TX3) TYPE(*CHAR) LEN(5)
CHGVAR VAR(&TX1) VALUE('AA123')
CHGVAR VAR(&TX2) VALUE('BB124')
CHGVAR VAR(&TX3) VALUE('ZZ999')
MYCMD TXN(Y) TXNLIST(&TX1 &TX2 &TX3)
如果需要,您还可以使用命令的 selective prompting,例如,如果您有一种类型的用户,您希望允许其输入日期选择字段,但只想使用默认交易代码,您可以将您的命令称为
MYCMD ??FROMDATE(*N) ??TODATE(*N) ?*TXN(Y) ?*TXNLIST(&TX1 &TX2 &TX3)
人们可能不希望使用另一个程序来完成任务的额外层,但也可以将其视为将关注点分离到适当的位置。我喜欢将 CMD 对象视为定义程序参数的受控方式,在概念上类似于原型。这确保我以一致的方式调用我的 RPG(或其他)程序,并且让我不必担心通过参数传入的损坏垃圾。我会说应该让 CMD 对象成为交通警察,以确保有效参数的可预测组合,并让任何特定的默认值,我认为这些默认值更有可能随着时间和情况在 CL 程序中设置。
部分选择可能取决于用户获取您的命令的方式。我在大多数用户从自定义菜单调用程序的系统中工作,并且很容易在链中设置 CL 程序。如果您的用例是供程序员或系统操作员直接从命令行调用它,那么您可能会认为使用 F4 提示符调用 CMD 对象比键入 CALL MYCMDTX
调用 CL 更容易,特别是如果你最终也需要参数。
好的...看起来子树就足够了...
CMD PROMPT('GENERATE TXNS')
PARM KWD(FROMDATE) TYPE(*CHAR) LEN(10) +
PROMPT('FROM YYYY-MM-DD')
PARM KWD(TODATE) TYPE(*CHAR) LEN(10) +
PROMPT('TO YYYY-MM-DD')
PARM KWD(SUBTREE) TYPE(*CHAR) LEN(1) RSTD(*YES) +
DFT(Y) VALUES(Y N) PROMPT('SPECIFY')
PARM KWD(TXNLIST) TYPE(TXNVALS) +
PMTCTL(SUBTREEY) PROMPT('TXN CODES')
TXNVALS: ELEM TYPE(*CHAR) LEN(5) DFT(AA123)
ELEM TYPE(*CHAR) LEN(5) DFT(BB124)
ELEM TYPE(*CHAR) LEN(5) DFT(ZZ999)
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
ELEM TYPE(*CHAR) LEN(5) DFT('')
SUBTREEY: PMTCTL CTL(SUBTREE) COND((*EQ Y))
看起来像这样...虽然我仍然需要测试 CL 参数...
GENERATE TXNS (TESTCMD)
Type choices, press Enter.
FROM YYYY-MM-DD . . . . . . . . FROMDATE
TO YYYY-MM-DD . . . . . . . . . TODATE
SPECIFY . . . . . . . . . . . . SUBTREE Y
TXN CODES: TXNLIST
AA123
BB124
ZZ999
_____
_____
_____
_____
_____
_____
_____
遗憾的是,参数定义的 DFT
关键字仅支持单个值。
我的第一个想法是,也许您可以利用 prompt override program,其中:
allows current values rather than defaults to be displayed when a command is prompted
可行的方法是使用特殊值 *DFT
或定义为默认值的值。如果用户提示命令,则他们可以看到实际值。但是看起来您需要指定 PMTCTL(*PMTRQS)
因为它是一个列表参数而不是单个值;这意味着用户还必须点击 F10=Additional parameters.