導入：なぜEXTERNAL変数の初期化には注意が必要なのか
メインフレームのCOBOL開発において、複数のプログラム間でデータを共有するために使われるEXTERNAL属性。非常に便利ですが、不用意に初期値を設定するとリンク時にエラーが発生したり、予期せぬ値が保持されたりする原因となります。本記事では、EXTERNAL変数の「INITIAL」属性を安全に扱うためのルールと、現場で推奨される管理手法を解説します。
基礎知識：EXTERNAL属性とは
EXTERNAL属性は、プログラム間でデータ領域を共有するための仕組みです。通常の変数とは異なり、コンパイル単位を超えてメモリ上の同一領域を参照します。ここで重要なのは、コンパイラやリンカから見ると「どのプログラムがこの変数の初期状態を決定する責任を持つのか」が曖昧になりやすい点です。もし複数のプログラムで個別にINITIAL値を定義してしまうと、リンク時にどちらの初期値が優先されるか保証されず、重大なバグの温床となります。
実装/解決策：責任の所在を明確にする
解決策はシンプルです。「初期化を行う責任を持つプログラムを一つだけ決める」ことです。
1. 変数の定義元となる「管理プログラム」を一つ決め、そこにのみINITIAL値を記述します。
2. 他の参照プログラムでは、INITIAL句を省き、単にEXTERNAL属性のみを付与して宣言します。
サンプルプログラム
以下は、管理プログラムと参照プログラムの正しい書き分け例です。
管理プログラム（初期値を設定する側）
01 GLOBAL-DATA-AREA EXTERNAL.
05 G-COUNTER PIC 9(04) VALUE 0. > ここで初期値を一度だけ定義
参照プログラム（値を利用する側）
01 GLOBAL-DATA-AREA EXTERNAL.
05 G-COUNTER PIC 9(04). > 初期値は書かない（領域の参照のみを行う）
応用・注意点：Javaとの比較とリファクタリングの視点
この制約は、Javaにおけるstatic変数の初期化順序問題と非常に似ています。異なるクラスでstatic変数の初期化をバラバラに行うと実行順序が予測できなくなるのと同様、COBOLでも「どこで初期化されたか」を追跡しにくくなると保守性が著しく低下します。
現場でのリファクタリングの際は、全てのEXTERNAL変数を一箇所にまとめた「専用のデータ定義用COPY句」を作成し、INITIAL値の管理をその定義体や単一の初期化ルーチンに集約することを強くお勧めします。これにより、二重初期化のリスクを物理的に排除し、システムの信頼性を高めることが可能です。
コメント