更改矢量元素的值

Question

在这种情况下，我想更改向量中第一个元素（设置为 1 ）的值，方法是将其加 1 - 但还有其他更复杂的算术。这是代码：

*************************************************************
           IDENTIFICATION DIVISION.
           PROGRAM-ID. YOUR-PROGRAM-NAME.
           DATA DIVISION.
           FILE SECTION.
               WORKING-STORAGE SECTION.
               01 TABLE1.
                   05 BERN PIC 9(1) OCCURS 10 TIMES VALUE 1.
           PROCEDURE DIVISION.
           MAIN-PROCEDURE.
               COMPUTE BERN(1) = BERN(1)+1.
               DISPLAY TABLE1.
               STOP RUN.
           END PROGRAM YOUR-PROGRAM-NAME.

问题是它不接受

 COMPUTE BERN(1) = BERN(1)+1.

正确的做法是什么？

Answer 1

COMPUTE BERN(1) = BERN(1) + 1

你错过了空格。我检查了 GnuCOBOL on OpenCobolIDE，它适用于空格，并且没有编译。

话虽这么说，一个好的旧 ADD 1 TO BERN(1) 应该也可以。

更改矢量元素的值

Change the value of a vector element

vector

cobol