1. 導入: なぜこのTipsが重要なのか
PL/IのCONTROLLED（記憶域クラス）変数は、プログラム実行中に動的にメモリを確保・解放できる強力な機能です。しかし、誤った方法でサブルーチンに渡すと、予期せぬ「コピー・イン/アウト（データの複製）」が発生し、CPUリソースとメモリを無駄に消費する原因となります。本稿では、効率的な参照渡しを行い、パフォーマンスを最大化するための実装手法を解説します。
2. 基礎知識: CONTROLLED変数と世代管理
CONTROLLED変数は、ALLOCATE文によってメモリを確保し、FREE文で解放する変数です。特筆すべきは「スタック構造（世代管理）」です。同じ名前の変数を再ALLOCATEすると、古い世代がスタックの奥に隠れ、新しい世代がアクティブになります。サブルーチンに渡す際、コンパイラが「どの世代を操作すべきか」を正しく解決できないと、データの一貫性を保つために内部的なコピー作業が走り、パフォーマンスが著しく低下します。
3. 実装/解決策: ポインタ参照の活用
最も効率的な手法は、変数の「アドレス」を直接渡すことです。これにより、コンパイラはコピーを作成せず、現在の世代のアドレスを参照先として解決します。複雑なデータ構造であっても、参照モデルを用いることで、オーバーヘッドを最小限に抑えることが可能です。
4. サンプルプログラム
以下に、CONTROLLED変数を効率的に受け渡すためのコード例を示します。ADDR組み込み関数を使用してアドレスを渡すのがポイントです。
/ メインプログラム /
DCL MY_BUFFER CHAR(100) CONTROLLED;
DCL P_BUFFER PTR;
ALLOCATE MY_BUFFER;
P_BUFFER = ADDR(MY_BUFFER);
/ サブルーチンにアドレスを渡して直接操作する /
CALL UPDATE_BUFFER(P_BUFFER);
FREE MY_BUFFER;
/ サブルーチン側 /
UPDATE_BUFFER: PROC(P_IN);
DCL P_IN PTR;
/ BASED変数を用いて、渡されたアドレスの実体を直接参照 /
DCL B_BUFFER CHAR(100) BASED(P_IN);
B_BUFFER = 'データ更新完了';
END UPDATE_BUFFER;
5. 応用・注意点: ライフサイクルの副作用
現場で最も注意すべき点は、サブルーチン内での「再ALLOCATE」です。もしサブルーチン内でCONTROLLED変数に対してALLOCATEを実行すると、呼び出し側のスタックに新たな世代が積まれます。これを理解せずにサブルーチンを抜けると、呼び出し側に戻った際に「どの世代をFREEすべきか」という管理が煩雑になり、メモリリークや不正アクセスの原因となります。
また、マルチスレッド環境や複雑な再帰呼び出しを行う場合は、必ず「現在の世代」が意図した通りか、ADDR関数による解決が適切に行われているかを確認してください。このライフサイクルを意識するだけで、メインフレーム上のアプリケーションは劇的に安定し、実行速度も改善されます。
コメント