導入：なぜ今、INTERNAL属性を再確認するのか
メインフレームのレガシーシステムを保守・改修する際、変数スコープの予期せぬ衝突はバグの温床となります。PL/Iにおいて「INTERNAL」はデフォルトの動作であるため意識されにくい属性ですが、大規模なモジュールや再帰処理を行う際、このスコープの境界を正確に制御することは、保守性の高いコードを書くための第一歩です。今回は、この「情報の隠蔽」を支えるINTERNAL属性の仕組みを深掘りします。
基礎知識：INTERNALとスコープの基本
PL/IにおけるINTERNAL属性は、宣言された変数の有効範囲を、その宣言を含むブロック（PROCEDUREやBEGIN）内に限定することを意味します。対義語はEXTERNALであり、こちらは複数のモジュールやプロシージャ間で変数を共有する際に使用します。
INTERNALで宣言された変数は、ブロックの実行開始時にメモリが確保され、終了時に解放されます。特にAUTOMATIC属性と組み合わされることが一般的であり、これにより再帰呼び出し（RECURSIVE）が発生しても、各階層で独立したメモリ領域が確保されるため、データの上書きを防ぐことが可能になります。
実装と解決策：スコープの明確化
実務上、INTERNALはデフォルト設定であるため、あえて記述しないのが一般的です。しかし、大規模なシステム移行時や、他言語からのポーティング時には、変数の寿命がどこまでなのかを明示するために、あえて記述する（あるいはコメントで補足する）戦略が有効です。これにより、意図せず外部参照を行おうとしている箇所をコンパイルエラーや設計レビューで早期に発見できます。
サンプルプログラム：再帰処理とスコープの確認
以下のコードは、再帰呼び出しにおいてINTERNAL変数が各層でどのように独立しているかを確認するためのサンプルです。
/ 再帰処理におけるINTERNAL変数の挙動確認用サンプル /
TEST_PROC: PROCEDURE OPTIONS(MAIN);
DCL FACTORIAL ENTRY(FIXED BIN(31)) RETURNS(FIXED BIN(31));
DCL RESULT FIXED BIN(31);
RESULT = FACTORIAL(5);
PUT SKIP LIST('計算結果は: ' || RESULT);
/ 再帰関数 /
FACTORIAL: PROCEDURE(N) RETURNS(FIXED BIN(31)) RECURSIVE;
DCL N FIXED BIN(31);
/ INTERNAL属性を明示的に付与（デフォルトだが可読性向上のため） /
DCL LOCAL_VAL FIXED BIN(31) INTERNAL;
IF N <= 1 THEN RETURN(1);
/ 各階層でLOCAL_VALは独立しているため、再帰の深さに関わらず安全 /
LOCAL_VAL = N FACTORIAL(N - 1);
RETURN(LOCAL_VAL);
END FACTORIAL;
END TEST_PROC;
応用・注意点：現場で陥りやすい罠
実務で特に注意すべきは、「初期化のタイミング」です。INTERNALかつAUTOMATIC（デフォルト）な変数は、ブロックが呼び出されるたびに再生成され、初期化されます。もし、前回の呼び出し時の値を保持したい場合は、INTERNALではなくSTATIC属性を使用する必要があります。
また、古いプログラムで「変数の値が残っているはずだ」というバグ調査を行う際、原因がINTERNALによる動的なメモリ確保（再生成）にあるケースは非常に多いです。変数のスコープだけでなく、その変数が「どのタイミングで生存し、どのタイミングで破棄されるか」というライフサイクルを意識することが、トラブルシューティングの近道となります。
コメント