问题标签 [adabas-natural]

我是NATURAL 编程语言的新手。我正在尝试找到一种方法，可以将一个参数传递给子例程，就像在 C++ 或 Java 中一样。现在我必须将所有内容移动到另一个变量并调用该方法。因此很麻烦并且要编写更多的代码。

问题：自然程序子例程可以有像 C++ 或 Java 中的参数列表吗？

代码：

我想做的事。

代码：

代码中下面的重新定义是否使 #JF-ARRAY 成为 Natural 中的一维数组。我想让它成为一个 5 维数组，但我不确定这是否会像这样。

或者如果有另一种格式可以让我这样做。

问题：如何在 Natural 中制作数组？

I am trying to only print unique case numbers (which are located in the first 5 bytes of each input record). My input file structure is as in this example:

I should be able to read in the case number such as 0001 (or 00002, 00003, ...) and save that in a temp variable. Then compare the value of that temp variable to the case number of the current record being processed. When they do not match then I need to write the case number (as contained in the temp variable) to my output file. And then continue processing the remaining records.

So in the end, my output file should look similar to this one (note that only the last records with case number either 00001 or 00002 were written):

Here is my code so far:

我无法弄清楚如何在 Natural Adabas 中修复此错误。我刚开始在一个非常旧的版本上使用 Natural，而我在尝试运行以前开发人员编写的大多数现有程序时一直遇到的问题是我不断收到此错误。

NAT3176 调用 Adabas 子例程或倒排列表时出错。

所以我尝试了一个我自己的非常基本的程序，结果相同（见下文）。有谁知道如何解决这个问题或可以采取哪些步骤进行调试？

我的第一个想法是 STUD 列表不存在，即使它有一个 DDM。有没有办法验证它是否存在？

我的测试程序如下：

我想在我的 NATURAL 程序的一行中加入一些说明。像这样 ：

我知道在大多数语言中这很容易做到，但我不确定在 Natural 中是否可行。

我需要从复杂的 COBOL 结构（大型机）生成 xml 文件。我不能使用 XML GENERATE cobol 函数，因为数据树太大而无法放入 WS（大约 8 个嵌套数组，每个数组大约出现 75 个 30 字节），因此没有一个组项可以传递给 xml 生成函数.

我能想到的唯一选择是通过逐级遍历所需 adabas 表上的层次结构并填充文件来“手动”生成 xml，这个选项对我来说的问题是我不知道如何过去每次重新创建文件并“嵌套”下一个节点。

有没有更好的办法？

数据来自 ADABAS 表，我也可以使用自然表，是否有更好的使用自然表的解决方案？据我所知，自然不允许嵌套超过 3 层，这对我来说是个问题。

谢谢！

我需要有关此的帮助或参考。我正在研究一种叫做 Natural 的 MF 语言，它在 ADABAS MF 中使用。我们现在拥有的编程工具是预先准备好的。我想知道是否有类似于这种语言的 somting 作为 VS CODE 中用于格式化、linting 等的扩展。我知道 COBOL（旧语言）有 somting，但我什么也找不到。

自然代码如下所示：

或者