cobol - 有没有办法让执行不结束(比如无限循环)？

Question

有没有办法做到这一点？我希望 perform 仅在执行 exit 语句时退出。如果不是，我希望它继续循环。

Answer 1

我喜欢使用“PERFORM FOREVER”，因为它清楚地将代码标识为无限循环。 “执行直到退出”也有效。下面是一些使用无限循环和“EXIT PERFORM”语句打印数字 1 到 10 的示例代码。此代码适用于 GNUCobol 2.0。

   IDENTIFICATION DIVISION.
   PROGRAM-ID. INFINITE-LOOP.

   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.

   DATA DIVISION.
   FILE SECTION.

   WORKING-STORAGE SECTION.
   01  COUNTER                          PIC 99 VALUE ZERO.

   PROCEDURE DIVISION.

  * USE EITHER OF THE TWO FOLLOWING LINES
  * WHICHEVER YOU FIND MORE MEANINGFUL
  *    PERFORM UNTIL EXIT
       PERFORM FOREVER
           ADD 1 TO COUNTER
           DISPLAY COUNTER
           IF COUNTER > 9
               EXIT PERFORM
           END-IF
       END-PERFORM
       STOP RUN
       .