【COBOL学習｜実務向け】COBOLプログラムの静的構造を理解する：節(SECTION)の有効範囲と実践的活用

1. 導入：なぜ節(SECTION)の有効範囲を理解することが重要か？

COBOLプログラムは、その構造の理解が保守性や可読性を大きく左右します。特に、プログラムの静的な構造を把握する上で、`SECTION`（節）とその有効範囲の理解は不可欠です。`SECTION`は、プログラムを論理的なまとまりに分割するための強力な手段であり、特に`SORT`文の制御や`DECLARATIVES`節など、特定の構文でその存在が重要になります。これらの構造を正しく理解することで、コードの意図を明確にし、予期せぬ動作を防ぎ、効率的なデバッグや改修に繋げることができます。

2. 基礎知識：SECTIONとは何か？

COBOLにおける`SECTION`（節）は、プログラムを論理的に分割するための単位です。節は、節名（`SECTION`で終わる）で始まり、次の節名が現れるか、プログラムの終端（`END PROGRAM`や`STOP RUN`）に到達するまで続きます。

節(SECTION): `節名 SECTION.` という形式で定義されます。
段落(PARAGRAPH): 節の中、あるいは節の外に定義できる、さらに細かい論理的なまとまりです。段落名は、`段落名.` という形式で定義されます。
有効範囲: ある節は、その節名が定義された時点から、次の節名が現れる直前まで有効です。節内の段落は、その節の有効範囲内で実行されます。

`SECTION`は、プログラムをより構造化し、可読性を高めるための重要な要素です。特に、`SORT`文の`SORT-RETURN`句や`DECLARATIVES`節のように、特定の処理ブロックを明確に指定する必要がある場合に、`SECTION`名が必須となることがあります。

3. 実装/解決策：SECTIONの有効範囲と制御

`SECTION`の有効範囲は、その定義と次に現れる`SECTION`名によって決まります。節を呼び出すという概念は直接的にはありませんが、`GOTO`文などで節内の段落にジャンプすることは可能です。しかし、構造化プログラミングの観点からは、`GOTO`文の使用は推奨されません。

`SORT`文における`SORT-EXIT`節は、ソート処理の終了時に実行されるべき処理を定義する際に使用されます。`SORT-EXIT`節は、ソート処理が完了した後に、プログラムの実行フローを制御するために利用されます。

例えば、以下のような構造が考えられます。

IDENTIFICATION DIVISION.
PROGRAM-ID. SECTION-DEMO.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUMBERS.
05 WS-NUMBER PIC 9(3).

PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY “Start of program”.

SORT文でSECTIONを指定する例

SORT MY-RECORD-FILE
ON ASCENDING KEY RECORD-KEY
USING INPUT-FILE
GIVING OUTPUT-FILE
SORT-RETURN IS MY-SORT-EXIT-SECTION.

DISPLAY “Sort finished”.
STOP RUN.

MY-SORT-EXIT-SECTION SECTION.
SORT-PARA-1.
DISPLAY “Entering MY-SORT-EXIT-SECTION”.

ここにソート完了時の追加処理を記述

MOVE 123 TO WS-NUMBER.
DISPLAY “WS-NUMBER set to: ” WS-NUMBER.

RETURN. (SORT-RETURN句で指定されているため、明示的なRETURNは不要な場合が多い)

END PROGRAM SECTION-DEMO.

この例では、`SORT`文が完了した後に、`MY-SORT-EXIT-SECTION`節内の段落が実行されるように指定されています。`SORT-RETURN`句で指定された節は、ソート処理の終了後に実行され、その節の終了をもってプログラムの実行が継続されます。

4. サンプルプログラム：SECTIONの定義と実行フロー

IDENTIFICATION DIVISION.
PROGRAM-ID. SECTION-SCOPE-SAMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-MESSAGE PIC X(30).

PROCEDURE DIVISION.
MAIN-SECTION SECTION.
DISPLAY “— MAIN-SECTION START —“.
MOVE “Calling SUB-SECTION” TO WS-MESSAGE.
DISPLAY WS-MESSAGE.

