操纵COBOL数据结构

Question

我想知道操纵表格的信息 我遇到一些像下面这样的cobol代码的问题：

01 TABLE-1.  
    05 STRUCT-1 OCCURS 25 TIMES.
        10 VALUE-1 PIC AAA.  
        10 VALUE-2 PIC 9(5)V999.  
    05 NUMBER-OF-OCCURS PIC 99.

如何更新值？ （当你知道VALUE-1时更新VALUE-2）
如何查找值并添加新值？ 非常感谢！

Answer 1

Answer 2

为了填充和修改工作存储部分中的表中的数据，您需要使用可以在工作存储中定义的下标/索引，然后编写处理 程序部门的代码。在这种情况下，您可以使用perform..until。

Answer 3

哇...这是一个很长的答案。假设一个名为II的数字：

从1开始执行变化II

直到II＆gt; NUMBER-OF-OCCURS

如果值-1（II）=已知值-1

 Move New-Value-2 to Value-2 (II)

最终如果

结束 - 执行