【COBOL】カウントを数えて表示する方法

COBOLでカウントを数えて表示する方法です。主に処理件数を表示する際などに使用します。

実例

IDENTIFICATION DIVISION.
PROGRAM-ID. CountExample.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Counter      PIC 9(5) VALUE 0.
01 MaxCount     PIC 9(5) VALUE 10.

PROCEDURE DIVISION.

    PERFORM UNTIL Counter >= MaxCount
        ADD 1 TO Counter
        DISPLAY 'Count is ' Counter
    END-PERFORM.

    STOP RUN.

この例では、Counter と MaxCount という2つの変数を使用しています。Counter はループの中でインクリメントされ、MaxCount はループを継続する上限値です。PERFORM UNTIL ステートメントは、指定された条件が満たされるまでループを実行します。

上記のコードでは、ADD 1 TO Counter ステートメントにより Counter 変数が1ずつ増加し、DISPLAY ステートメントで現在の値を表示しています。指定した上限値（MaxCount）まで繰り返します。

これは基本的な例であり、実際の使用ケースによっては、もっと複雑な条件や制御構造が必要になるかもしれません。