導入
メインフレームのPL/I開発において、変数の初期化は静的な定数で行うのが一般的ですが、実行時のシステム状態（時刻や特定のパラメータ）を即座に反映させたい場面があります。通常、実行文として代入処理を書くのが定石ですが、DCL文と同時に初期化を行う「動的初期化」を適切に使うことで、コードの可読性を高め、初期化漏れを防ぐことが可能になります。本稿では、INITIAL句で関数を呼び出す際の技術的注意点を解説します。
基礎知識
PL/IにおけるINITIAL（またはINIT）属性は、変数の記憶域が割り当てられた際に初期値を設定するものです。通常は「DCL X FIXED BIN(31) INIT(0);」のようにコンパイル時定数を指定しますが、ここに組み込み関数（TIMEやDATEなど）を記述すると、プログラムが実行され、その変数のメモリが確保されるタイミングで関数の戻り値が評価されます。これはJava等の現代的な言語における「宣言時初期化」と同じ挙動ですが、メインフレーム特有のスタック管理やストレージの寿命（STORAGE属性）と密接に関連している点に注意が必要です。
実装/解決策
動的初期化を行う際は、その変数が「どのタイミングで初期化されるか」を意識する必要があります。AUTOMATIC属性の変数は、ブロック（PROCEDUREやBEGIN）に入った瞬間にスタック上に領域が確保され、そのタイミングでINITIAL句の評価が行われます。これにより、呼び出しのたびにその時点のシステム時刻などを取得し、変数を準備することができます。
サンプルプログラム
以下は、プログラムの開始時刻を動的に取得し、その後の処理で経過時間を計測するための基礎的なコード例です。
/ 処理開始時刻を自動的に取得する例 /
TEST_PROC: PROCEDURE OPTIONS(MAIN);
/ 宣言時にTIME関数を呼び出し、実行時の時刻を格納 /
DCL START_TIME FIXED BIN(31) INIT(TIME());
DCL CURRENT_TIME FIXED BIN(31);
/ 処理の途中で再度現在時刻を取得 /
CURRENT_TIME = TIME();
/
注意: 初期化はブロック突入時に一度だけ行われるため、
START_TIMEは常にプログラム開始時の値を保持し続けます。
/
PUT SKIP LIST(‘開始時刻: ‘ || START_TIME);
PUT SKIP LIST(‘現在時刻: ‘ || CURRENT_TIME);
END TEST_PROC;
応用・注意点
この手法を用いる際、現場で特に注意すべき点が2つあります。
1. 再帰呼び出し時の挙動
AUTOMATIC変数は再帰呼び出しのたびにスタック上に新しく領域が確保されます。その際、INITIAL句も毎回評価されるため、関数呼び出しの結果が再帰のレベルごとに異なる値になる可能性があります。これを意図しない場合は、STATIC属性を併用して初期化を初回のみに制限する必要があります。
2. 実行コストの意識
複雑な計算や外部リソースを叩く関数をINITIAL句に記述すると、変数が定義されているブロックに入るたびにその処理が走ります。頻繁に呼び出されるサブルーチン内で重い処理を初期化に含めると、パフォーマンス劣化の原因となります。基本的には組み込み関数のような軽量な処理に留めるのが安全です。
「宣言しただけで初期値が入っている」という恩恵は大きいですが、デバッグ時には「どこで値が確定したか」を追いにくくなる側面もあるため、多用しすぎず、コンテキスト初期化が必要なケースに絞って活用してください。
コメント