Question

我对 Cobol 还很陌生，在尝试创建类似 Python 字典的东西时遇到了困难，我们传递一个键，字典返回它的值。

Python 示例：

>>> dict
{'AC': 'Acre', 'AL': 'Alagoas', 'AP': 'Amapa'}
>>> dict['AC']
'Acre'

我正在尝试在 cobol 中执行此操作，使用重新定义创建两个数组（一个用于键，另一个用于值）。我已经创建了数组，但是一旦我只能访问具有整数值的数组，就不得不将这两个数组关联到键值函数中。

这是我的数据部门，如果有人可以帮助提供代码示例。

   DATA DIVISION.
   FILE SECTION.
   WORKING-STORAGE SECTION.
       01 WRK-KEYS.
           02 FILLER PIC X(2) VALUE "AC".
           02 FILLER PIC X(2) VALUE "AL".
           02 FILLER PIC X(2) VALUE "AP".

       01 WRK-TABLE-KEYS REDEFINES WRK-KEYS.
           02 WRK-KEY PIC X(2) OCCURS 3 TIMES.

       01 WRK-VALUES.
           02 FILLER PIC X(19) VALUE "Acre".
           02 FILLER PIC X(19) VALUE "Alagoas".
           02 FILLER PIC X(19) VALUE "Amapa".           

       01 WRK-TABLE-VALUES REDEFINES WRK-VALUES.
           02 WRK-VALUE PIC X(10) OCCURS 3 TIMES.

在 COBOL 中创建键值“字典”的最佳方法

0 个答案: