これであなたもCOBOLプログラマ：COBOL - Getting Started（2）（3/3 ページ）

» 2009年06月11日 00時00分公開

[小林純一，マイクロフォーカス株式会社]

COBOLの制御構造

　これまで見てきた簡単な例題では、手続き部に複数のCOBOL文が書かれており、それらが書かれた順番に実行されていました。

　一般には手続き部は複数の節の並びとして構成され、各節は複数の段落の並びとして構成されます。以下の例を見てください。

PROCEDURE    DIVISION.
初期化処理   SECTION.
領域初期化.
    …………………
データベース接続.
    …………………
本体処理     SECTION.
レコード読み取り.
    …………………
売り上げ計算.
    …………………
終了処理     SECTION.
データベース切断.
    …………………
領域開放.
    …………………

　予約語「SECTION」は節の見出しを定義するものです。手続き部で7カラムから11カラムの間に書き出される利用者語は節名または段落名とみなされ、SECTIONを伴うものが節、SECTIONのないものが段落となります。

　上の例で手続き部は以下のように3つの節に分割され、各節が2つの段落に分割されています。


手続き部	節：初期化処理	段落：領域初期化
	節：初期化処理	段落：データベース接続
	節：本体処理	段落：レコード読み取り
	節：本体処理	段落：売り上げ計算
	節：終了処理	段落：データベース切断
	節：終了処理	段落：領域開放

　節や段落は基本的に書かれた順番に上から実行されますが例外は、GO TO文とPERFORM文です。

　GO TO文は構造化プログラミングの潮流の中で悪者扱いされ、利用が減ってきていますが、1985年規格で構造化構文が登場するまではCOBOLでは一般的でした。GO TO文を実行すると処理はオペランドで指定された節または段落に分岐します。

　PERFORM文を使用すると、節または段落を1つの手続きとして呼び出すことができます。すなわちオペランドに指定された節または段落に分岐した後、その節・段落を最後まで実行するとPERFORM文の次の文に処理が戻るのです。

　これを使用して1つのCOBOLプログラムを、1つのメイン処理と複数の内部関数の形に構成することができます。しかし、PERFORM文は手続きに引数を渡すことができません。また、節や段落はそれ自身にローカルなデータ項目を持つことができず、COBOLのデータ部に記述されたデータ項目はすべて節・段落に共通に参照されます。

　このほか、STOP RUN文は実行単位を終了させ、EXIT PROGRAM文はサブルーチンから呼び出し元へ復帰しますので、その次の文は実行されません。

　個々の段落の中では以下のような構造化構文を使用して制御構造を記述することができます。


	COBOL	Java	Visual Basic
条件判定	IF 条件式 THEN 文 ELSE 文 END-IF.	if (式) 文 else 文 ;	If 条件式 Then 文 Else 文 End If
多分岐判断	EVALUATE 式 WHEN 値文 WHEN 値文 OTHER 文 END-EVALUATE.	switch (式) { case 値: 文 ; case 値: 文 ; default: 文 ; }	Select Case 式 Case 値　文 Case 値　文 Case Else 文 End Select
条件ループ	PERFORM UNTIL 条件式文 END-PERFORM.	while(! 式) { 文 ; }【注1】	Do Until 条件式文 Loop
制御変数ループ	PERFORM VARYING 項目名 FROM 1 BY 1 UNTIL 項目名 > 5 文 END-PERFORM.	for(i = 1; i <= 5; i++) { 文 : }	For I=1 to 5 Step 1 文 Next
【注1】COBOLのUNTILは条件が成立しない間ループすることを意味するのでwhileとは逆になる