loopsample.cbl

来自「用COBOL语言基于IBM大型机实现的一系列样例程序。」· CBL 代码 · 共 20 行

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    LOOPS.
       AUTHOR.        DEVBYJ.
       DATE-WRITTEN.  2005/12/28.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 SUB-A                   PIC 9.
       01 TABLE-ONE.
         05 TABLE-ELEMENT         OCCURS 15 TIMES
                                  PIC 9(3).
       PROCEDURE DIVISION.
       MAIN.
           MOVE        1          TO  SUB-A
           PERFORM     UNTIL      SUB-A > 10
             ADD       1          TO  SUB-A
             MOVE      SUB-A      TO  TABLE-ELEMENT(SUB-A)
           END-PERFORM.
           DISPLAY     "OUTPUT=" TABLE-ONE.
           STOP RUN.