COBOL(コボル)言語の予約語CONTINUE文を使った命令文の書き方とは

COBOL(コボル)には、条件を判定して処理を記述するIF～THENの処理内では、必ず実行するための処理を記述しなければいけません。しかし、ELSEを挟んで処理が分岐する場合、片方の分岐では特に実行する処理がない場合もあります。

CONTINUE文は、そのようなときに「なにもしない」ことを明確にするための命令文です。

本記事では、CONTINUE文について基本的な使い方やルール、注意点などをご紹介します。

書き方:

CONTINUE

使用例:

以下にCONTINUE文を使用した簡単なサンプルを紹介します。

サンプルでは定義した項目WORK-NUMの値が100より小さい場合には何もせず、値が大きかった場合は処理を実行しています。
WORK-NUMは100より小さいため、CONTINUE文では何もせず実行結果も出力されません。

条件式で特に処理がない場合は、CやJavaなどのプログラミング言語では以下のように、処理を何も記述しなくても問題ありません。しかし、COBOLではコンパイルエラーとなります。条件式で何も処理が無ければ、必ずCONTINUE文を記述するようにしましょう。

-----------------------------------------------
IF [条件式] THEN
ELSE
　～処理～
END-IF.
-----------------------------------------------

また、CONTINUE文は基本的に条件文の中で記載しますが、無条件文が記載できる箇所だったら、どこでも指定できます。例えば以下のように記述してもコンパイルエラーにはなりません。

-----------------------------------------------
MAIN　　　　　　　　　　SECTION.
　～処理～
　CONTINUE
STOP RUN.
-----------------------------------------------

しかし、このような使い方は余程のことがない限り、使用するのは避けましょう。CONTINUE文はあくまで条件式で、何も処理がない場合に記述することを基本としてください。

1. CONTINUE文は、何も行わない命令文です。CONTINUEを記述すると、その行では何も処理を行いません。
2. CONTINUE文は、無条件文が記述できる箇所だったら、どこにでも記述できます。

CONTINUE文は、条件文で条件によっては記述する処理がないときに、処理を実行しないことを明確にするために使用されますが、注意しておきたい点があります。

COBOLのCONTINUE文は、CやJavaなどのプログラミング言語でのループ文やCase文で処理をスキップするときに使用する「continue」と混同してはいけません。

COBOLでCONTINUEを指定したところで、処理がスキップされるわけではありません。CONTINUE文はあくまで「なにもしない」ことを明記するための命令文です。

例えば、以下のようにPERFORM文で繰り返し処理を行い、繰り返し処理の中で条件に一致しなければ処理をスキップして、繰り返し処理のはじめから処理を実施する、などの処理はできません。

実行結果:

サンプルではPERFORM文の繰り返しの中でWORK-NUMの値を加算していき、IF文で30になったら演算処理を行い、それ以外だったらCONTINUEを行うようにしています。しかし、説明したとおりCONTINUE文は繰り返し処理をスキップするわけではないので、その後のDISPLAYが実行されてしまいます。

ご説明したとおりCONTINUE文は「なにもしない」ことを明確にするために記述するシンプルな命令文ですが、他に活用法はあるのか疑問に思っている方もいるのではないでしょうか？

プログラムは仕様の変更がつきものです。今はこの条件の分岐は使わないけど、将来拡張する可能性のある条件の処理は、あらかじめCONTINUE文を使用して、将来拡張する可能性があることを明記しておくのも1つの手段です。

*> CONTINUE_SAMPLE03
IDENTIFICATION        DIVISION.
PROGRAM-ID.           CONTINUE_SAMPLE03.
 
ENVIRONMENT           DIVISION.
CONFIGURATION         SECTION.
DATA              DIVISION.
     WORKING-STORAGE       SECTION.
     01 TEST-WORK-AREA.
     03 WORK-NUM      PIC 9(03).
     03 WORK-VALUE    PIC 9(03).
 
PROCEDURE             DIVISION.
     MAIN             SECTION.
 
     MOVE 1 TO WORK-NUM.
 
     PERFORM UNTIL WORK-NUM > 100
     COMPUTE WORK-NUM = WORK-NUM + 1
 
     *>現在は使用しないが、将来使用する可能性のある条件処理については、
     *>条件式を記述しておき、CONTINUEを記載しておくことで処理の拡張の可能性が
     *>あることを示している
     IF WORK-NUM = 10
     CONTINUE
     ELSE IF WORK-NUM = 20
     CONTINUE
     ELSE IF WORK-NUM = 30
     CONTINUE
     ELSE IF WORK-NUM = 40
     CONTINUE
     ELSE IF WORK-NUM = 50
     MOVE WORK-NUM TO WORK-VALUE
     END-IF
 
     END-PERFORM.
 
     STOP RUN.

このサンプルでは、将来条件によっては処理を記述する可能性のある処理について、あらかじめ条件文を記述しておき、CONTINUEを指定することで、将来拡張する可能性があることを暗に示しています。

• 前の記事へ
• 次の記事へ

この記事を読んだ人は、こちらの記事も読んでいます

【未経験者歓迎】COBOLプログラマー・システムエンジニアの募集

株式会社COBOLの求人・転職・募集情報を見る

COBOL入門のカテゴリー

｜　基礎　｜　応用　｜　勉強　｜　試験　｜　辞書　｜