mainframe - 如何在 Natural 中制作多维数组？

Question

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

   myVariable (A5/7500)

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

LOCAL                     
1 #JETFORMS-DATA (A7500)  
1 REDEFINE #JETFORMS-DATA 
  2 #JF-ARRAY (A1/7500)   

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

Answer 1

一点（不多）的搜索揭示了这一点：http ://documentation.softwareag.com/natural/nat638vms/pg/pg_defi_array.htm

来自文章：

定义一维数组

在格式和长度之后，指定一个斜杠，后跟一个所谓的“索引表示法”，即数组的出现次数。

例如，下面的一维数组有 3 次出现，每次出现的格式/长度为 A10：

DEFINE DATA LOCAL 
1 #ARRAY (A10/1:3) 
END-DEFINE 
...

为两个维度指定索引符号：

DEFINE DATA LOCAL 
1 #ARRAY (A10/1:3,1:4) 
END-DEFINE 
...

可以将二维数组可视化为表格。上面示例中定义的数组将是一个包含 3 个“行”和 4 个“列”的表：

Answer 2

Natural 最多只能处理 3 个数组维度。

例如，您可以像这样在 3D 中重新定义数据：

LOCAL 1     #JETFORMS-DATA (A7500)  
      1                                   REDEFINE  #JETFORMS-DATA 
       2    #JF-ARRAY      (A25/3,10,10)