1. 導入
メインフレームのPL/I開発において、プロシージャの呼び出し間で値を保持したいというケースは頻繁に発生します。しかし、値を保持したいがために安易に外部スコープ（EXTERNAL）へ変数を宣言すると、プログラム全体の結合度が高まり、デバッグや保守が困難になります。本稿で解説する「STATIC INTERNAL」属性は、変数のスコープを局所化しつつ、メモリを永続保持させることで、安全で効率的な状態管理を実現する重要なテクニックです。
2. 基礎知識
PL/Iにおける変数宣言には、その変数が「どこから見えるか（スコープ）」と「いつまでメモリが確保されるか（記憶域クラス）」の2つの側面があります。
・STATIC: プログラムの実行開始から終了までメモリ上に存在し続ける属性です。
・INTERNAL: その変数を宣言したプロシージャ内からのみ参照可能というスコープです。
これらを組み合わせたSTATIC INTERNALは、外部からの干渉を避けつつ、前回の処理結果を次回呼び出し時に引き継ぐことを可能にします。これは他言語における「カプセル化された静的変数」と同等の役割を果たします。
3. 実装/解決策
STATIC INTERNALを利用する典型的なケースは、集計処理におけるカウンタや、前回の計算結果のキャッシュです。
変数を手続きの先頭で宣言し、初期化が必要な場合はINITIAL属性を併用します。これにより、プログラムがロードされた直後の初回呼び出し時のみ特定の値で初期化され、以降の呼び出しでは最後に書き込まれた値が保持されます。
4. サンプルプログラム
以下は、呼び出されるたびに累計値を計算して返す、状態保持型のファンクションの例です。
/ 累計値を保持するプロシージャのサンプル /
CALC_TOTAL: PROC(INPUT_VAL) RETURNS(FIXED BIN(31));
DCL INPUT_VAL FIXED BIN(31);
/ STATIC属性により、プロシージャ終了後も値が保持される /
/ INITIAL属性は、プログラム開始時の最初の1回のみ適用される /
DCL TOTAL_SUM FIXED BIN(31) STATIC INTERNAL INITIAL(0);
/ 前回までの合計に今回の値を加算 /
TOTAL_SUM = TOTAL_SUM + INPUT_VAL;
/ 現在の累計を返却 /
RETURN(TOTAL_SUM);
END CALC_TOTAL;
5. 応用・注意点
現場で活用する上で注意すべき点は以下の通りです。
・再入可能（Reentrant）プログラムへの影響:
プログラムを再入可能（RENT）としてコンパイルする場合、STATIC変数は書き換え不可の領域に置かれます。もしSTATIC変数を更新する必要がある場合は、データ領域を適切に分離する必要があります。オンライン処理（CICS等）では特に注意が必要です。
・マルチスレッド/並行処理:
複数のタスクから同一のプロシージャが呼び出される環境では、STATIC変数は「共有リソース」となります。排他制御を行わないとデータ破壊の原因となるため、注意してください。
・リファクタリングの視点:
現代のオブジェクト指向的な設計への移行を考えるならば、手続き単位のSTATIC変数が肥大化しすぎた場合は、それらの変数を管理する独立したデータモジュールを作成するか、クラス構造（PL/Iであればパッケージ機能の活用）へ昇華させることを推奨します。
適切に使用すれば、コードの簡潔さを保ちつつ堅牢な状態管理が可能になります。ぜひ日々の保守・開発に取り入れてみてください。
コメント