ibm-midrange - 谁能解释为什么 %char() 会发生十进制数据错误？

Question

首先，我不只是在寻找解决此错误消息的解决方案。我会更感激被引导到解释这个错误的文档而不是代码问题的解决方案。我需要了解为什么会发生这种情况，因为我找不到任何解释导致此错误的原因的文档。我对 RPG 比较陌生（不到 2 年），所以我对此的无知程度还算合理。

我正在编写一些于 2017 年 10 月重新编译的遗留 RPG 代码。此代码自 2013 年以来一直存在。

我的问题是我的用户最近（在过去 3-4 个月内）开始收到在这行代码上报告的十进制数据错误：

C                   EvalR     NewValueA = %char(NewValue)

错误消息的转储显示 NewValue 为空。不是0，只是空的。根据我使用其他语言的经验，这是一个 NULL。我的所有资源（包括 Google）都没有说明 RPGLE 中的 %char() 是如何处理 NULL 的。很容易假设%char() 不能优雅地处理 NULL 并继续前进，但在代码审查中很难证明这一点。

NewValue 定义为 7 0 十进制。NewValueA 是一个 8 个字符的字符。

提前感谢所有提供富有成效的评论的人。

标签： ibm-midrangerpglerpg

Answer 1

当前版本的 RPG 不完全支持 NULL。

具体来说，独立变量不能为 NULL。只有在外部描述的文件（表）中直接或间接（通过LIKE、LIKEDS或）产生并且在该文件中定义为允许 NULL 的变量在 RPG 程序中可以为 NULL LIKEREC甚至需要使用 ALWNULL(*USRCTL) 选项编译程序。请参阅数据库空值支持

虽然这种支持已经存在很长时间（ILE 的开始？），但大多数遗留文件和相关的 RPG 代码不使用 NULL。

所以NewValue不可能为空（NULL）。
您在调试中看到的十六进制值是多少？

正如 jtaylor 的回答所提到的，大多数十进制数据错误来自写入旧 DDS 定义文件的错误数据。但是，在这种情况下，读取文件时会引发错误，而不是在您显示的行上。（除非文件被直接读入数据结构。）

在哪里NewValue定义？它如何获得价值？

对于程序变量，十进制数据错误的最可能原因是数字变量位于未指定INZ关键字的数据结构中。在这种情况下，数据结构被初始化为所有空白。