arrays - 在 RPG 过程中接受未知大小的数组

Question

我正在尝试创建一个过程，该过程将采用一个数组并返回已使用元素的计数(为什么这不是 BIF？？)。我正在努力寻找一种将未知大小的数组传递给我的程序的方法。

类似...

P count         B
D count         PI              3  0 
D  array                         *
D  size                        10  0
D  elems                        3  0
 *
D ct            S               3  0
 /free
  // find the first blank or zero element and return 
 /end-free
P count         E

显然我是新手，所以我有几个问题:

1. 有没有办法将 size 和 max 元素作为参数传递(或者可能是传递一种带有数据详细信息的 header 数据包的方法)？
2. 有没有办法确定数据的类型？ (所以我知道要查找 *ZEROS 还是 *BLANKS)
3. 我是否缺少其他更好的方法来解决这个问题？

我知道我可以保留一个单独的计数器变量，每当我在数组中设置一个元素时，该变量就会递增，但我真的很想找到一个更好的解决方案...感谢您的阅读。

Answer 1

我从事 RPG 编程已经……嗯，很长一段时间了。看到一个新的 RPG 程序员真是太棒了，看到从一开始就使用现代编码概念更是令人惊叹。

RPG 从固定大小的一切开始。固定大小的字符串、固定大小的数字和固定大小的数组。作为一种基于穿孔卡片的强类型语言，这一切都是有道理的。当然，现代计算需求往往需要不同大小的字符串、数字和数组。 RPG 仍然是强类型的，所以给定的变量只能是字符串或数字；它永远不能切换类型。这也意味着编译器无法在运行时确定变量类型——变量类型是不可变的，程序员和编译器都知道该类型是什么。哦，好吧。

至于你的变长数组，有一些希望。米哈尔施密特有一个 service program called ArrayList这可能会满足您的许多需求。