1. 導入：なぜSTORAGE条件のハンドリングが重要なのか
メインフレームのPL/I開発において、`ALLOCATE`文を用いた動的メモリ確保は柔軟なデータ処理に不可欠です。しかし、基幹システムでは処理の長時間化や並行実行により、ヒープ領域（USER HEAP）が枯渇するリスクが常に伴います。`STORAGE`条件を適切にハンドリングしなければ、プログラムは即座に異常終了（ABEND）し、ジョブ全体がストップしてしまいます。本稿では、`ON STORAGE`を使用してメモリ不足を検知し、緊急の解放処理やリカバリを行う手法を解説します。
2. 基礎知識：PL/Iのメモリ管理とSTORAGE条件
PL/Iにおける`STORAGE`条件とは、動的記憶域の要求に対してシステムがメモリを割り当てられない場合に発生する「例外」です。Javaなどの高級言語で見られる`OutOfMemoryError`に近い概念ですが、メインフレーム環境では、システム全体を落とす前に「不要なメモリ領域を解放する」「バッファサイズを縮小して再試行する」といった、アプリケーション層での復旧が可能な点が特徴です。`AREA`属性を用いた領域制御と組み合わせることで、堅牢なメモリ管理が可能となります。
3. 実装/解決策：ON-Unitを用いた例外処理の構築
`ON STORAGE`文を使用することで、メモリ不足が発生した瞬間に制御を専用のルーチン（ON-Unit）へ移譲できます。ここで重要なのは、単にログを出力して終了するのではなく、システムが確保可能な状態へ復旧させるロジックを組み込むことです。
4. サンプルプログラム：STORAGE条件の捕捉と解放処理
以下は、メモリ不足を検知した際に、特定の処理を停止して領域を解放し、再試行を促すための実装例です。
/ メイン処理部 /
ON STORAGE BEGIN;
/ メモリ不足発生時に呼び出されるルーチン /
CALL EMERGENCY_CLEANUP;
/ 簡易的に再試行を試みるか、正常終了へ誘導する /
PUT SKIP LIST('STORAGE CONDITION: メモリ不足を検知しました。');
END;
EMERGENCY_CLEANUP: PROC;
/ ここに不要な動的変数の解放処理を記述 /
/ 例：FREE_UNUSED_AREA; /
PUT SKIP LIST('緊急解放ルーチンを実行中...');
END;
/ メイン処理ロジック /
DCL MY_PTR PTR;
/ 大量確保が必要な場面 /
ALLOCATE MY_DATA SET(MY_PTR);
5. 応用・注意点：現場で陥りやすい罠
`ON STORAGE`を実装する上で、以下の点に注意してください。
無限ループの回避：`ON-Unit`内でさらにメモリを大量に消費する処理を行うと、再度`STORAGE`条件が発生し、無限ループに陥ります。`EMERGENCY_CLEANUP`内では、新規の`ALLOCATE`を行わないよう徹底してください。
ヒープ設計の精査：`ON STORAGE`はあくまで緊急避難措置です。頻繁にこの例外が発生する場合は、プログラムの設計レベルでの見直しが必要です。LE（Language Environment）のヒープ・サイズ設定や、`STORAGE`サブヒープの構成を確認し、運用設計そのものを最適化することを推奨します。
リカバリの限界：メインフレームにおいて、メモリ不足はシステム負荷のバロメーターでもあります。何度も例外が発生する場合は、ジョブの再実行を検討するなどの「逃げ道」を作っておくことも、実務上の重要なリスク管理となります。
コメント