COBOL(コボル)言語の条件判断処理とは

条件判断処理は2つ以上の項目を比較し、値が等しいか等しくないか、もしくは値が大きいか小さいか、以上か以下か比較判断することを言います。比較する値は英字項目、数字項目、英数字項目を基本としますが、COBOL言語では集団項目も比較対象として指定することができます。では早速プログラムを作成してみましょう。

書き方
IF 条件
THEN 処理A
ELSE 処理B
END-IF

使用例：

このプログラムはWK-HIKAKUの値が"2025”かそれ以外かを比較する処理になっています。”2025”であれば、2つの値は等しいというメッセージを出力し、そうでなければ、2つの値は等しくないとメッセージが出力されるようになります。WK-HIKAKUの値を変更して実際の動きを確認してみましょう。

実行結果：

1.「IF」の間の空白や改行は、自由に設定できます。

2.条件判断する際は判断の内容がわかりやすいものを指定するようにしましょう。

3.条件判断の結果、特に処理を実行することがない場合は「CONTINUE」文を指定します。

4.「IF」は多重分岐することができます。

ただし多重分岐しすぎると処理が複雑になるため、最大で3重までを目安にするようにしましょう。

COBOL言語ではその他のプログラミング言語と違い、比較条件として以下の文字列を使用されることがありますので注意しましょう。

「A > B」：A IS GREATER THAN B

「A < B」：A IS LESS THAN B

「A = B」：A IS EQUAL TO B

「A >= B」：A IS GREATER THAN OR EQUAL TO B

「A <= B」：A IS LESS THAN OR EQUAL TO B

COBOL言語で条件判断処理を行う場合、「IF」以外にも「EVALUATE」文を使用することができます。複数条件判断処理を「IF」文で行う場合、多重分岐することになりますが、「EVALUATE」文を使用することで深い階層に条件判断処理を書くことなく表現することができます。実際に「IF」と「EVALUATE」の同じ処理を記述することでその違いについて理解してみましょう。

サンプルプログラム：

IDENTIFICATION       DIVISION.
PROGRAM-ID.         IF_SAMPLE2.
ENVIRONMENT          DIVISION.
DATA            DIVISION.
WORKING-STORAGE        SECTION.
01  WK-HIKAKU       PIC X(4) VALUE "2023".
PROCEDURE DIVISION.
 IF WK-HIKAKU = "2025"
 THEN
  DISPLAY "(IF)WK-HIKAKU = 2025" 
 ELSE
  IF WK-HIKAKU = "2024"
  THEN
   DISPLAY "(IF)WK-HIKAKU = 2024"
  ELSE
   IF WK-HIKAKU = "2023"
   THEN
    DISPLAY "(IF)WK-HIAKAKU = 2023" 
   ELSE
    CONTINUE
   END-IF
  END-IF
 END-IF.
 
 EVALUATE TRUE
  WHEN WK-HIKAKU = "2025"
   DISPLAY "(EVALUATE)WK-HIKAKU = 2025"
  WHEN WK-HIKAKU = "2024"
   DISPLAY "(EVALUATE)WK-HIKAKU = 2024"
  WHEN WK-HIKAKU = "2023"
   DISPLAY "(EVALUATE)WK-HIKAKU = 2023"
  WHEN OTHER
   CONTINUE
 END-EVALUATE.
STOP RUN.

このプログラムはWK-HIKAKUの値が”2025”か”2024”か”2023”かそれ以外かを比較する処理になっています。IF文でこれらの条件判断を進める場合は階層が深くなっていくのに対して、EVALUATE文は階層が変わっていないことに気づくかと思います。どちらのプログラムが見やすいかは一目瞭然です。このように誰が見てもわかりやすいプログラミングを行うように心がけましょう。

実行結果：

今回はCOBOL言語の条件判断処理についてご紹介しました。条件判断処理はプログラミング言語の基本になるため、必ず使えるように理解を深めましょう。またCOBOL言語はユーザでも使用できるようなプログラミング言語をコンセプトにしていることから、記号ではなく文字列で条件を指定することがあります。頻繁に利用されるものではありませんが、そのような定義ができることを理解しておきましょう。

• 前の記事へ

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

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

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

COBOL入門のカテゴリー

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