用于定义 CL 命令以收集会话数据的源代码

在线编辑

CL CMD 程序 T1520CM1 显示在 图 1中。

此开发者定义的命令:
  • 按以下顺序提示用户输入: Item name， Unit price和 Number of items
  • 将输入数据存储在以下关键字参数中: ITEM， PRICE和 QUANTITY。
    注: 这些关键字参数是在 DDS 文件中定义的 T1520DD1。
图 1。 T1520CM1 -用于接收输入数据的 CL 命令源
          CMD        PROMPT('CALCULATE TOTAL COST')
          PARM       KWD(ITEM) TYPE(*CHAR) LEN(20) RSTD(*NO) +
                               MIN(1) ALWUNPRT(*NO) PROMPT('Item name' 1)
          PARM       KWD(PRICE) TYPE(*DEC) LEN(10 2) RSTD(*NO) +
                               RANGE(0.01 99999999.99) MIN(1) +
                               ALWUNPRT(*YES) PROMPT('Unit price' 2)
          PARM       KWD(QUANTITY) TYPE(*INT2) RSTD(*NO) RANGE(1 +
                               9999) MIN(1) ALWUNPRT(*YES) +
                               PROMPT('Number of items' 3)