PERFORM TIMESによる繰り返し

繰り返す回数があらかじめ明確になっている場合は、PERFORM TIMESが便利です。

下記は、繰り返しを10回行う処理のサンプルソースです。

000010 IDENTIFICATION                   DIVISION.
000020 PROGRAM-ID.                      SAMPLE-11.
000030*
000040 ENVIRONMENT                      DIVISION.
000050*
000060 DATA                             DIVISION.
000070 WORKING-STORAGE                  SECTION.
000080 77 WRK-COUNTER                   PIC 9(3).
000090*
000100 PROCEDURE DIVISION.
000110 MAIN.
000120     MOVE  1                      TO  WRK-COUNTER.
000130     PERFORM  10 TIMES
000140         DISPLAY  "WRK-COUNTERは " WRK-COUNTER   UPON  CONSOLE
000150          ADD  1                   TO  WRK-COUNTER
000160     END-PERFORM.
000170     STOP RUN.

PERFORM TIMES 書式: PERFORM 回数 TIMES
      :
    命令文1
    命令文2
      :
END-PERFORM.

※回数は数値定数か数値形式のデータ項目で指定する。
※EXIT PERFORM文を実行すると、そのタイミングで繰り返し処理から抜ける。
※PERFORMからEND-PERFORMまでの間に記述する命令文にはピリオド不要。