在非常简单的COBOL程序中使用OCCURS时出错

Question

这是我的代码，其中iIam使用OCCURS声明变量。

   IDENTIFICATION DIVISION.
   PROGRAM-ID. ARRAYEX.

   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
        SELECT StudentFile ASSIGN TO "STUDENTS.DAT"
            ORGANIZATION IS LINE SEQUENTIAL.

   DATA DIVISION.
   WORKING-STORAGE SECTION.
   77 WS-FIRSTARR OCCURS 10 TIMES PIC 9(5).

   PROCEDURE DIVISION.

   DISPLAY "HELLO WORLD".
   STOP RUN.

错误：

arrayex.cbl：12：错误：级别77项“ WS-FIRSTARR”不能具有OCCURS子句

编译失败有任何原因吗？

Answer 1

77不能有OCCURS。 01不能有OCCURS。 02-49级可以设置OCCURS。

忘记级别66（用于RENAMES子句），因为您不应该使用它，并且不太可能看到它。

88级别（条件名称）不能出现，但是如果其定义的字段是OCCURS的一部分或从属于OCCURS，则88将需要像任何02--49级别一样下标OCCURS的一部分或从属。

01  a-simple-array-structure.
    05  the-data occurs 5 times           pic 9(5).

否则您会变得更加复杂。

01  b-structure.
    95  the-key                           pic x(8).
    05  some-data                         pic x(10).
    05  some-more-data                    pic 9(7).
    05  a-simple-array.
        10  a-simple-array-item occurs 5 times       
                                          pic 9(5).
    05  a-more-complex-array.
        10  complex-entry occurs 10 times.
            15  some-complex-data         pic xx.
            15  another-bit-of-complex-data
                                          pic 9(5).

OCCURS也可以用于定义多维表。

    05  first-occurs occurs 5 times.
        10  second-occurs occurs 5 times.
            15  an-item                   pic xx.

这还远未达到OCCURS的全部要求，因此，从简单开始，实践，使它起作用，变得更加复杂。

还有OCCURS DEPENDING ON，可变长度表。 一心一意。 获得一个简单的OCCURS，不仅可以使用定义，还可以使用，并为下标提供了一个字段，为下标提供了索引，为下标提供了文字。

然后变得更复杂。

Answer 2

COBOL有几个“魔术”等级数字...

• 级别66的项目指示应使用RENAMES子句
• 77级项目是原子的，不能细分，不能有OCCURS子句。
• 级别88指示条件名称条目

请参阅《 程序员指南》第5-4和5-5页。