ibm-midrange - 具有预填充元素的 iSeries / IBM i 命令 (CMDSRC)
问题描述
所以,我正在寻找构建一个 iSeries / IBMi 命令,它可以选择附加代码(这些本质上是事务代码),它应该允许你指定......但我想默认前 3 个最多 10 个。
我的来源
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"
解决方案
好的...所以看起来 SUBTREE 就足够了...
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
_____
_____
_____
_____
_____
_____
_____
推荐阅读
- r - fromJSON 在 R Shiny
- collections - 使用 Mapstruct 映射集合并为单个实例指定方法?
- spring-boot - 使用 Spring Boot 进行 Azure AD 身份验证
- java - Java 11:补丁 sun.misc.BASE64Encoder
- python - 实时绘制通过 TCP/IP 接收的数据
- javascript - JavaScript,提交按钮检查输入是否为空
- c# - 从 XML 字符串中提取内部节点到 JSON 字符串
- javascript - 打字稿:TypeError:无法读取 null 的属性“yc”
- android - Calendar.set(field,value) 没有正确设置小时
- automation - 如何在 Vividus 的故事级别上使用示例表并行执行故事?