SUB-SECTIONを呼び出す（実際にはGOTOでジャンプするイメージ）

PERFORM SUB-SECTION-PARA.

MOVE “Returned from SUB-SECTION” TO WS-MESSAGE.
DISPLAY WS-MESSAGE.
DISPLAY “— MAIN-SECTION END —“.
STOP RUN.

SUB-SECTION SECTION.
DISPLAY “— SUB-SECTION START —“.
MOVE “Inside SUB-SECTION” TO WS-MESSAGE.
DISPLAY WS-MESSAGE.

SUB-SECTION-PARA.

SUB-SECTION内の段落

DISPLAY “This is SUB-SECTION-PARA.”.
MOVE “Exiting SUB-SECTION” TO WS-MESSAGE.
DISPLAY WS-MESSAGE.
DISPLAY “— SUB-SECTION END —“.

ここでSUB-SECTIONは終了。次のSECTIONは存在しないため、プログラムの終端まで続く。

このSECTIONは存在しないため、SUB-SECTIONはプログラムの終端まで有効とみなされる。
もしここに別のSECTIONがあれば、SUB-SECTIONはそのSECTIONの直前まで有効となる。

END PROGRAM SECTION-SCOPE-SAMPLE.

サンプルプログラムの解説:

1. `MAIN-SECTION SECTION.`: プログラムのエントリポイントとなる節です。
2. `DISPLAY “— MAIN-SECTION START —“.`: メイン節の開始メッセージを表示します。
3. `PERFORM SUB-SECTION-PARA.`: `SUB-SECTION`節内の`SUB-SECTION-PARA`段落を実行します。`PERFORM`文は、指定された段落または節を実行し、完了後に呼び出し元に戻る構造化された方法です。
4. `DISPLAY “— MAIN-SECTION END —“.`: メイン節の終了メッセージを表示します。
5. `SUB-SECTION SECTION.`: `MAIN-SECTION`の後に定義された別の節です。
6. `SUB-SECTION-PARA.`: `SUB-SECTION`節内の段落です。
7. `DISPLAY “— SUB-SECTION END —“.`: `SUB-SECTION`節の終了メッセージを表示します。この節の後ろに別の`SECTION`がないため、この節はプログラムの終端まで有効とみなされます。

このサンプルでは、`PERFORM`文を使って節内の段落を呼び出していますが、`SECTION`の有効範囲自体は、次の`SECTION`の出現によって定義されます。

5. 応用・注意点：実践的な活用と落とし穴

`SORT`文との連携:

`SORT`文の`SORT-RETURN`句で`SECTION`を指定すると、ソート処理完了後にその節が実行されます。これは、ソート結果の集計や、エラーハンドリング、後処理などを記述するのに便利です。

`DECLARATIVES`節:

`DECLARATIVES`節は、ファイル入出力におけるイベント（例: `INPUT PROCEDURE`や`OUTPUT PROCEDURE`）を処理するための特別なセクションです。ここでも`SECTION`の概念が重要になります。

`GOTO`文の誘惑:

`SECTION`の有効範囲を理解することは、`GOTO`文で意図しない場所にジャンプしてしまうリスクを回避する上でも役立ちます。ただし、構造化プログラミングの原則に従い、`GOTO`文の使用は極力避けるべきです。代わりに`PERFORM`文や、必要であればサブルーチン呼び出しを検討してください。

ネストされたSECTION:

COBOLでは、`SECTION`をネストすることはできません。`SECTION`はプログラムのトップレベルの構造単位として扱われます。

可読性の向上:

論理的に関連する処理を一つの`SECTION`にまとめることで、コードの可読性と保守性が向上します。特に大規模なプログラムでは、`SECTION`を適切に区切ることが、コードの理解を助けます。

デバッグ時の注意:

デバッガを使用する際、`SECTION`の境界を意識することで、プログラムの実行フローを追跡しやすくなります。

`SECTION`の有効範囲を正しく理解し、適切に利用することで、より堅牢で保守しやすいCOBOLプログラムを作成することができます。