COBOL言語の入れ子と構造を理解して使いこなそう！｜基礎ガイド

COBOL（コボル）言語の入れ子の構造とロジック制御とは

基礎-入れ子-イメージ

入れ子とは？

入れ子とはネスティングとも呼ばれ、構造化プログラミングのプログラム構築手法のひとつです。

処理ブロックの中に別の処理ブロックを埋め込んだり、データブロックの中に別のデータブロックを埋め込んだりすることにより、機能ごとに分割した簡潔なブロック群でプログラムを構成して行きます。

COBOL言語では、IF文などを使用して処理ブロックを分けたり、処理ブロックをサブルーチン化し、PERFORM文でサブルーチンを呼び出したりすることにより、入れ子構造を構築します。

COBOL言語のIF文を使った入れ子構造

COBOL言語では、IF文を使用することにより、処理を入れ子にすることができます。例えば、条件Aに該当する場合は処理Aを実行し、さらに条件A-1に該当する場合には処理A-1も実行します。そして、条件Aに該当しない場合は、処理Bを実行するような場合です。このとき、処理Aと処理A-1が入れ子になっています。

IF文を用いた入れ子構造は、階層が深くなるとプログラムが複雑になり、理解し難くなってしまいます。IF文による入れ子の階層は、3階層程度までを目安としましょう。

■入れ子構造の例

　 IF 条件A THEN

　　　　処理A

　　　　 IF 条件A-1 THEN

　　　　　　　処理A-1

　　　　 END-IF

　 ELSE

　　　　処理B

　 END-IF.

■プログラム例

ご紹介するサンプルプログラムは、コンソールに商品コードの入力を促すメッセージを表示し、商品コードに該当する商品名を表示するプログラムです。商品コードは１から５までで、それぞれの商品名は、「みかん」、「りんご」、「ばなな」、「すいか」、「めろん」としています。また、入力された商品コードに該当する商品がない場合はとエラーメッセージを表示し、商品コードの再入力を促します。

入力された商品コードの範囲チェックと商品名の表示処理が、IF文とEVALUATE文で構成された入れ子になっていることにご着目ください。

******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID.IREKO-SAMPLE1.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WORKING-AREA.
* コンソール入力バッファ
  03 CONSOLE-INPUT PIC X(1).
*-------------------------------------------
* 主手続
*-------------------------------------------
PROCEDURE DIVISION.
MAIN-PROCEDURE.
* コンソール入力エリアの初期化
  MOVE SPACE TO CONSOLE-INPUT.
EXEC-DISPLAY-INPUT-PROC.
* コンソール表示＆入力
  DISPLAY "1桁の商品コードを入力してください".
  ACCEPT CONSOLE-INPUT FROM CONSOLE.
* 範囲チェックと商品名の表示
  IF (CONSOLE-INPUT >= 1) AND
     (CONSOLE-INPUT <= 5) THEN
* 商品名の表示
  EVALUATE CONSOLE-INPUT
   WHEN 1
    DISPLAY "みかん"
   WHEN 2
    DISPLAY "りんご"
   WHEN 3
    DISPLAY "ばなな"
   WHEN 4
    DISPLAY "すいか"
   WHEN 5
    DISPLAY "めろん"
  END-EVALUATE
* 範囲外の場合、エラー処理を行い再入力する
  ELSE
    DISPLAY "該当する商品がありません"
    GO TO EXEC-DISPLAY-INPUT-PROC
  END-IF.
  STOP RUN.
END PROGRAM IREKO-SAMPLE1.

■実行結果

はじめに商品コードの入力を促すメッセージが表示されます。

基礎-入れ子-実行結果

数字の0を入力してみます。

基礎-入れ子-入力例1

エラーメッセージが表示され、入力を促すメッセージが表示されます。

次に数字の1を入力してみます。

基礎-入れ子-入力例2

商品名が表示され、プログラムが終了しました。

COBOL言語のPERFORM文を使った入れ子構造

COBOL言語では、処理ブロックをサブルーチン化し、PERFORM文を使用して呼び出すことにより、入れ子構造を作ることができます。例えば、条件Aに該当する場合はサブルーチンAを実行し、さらに条件A-1に該当する場合にはサブルーチンA-1も実行します。そして、条件Aに該当しない場合は、サブルーチンBを実行するような場合です。このとき、サブルーチンAとサブルーチンA-1が入れ子になっています。

■入れ子構造の例

　 ＜メイン処理＞
　 IF 条件A THEN
　　　　PERFORM サブルーチンA
　　　　 END-IF
　 ELSE
　　　　PERFORM サブルーチンB
　 END-IF.

■プログラム例

ご紹介するサンプルプログラムは、「COBOL言語のIF文を使った入れ子構造」でご紹介したサンプルプログラムと同じ機能を、サブブルーチンにして分割し、入れ子構造にしたプログラムです。

「COBOL言語のIF文を使った入れ子構造」でご紹介したサンプルプログラムでは、IF文の中にEVALUATE文が入れ子になっていましたが、同じ入れ子構造でもサブルーチン化することにより、プログラムがスッキリすることがご理解いただけることでしょう。

******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. IREKO-SAMPLE2.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WORKING-AREA.
* コンソール入力バッファ
  03 CONSOLE-INPUT PIC X(1).
*-------------------------------------------
* 主手続
*-------------------------------------------
PROCEDURE DIVISION.
MAIN-PROCEDURE.
* コンソール入力エリアの初期化
  MOVE SPACE TO CONSOLE-INPUT.
 EXEC-INPUT-PROC.
* コンソール表示＆入力
  DISPLAY "1桁の商品コードを入力してください".
  ACCEPT CONSOLE-INPUT FROM CONSOLE.
* 範囲チェックと商品名の表示
  IF (CONSOLE-INPUT >= 1) AND
     (CONSOLE-INPUT <= 5) THEN
* 商品名の表示
  PERFORM EXEC-DISPLAY-PROC
* 範囲外の場合、エラー処理を行い再入力する
  ELSE
    DISPLAY "該当する商品がありません"
    GO TO EXEC-INPUT-PROC
  END-IF.
  STOP RUN.
*-------------------------------------------
* 商品名の表示処理
*-------------------------------------------
EXEC-DISPLAY-PROC.
* 商品名の表示
  EVALUATE CONSOLE-INPUT
   WHEN 1
    DISPLAY "みかん"
   WHEN 2
    DISPLAY "りんご"
   WHEN 3
    DISPLAY "ばなな"
   WHEN 4
    DISPLAY "すいか"
   WHEN 5
    DISPLAY "めろん"
  END-EVALUATE.
  EXIT.
END PROGRAM IREKO-SAMPLE2.