时间戳

首页 > 解决方案 > 基于条件的命令参数填写提示

ibm-midrange - 基于条件的命令参数填写提示

问题描述

我想在 as400 中的 *CMD Creation 中根据命令提示符条件填充参数。

假设我们有 3 个参数（ABC）

参数 KWD(A) 类型 (*CHAR) 值(A1 A2) LEN(11) MIN(1)

参数 KWD(B) 类型 (*CHAR) 值(B1) LEN(11) MIN(1)

参数 KWD(C) 类型 (*CHAR) 值(C1) LEN(11) MIN(1)

这里我输入的第一个值是 Parm A 中的 A1。现在我只想演示一个字段，即字段 B。

那么接下来如果我在字段 A 中输入 A2 的值，那么现在我想演示该字段是 C。那么如何根据这些条件创建逻辑。

标签： ibm-midrange

解决方案

使用PMTCTL命令定义条件。然后PMTCTL在命令上使用参数PARM指定提示参数的条件。

             CMD        PROMPT('conditional paramters')

             PARM       KWD(A) TYPE(*CHAR) LEN(11) RSTD(*YES) +      
                          VALUES(A1 A2) PROMPT('parm a') 
             PARM       KWD(B) TYPE(*CHAR) LEN(11) RSTD(*YES) +      
                          VALUES(B1) PMTCTL(COND_A1) PROMPT('parm b')
             PARM       KWD(C) TYPE(*CHAR) LEN(11) RSTD(*YES) +      
                          VALUES(C1) PMTCTL(COND_A2) +               
                          PROMPT('parm c')
  COND_A1:   PMTCTL     CTL(A) COND((*EQ A1)) 
  COND_A2:   PMTCTL     CTL(A) COND((*EQ A2))

推荐阅读