COBOL

COBOLのPERFORM命令とは？処理を呼び出す・繰り返すためのPERFORMの使い方

折乃　杏

インフラエンジニア/ヘルプデスク（COBOLも経験あり）/ボールド歴3年

最終更新日:2024/9/1

COBOLでは、PERFORMという命令文があります。

プログラム内で、ある処理を繰り返し実行させたいときに使用しますが、繰り返しの回数や終了条件を指定することができます。

使用例をあげながら、PERFORM命令を使った記述方法について解説します。

１．PERFORM命令の基本的な使い方
- １-１．PERFORM命令の書式
- １-２．PERFORM命令の使用例
２．PERFORM命令とGO TO命令の違い
３．補足　COBOLコーディングのルール
- ３-１．英大文字と英小文字の使い方
- ３-３．COBOLは４つの部からできている
４．最後に

１．PERFORM命令の基本的な使い方

PERFORM命令には、主に以下の2つの使い方があります。

サブルーチン（処理のまとまり）の呼び出し
ある条件を満たすまで、処理を繰り返す（回数、または終了条件）

Aでは、呼び出したサブルーチンを１回実行したら、PERFORM命令記述行から次の行へ処理が進みます。

Bの場合は、指定の回数や終了条件を満たすまで、処理を繰り返してから次の行へ処理が進みます。

１-１．PERFORM命令の書式

以下の書式で記述します。

①サブルーチンの呼び出し

PERFORM ＜手続き名＞

＜手続き名＞で記述された処理を1回実行します。

②ある終了条件を満たすまで繰り返す（UNTILの使用）

PERFORM ＜手続き名＞ UNTIL ＜終了条件＞

例：PERFORM ＜手続き名＞ UNTIL END-FLG = “END”

＜手続き名＞で記述された処理を「END-FLG」に「END」が入力されるまで繰り返します。

③ある終了条件を満たすまで繰り返す（VARYINGの使用）

PERFORM VARYING CNT FROM ＜初期値＞ BY ＜増分値＞ UNTIL ＜終了条件＞

例：PERFORM VARYING CNT FROM 1 BY 1 UNTIL CNT = 100

ADD 3 TO WRK-NUM

END-PERFORM.

「CNT」の値が100になるまで「WRK-NUM」に3を足す処理を繰り返します。

「ADD 3 TO WRK-NUM」を１回実行すると「CNT」の値が1増えます。

④ある終了条件を満たすまで繰り返す（回数を指定）

PERFORM ＜繰り返す回数＞ TIMES

例：PERFORM 5 TIMES

ADD 3 TO WRK-NUM

END-PERFORM.

５回繰り返します。

※＜手続き名＞に相当するのは、節名と段落名があります。

１-２．PERFORM命令の使用例

※「WRK-NAME」「END-FLG」「CNT」はWORKING-STORAGE SECTIONで記述

PROCEDURE            DIVISION.
PERFORM INIT001-PROC.   　　　　　←１－１①の例
*
PERFORM EDT001-PROC  UNTIL   END-FLG = "END"　　　　　←１－１②の例
*
DISPLAY "COUNT END" UPON CONSOLE.
*
PERFORM   VARYING   CNT  FROM  1  BY  1  UNTIL  CNT  =  100　　　←１－１③の例
            ADD  3  TO  WRK-NUM
 END-PERFORM.
*
STOP RUN. 
*****************************************
*初期処理
*****************************************
INIT001-PROC     SECTION.
*
MOVE SPACE TO END-FLG.
MOVE SPACE TO WRK-NAME.
*
OPEN  INPUT  IN-FILE.
INIT001-PROC-EXIT.
EXIT.
*****************************************
*編集その１
*****************************************
EDT001-PROC     SECTION.
READ  IN-FILE
  AT   END  
           MOVE  "END"  TO  END-FLG
  NOT  AT  END  
           MOVE  SYOHINMEI  TO  WRK-NAME
PERFORM  EDT002-PROC
END-READ.
*
EDT001-PROC-EXIT.
EXIT.
*

※「SECTION」は節の見出しを定義するものです。

PROCEDURE DIVISION（手続き部）でA領域から記述された名前が節名または段落名とみなされ、SECTIONを伴うものが節、SECTIONのないものが段落となります。

節や段落は、プログラム作成者が必要に応じて作ります。

２．PERFORM命令とGO TO命令の違い

PERFORM命令は、それが記述された行を実行した後に、次の行から処理を続けますが、GO TO命令は指定された段落にジャンプし、GO TO命令が記述された行には戻ってきません。

具体例を見てみましょう。

【PERFORM命令の実行順】

PROCEDURE            DIVISION.
PERFORM COUNT-PROC.   ①
DISPLAY "COUNT END" UPON CONSOLE.   ②
STOP RUN.   ③

見た目そのまま①→②→③、の順に命令が実行されます。

【GO TO命令の実行順】

PROCEDURE            DIVISION.
PERFORM COUNT-PROC.   ①
GO TO EDIT-001.   ②
DISPLAY "COUNT END" UPON CONSOLE.   ③
ADD  1  TO  WRK-CNT.    ④
　・
　・
　・
STOP RUN.

①→②と進み、②で、段落「EDIT-001」へジャンプしますので、③、④は実行されません。

※GO TO命令は多用すると全体的な流れが把握しにくくなりますので、使用は最小限にとどめましょう。

３．補足　COBOLコーディングのルール

３-１．英大文字と英小文字の使い方

COBOLは大文字、小文字のどちらで記述してもかまいませんが、小文字は大文字と同等に扱われますので、「COBOLは大文字で記述」と覚えてしまっても差支えありません。ただし、コメント行、英数字定数、PROGRAM-ID（コンパイルオプションにより同等とすることが可能）は区別されます。

1行の記述は80文字以内におさめる必要があり、行内はいくつかの領域に分かれています。

１～６文字　　　・・・一連番号領域　プログラムの行番号
７文字目　　　　・・・標識領域　その行に何が記述されているのかを示す
８～１１文字　　・・・Ａ領域　各部の開始宣言やデータ項目のレベル番号を記述する。
１２～７２文字　・・・Ｂ領域　命令文や作業領域のレベル番号を記述する
７３～８０文字　・・・見出し領域　コンパイル対象外のコメント領域