我正在尝试将从文本文件接收到的模式存储到 COBOL 中的表中。我正在使用 READ.. INTO.. 语句来做到这一点,这就是我到目前为止所拥有的。
WORKING-STORAGE SECTION.
01 ROWCOL.
03 NROW PIC 9(3).
03 NCOL PIC 9(2).
01 PATT-INIT.
03 ROW PIC X OCCURS 1 TO 80 TIMES
DEPENDING ON NCOL.
01 PATT.
03 COL OCCURS 1 TO 80 TIMES
DEPENDING ON NCOL.
05 ROW OCCURS 1 TO 100 TIMES
DEPENDING ON NROW PIC X.
PROCEDURE DIVISION.
MAIN-PARAGRAPH.
OPEN INPUT INPUT-FILE.
READ INPUT-FILE INTO ROWCOL.
PERFORM READ-PATTERN
STOP RUN.
READ-PATTERN.
READ INPUT-FILE INTO PATT-INIT(1:NCOL).
input.txt 中的模式如下所示:
011000
001010
010100
问题是,我不确定如何将 PATT-INIT 阵列放入 PATT 2d 阵列中。我只使用 PATT-INIT 数组逐行接收每行中的模式。然后,我试图将它存储到 PATT 2d 数组中,以便我可以通过索引号访问每个数字。例如 PATT(1:2) 将返回 1。
请给我一些关于如何实现这一点的指示。如果 READ.. INTO.. 不是要走的路,我很高兴收到其他建议。