1. 導入：なぜ入れ子プログラムの「アクセス制限」が重要なのか
ベテランの現場でよくあるのが「どこからでも呼び出せるプログラム」ばかり作ってしまい、後から修正範囲が膨大になるという事態です。COBOLの「入れ子プログラム（Nested Program）」は、特定の親プログラムの中でしか使わない処理を外部から隔離（隠蔽）できる非常に強力な機能です。これを正しく理解することで、プログラムの保守性が格段に上がり、バグの混入を防ぐことができます。
2. 基礎知識：入れ子プログラムの仕組み
入れ子プログラムとは、一つのソースファイルの中に、別のプログラム（IDENTIFICATION DIVISIONから始まる一塊）を記述する手法です。
通常、COBOLのプログラムは外部からCALL命令で呼び出しますが、入れ子にされたプログラムは、デフォルトでは「その親プログラム」からしか呼び出すことができません。これは「情報の隠蔽（カプセル化）」というオブジェクト指向に近い考え方をCOBOLで実現するための重要な仕組みです。
3. 実装と解決策：外部から隠すルール
入れ子プログラムを外部から隠す（アクセス制限をかける）ためのルールは非常にシンプルです。
「COMMON句を指定しないこと」これに尽きます。
COMMON句を付けない場合、その入れ子プログラムは「親プログラム」からしか見えません。もし他の兄弟プログラムからも呼び出したい場合はCOMMON句を付けますが、外部の全く関係ないプログラムからは依然としてアクセス不可能です。この特性を活かし、特定の親プログラム専用の「部品」として閉じ込めることで、名前の衝突を避け、安全なコード管理が可能になります。
4. サンプルプログラム
以下のコードは、親プログラム「MAIN-PROG」の中に、外部からは決してアクセスできない「INTERNAL-SUB」を定義した例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN-PROG.
PROCEDURE DIVISION.
- 親プログラムから内部プログラムを呼び出す
CALL “INTERNAL-SUB”
STOP RUN.
- 内部プログラムの定義
IDENTIFICATION DIVISION.
PROGRAM-ID. INTERNAL-SUB.
PROCEDURE DIVISION.
DISPLAY “これは外部から直接CALLできない隠された処理です。”
EXIT PROGRAM.
END PROGRAM INTERNAL-SUB.
END PROGRAM MAIN-PROG.
5. 応用・注意点：現場で役立つポイント
現場で陥りやすいバグとして、「うっかり同じ名前のプログラムを別々のソースで定義してしまう」ことがあります。しかし、入れ子プログラムであれば、名前が重複しても親プログラムが異なれば問題ありません。
注意点としては、入れ子プログラムを多用しすぎると、一つのソースファイルが肥大化し、逆に可読性が落ちる点です。「その親プログラムでしか使わない、かつ100行以下の小さな処理」に限定して利用するのが、現場でベテランが推奨する上手な使い分けのコツです。また、デバッグ時には親プログラム経由でしか呼び出せないため、単体テストをどう効率化するかを事前に設計しておくことも忘れないようにしましょう。
コメント