第2章: COBOLの基本構文

COBOLは、他のプログラミング言語とは異なる特有の構文とスタイルを持ちますが、その明確で直感的な構造により、多くのエンタープライズアプリケーションで広く利用されています。この章では、COBOLの変数とデータタイプ、基本プログラム構造、そして制御構造について詳しく解説します。これにより、読者はCOBOLの基礎的な構文とプログラムの流れを理解し、シンプルなプログラムを作成できるようになります。

---

2.1 変数とデータタイプ: COBOLでのデータ管理方法

COBOLプログラムでは、変数やデータの管理が非常に重要です。COBOLの変数定義は他の言語と少し異なり、特定の構造に基づいて行われます。COBOLでは、データを「データ・ディビジョン」（DATA DIVISION）で定義し、「ワーキング・ストレージ・セクション」（WORKING-STORAGE SECTION）で変数を宣言します。変数のデータタイプは、COBOLのデータ項目定義に基づいて設定します。

2.1.1 データ項目のレベル番号

COBOLでは、変数の階層構造をレベル番号で表現します。レベル番号とは、変数の階層関係を示す番号です。主に次のような番号が使用されます：

• 01：トップレベルのデータ項目。これらは他の項目を含むことができます。
• 77：独立したデータ項目。階層構造を持たない単一の変数を定義するために使用されます。
• 02～49：01レベルの中に含まれる階層データを定義する際に使用します。

例として、銀行口座情報を格納する構造を定義してみましょう。

01 CUSTOMER-INFO.
    05 CUSTOMER-ID          PIC 9(5).
    05 CUSTOMER-NAME        PIC A(30).
    05 CUSTOMER-BALANCE     PIC 9(9)V99.
77 ACCOUNT-STATUS           PIC X(1) VALUE 'A'.

ここでは、CUSTOMER-INFOが01レベルのデータ項目であり、内部にCUSTOMER-ID、CUSTOMER-NAME、CUSTOMER-BALANCEが含まれています。また、ACCOUNT-STATUSは77レベルであり、単一のデータ項目です。

2.1.2 データタイプとPICTURE句

COBOLのデータ項目には、データタイプを定義するための「PICTURE句」（略してPIC句）を使用します。PICTURE句は、データのフォーマットや桁数を指定するもので、数値型や文字型のデータを表現できます。

• 数値型（PIC 9）：数値を表すときは「9」を使用します。例えば、PIC 9(5)は5桁の数値データを示します。
• 小数点型（V）：小数点以下の桁数を表すために「V」を使います。例えば、PIC 9(7)V99は整数部分7桁、小数部分2桁の数値を表します。
• 文字型（PIC X）：文字データを表す場合は「X」を使います。例えば、PIC X(10)は10文字の文字列を表します。
• 英字型（PIC A）：アルファベットのみを表す場合に「A」を使います。例えば、PIC A(20)は20文字のアルファベット文字列を表します。

例：

77 STUDENT-ID      PIC 9(8) VALUE 12345678.
77 STUDENT-NAME    PIC A(30) VALUE 'JOHN DOE'.
77 STUDENT-GPA     PIC 9V99 VALUE 3.75.

2.1.3 初期値の設定（VALUE句）

COBOLの変数には、初期値を設定するために「VALUE句」を使用できます。VALUE句を用いると、変数が初期化される際の値を指定できます。

77 DEFAULT-CITY    PIC X(20) VALUE 'TOKYO'.
77 INITIAL-AGE     PIC 9(2) VALUE 25.

---

2.2 基本のプログラム構造: COBOLプログラムの各セクションの役割

COBOLプログラムは、複数のセクションに分かれています。主に次の4つのディビジョン（DIVISION）から成り立ちます。

1. IDENTIFICATION DIVISION：プログラムの名前やバージョンなどを記述します。
2. ENVIRONMENT DIVISION：プログラムが実行される環境について設定を記述します。
3. DATA DIVISION：プログラムで使用する変数を宣言します。
4. PROCEDURE DIVISION：実際の処理内容（手続き）を記述します。

2.2.1 IDENTIFICATION DIVISION

IDENTIFICATION DIVISIONは、COBOLプログラムの名前や作成者などの基本情報を記述するためのセクションです。このセクションは必須であり、プログラム名を指定します。

IDENTIFICATION DIVISION.
PROGRAM-ID. BANK-TRANSACTION.
AUTHOR. JANE DOE.

2.2.2 ENVIRONMENT DIVISION

ENVIRONMENT DIVISIONは、プログラムがどのような環境で動作するかを設定するセクションです。ファイルの入力や出力の設定を行う際に使用します。

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT CUSTOMER-FILE ASSIGN TO 'customer.txt'.

2.2.3 DATA DIVISION

DATA DIVISIONは、変数やファイルなどのデータを宣言するセクションです。このセクションの中で、WORKING-STORAGE SECTIONを使用して変数を定義します。

DATA DIVISION.
WORKING-STORAGE SECTION.
01 CUSTOMER-ID      PIC 9(5).
01 CUSTOMER-NAME    PIC A(30).

2.2.4 PROCEDURE DIVISION

PROCEDURE DIVISIONは、プログラムの実行手順を記述するセクションです。ここで、COBOLプログラムの主な処理内容を書きます。

PROCEDURE DIVISION.
DISPLAY 'ENTER CUSTOMER ID:'.
ACCEPT CUSTOMER-ID.
DISPLAY 'CUSTOMER ID IS:' CUSTOMER-ID.
STOP RUN.

---

2.3 制御構造: IF文、PERFORM（ループ）、GO TOなどの使い方

COBOLには、プログラムの実行の流れを制御するためのさまざまな構文が用意されています。ここでは、条件分岐、ループ、ジャンプ構造について詳しく説明します。

2.3.1 IF文

COBOLでは、IF文を使用して条件分岐を行います。IF文を使うと、条件に基づいて異なる処理を行うことができます。

IF CUSTOMER-BALANCE > 0
    DISPLAY 'POSITIVE BALANCE'.
ELSE
    DISPLAY 'NEGATIVE OR ZERO BALANCE'.
END-IF.

2.3.2 PERFORM（ループ構造）

PERFORM文を使用して、一定の回数や条件に基づいてループを行うことができます。

• 固定回数ループ：

PERFORM TIMES 5
    DISPLAY 'PROCESSING...'
END-PERFORM.

• 条件付きループ：

PERFORM UNTIL CUSTOMER-BALANCE > 1000
    DISPLAY 'ADD BALANCE'
    ADD 100 TO CUSTOMER-BALANCE
END-PERFORM.

2.3.3 GO TO（ジャンプ構造）

COBOLでは、特定の処理に直接ジャンプするためにGO TO文を使用しますが、一般的には使用を避けることが推奨されています。プログラムの可読性が低下する可能性があるためです。

IF CUSTOMER-BALANCE < 0
    GO TO ERROR-HANDLING.