ibm-midrange - 如何在 CL 编程中添加编辑和验证规则？ (As400)

Question

请注意这是大学的“扩展知识”(可选任务)，而不是作业

我有一个名为 INVFILE 的物理文件和一个名为 INVFILE1 的逻辑文件>

我有一个名为 INVCL99 的 CL 程序

这是我的 INVFILE1

列

R INVFILE 1
  PARTDESC
  ONHAND
  UNITCOST
  STOCK
  PARTNUM
K PARTNUM

这是我的 CL 程序的代码

PGM

         SNDUSRMSG MSG('EXECUTING INVENTORY PROGRAM, PRESS ENTER')

         CHGDTA DFUPGM(INVENTORLB/INVENTORY) FILE(INVENTORLB/INVFILE1)

ENDPGM

我希望能够做的是验证 STOCK 列。目前它只接受 1 个字符，或者不接受任何字符。

我想对其进行验证，使其只能接受 1 个特定字符 * 或留空，不能输入任何其他内容。

我一直在谷歌上搜索，试图找到一些可以帮助我解决这个问题的资源，但不幸的是我找不到任何东西。有人可以告诉我在哪里看吗？或者告诉我我需要做什么？

此外，不确定我是否应该为此创建另一个问题，但我一直在尝试使用多种方法来在我的 DFU 程序示例中输入小数:购买总额 2300.29，我尝试了引起问题的 float ，我试过压缩小数，但我似乎无法弄清楚如何允许输入小数/句点。

谢谢。

Answer 1

DFU 允许指定列，从Work with Fields 面板，2=Specify Extended Definition，然后2=Change Validity checks 提示，在 Specify Validity Checks 面板中，DDS VALUES 关键字的参数可以在 List of values prompt if\when Relational Operator 提示设置为 LS=List of values。

因为在数据库文件 DDS [PF 或 LF] 中指定 VALUES() 在程序生成器和 DDS 编译器为创建显示文件 (CRTDSPF) 提供的内容之外没有任何影响 [数据库不关心实际 I\O 的指定]，在 PF 或 LF DDS 中编码 VALUES 的唯一好处是确保 DFU 和 CRTDSPF 看到 同样的输入限制； PF 通常是将属性带到 LF 和其他地方的更好选择。注意:用于创建打印机文件 (CRTPRTF) 的 DDS 编译器可以识别其他关键字，但不能识别 VALUES，因为 PRTF 是仅输出的，而允许像 DSPF 这样的输入。

我忘记了如何为 DSPF 编写 DDS 代码以覆盖无法键入小数点的句点，但我似乎记得添加了编辑代码 (EDTCDE) 并删除了用于键入的 CHECK 关键字可以有小数点；要求 DFU 保存 DDS，然后查看该功能生成的内容，然后可以创建和使用自定义版本。 DFU 的另一个刺激性影响是强制大写；我记得这是一个可以更改的 DSPATR 关键字设置。交互式 DFU 代码生成器可能会像编码有限值的能力一样，为这两个问题指定功能，但我不记得了，粗略地看了一下我没有看到任何东西。