更改矢量元素的值

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上使用OpenCobolIDE进行了检查，它与空格一起使用，并且在没有空格的情况下进行编译。

话虽这么说，一个好的老ADD 1 TO BERN(1)也应该起作用。