汎用機の深淵：PL/IにおけるSTORAGE条件と動的メモリ管理の「作法」
基幹システムの現場において、`STORAGE`条件が発火するということは、単なるメモリ不足ではない。それは、システムが設計上の限界を超えたという「悲鳴」であり、多くの場合、無計画な動的確保と解放のアンバランスが招く末路だ。
Javaのガベージコレクションに慣れた世代には理解しがたいかもしれないが、PL/Iのメモリ管理は極めて厳格だ。今回は、`STORAGE`条件を単なるエラーハンドリングとしてではなく、システムアーキテクトとしての「防衛ライン」に昇華させるための知見を共有する。
—
1. STORAGE条件のハンドリング：ONユニットによる緊急退避
`ALLOCATE`文でメモリを取得する際、OSのフリーエリアが枯渇すれば即座に`STORAGE`条件が提起される。ここで放置すれば、当然ながら`S0C4`や`U4038`といった無慈悲なアベンドが待っている。
重要なのは、`ON STORAGE`ユニット内で、いかにして「安全に処理を打ち切るか」だ。
1
/ STORAGE条件のハンドリング例 /
ON STORAGE BEGIN;
/ ログ出力後にファイルをクローズし、異常終了コードを返すのが鉄則 /
PUT SKIP EDIT (‘FATAL: STORAGE EXHAUSTED. EMERGENCY SHUTDOWN.’) (A);
CALL CLOSE_FILES;
CALL ABEND_PROGRAM(‘U9999’);
END;
ここで注意すべきは、`ON`ユニット内でさらにメモリを消費する処理を書かないことだ。例えば、大規模な構造体の宣言や動的確保を行うコードを記述すれば、再帰的なSTORAGEエラーを招き、解析不能な無限ループに陥る。
—
2. ポインタとベース変数：動的メモリ操作の危険な遊戯
PL/Iの`BASED`変数とポインタ（`POINTER`）によるメモリ操作は、C言語のポインタ演算よりも強力かつ危険だ。特にマイグレーション時、Javaのヒープ管理とPL/Iの静的/動的ストレージの乖離を理解していないと、致命的なメモリリークを生む。
1
DCL P_REC POINTER; / メモリの番地を保持するポインタ /
DCL 1 MY_REC BASED(P_REC), / P_RECを基点とした構造体 /
2 KEY_ID CHAR(8),
2 DATA_VAL FIXED DEC(15,0);
/ 動的確保時の注意点 /
ALLOCATE MY_REC;
/ ここで必ずNULLチェックを行う習慣をつける /
IF P_REC = NULL() THEN CALL HANDLE_NO_MEM;
【アーキテクトの視点：パックデシマルと内部表現】
CICSオンライン処理で稀に遭遇するのが、`FIXED DEC`の内部符号ビットが不正な値（例えば、`0C`や`0F`ではなく、`0D`が予期せぬ場所にある等）により、計算時にアベンドするケースだ。これは外部システムから渡されたデータが、PL/Iのパックデシマル構造を破壊している際に発生する。`STORAGE`条件とは別に、データバリデーション層を設けるのが、レガシー移行における最大の保険となる。
—
3. コンパイラ最適化とダンプ解析の現実
`OPTIMIZE(3)`を適用している場合、コンパイラはレジスタに値を保持し続け、メモリ上の変数を更新しない最適化を行うことがある。これにより、ダンプを取得しても変数の値が実態と乖離しているように見える現象（いわゆる「最適化の罠」）が発生する。
トラブルシューティングの際、ダンプ解析で値が追えない場合は、該当モジュールを`NOOPTIMIZE`でコンパイルし直して現象を再現させるのが、スペシャリストの定石だ。
ダンプ解析の勘所
1. STORAGE条件発生時： `CEE1000S`等のメッセージが出力された場合、直前の`ALLOCATE`行のオフセットを特定せよ。
2. 埋め込みSQLとの相性： DB2のカーソル処理で使用する動的SQLバッファが、ストレージの断片化（フラグメンテーション）を招いていないか。`EXEC SQL FREE LOCATOR`の忘れが、地味だが最も多いメモリ枯渇の原因だ。
—
4. マイグレーションに向けたアーキテクチャ設計
将来的にJavaやC#へ移行する際、PL/Iの`BASED`変数は「オブジェクトのインスタンス生成」に相当する。しかし、PL/Iは「メモリの解放（`FREE`）」を明示的に行わなければならない。
移行設計においては、以下の基準を設けることを推奨する。
- ライフサイクルの明確化： `PROCEDURE`単位でメモリの`ALLOCATE`と`FREE`を完結させるラッパーを作成する。
- ダンプの標準化： `CEE3DMP`によるダンプ取得を、エラーハンドラ内に共通サブルーチンとして埋め込む。
- ストレージ・レポートの活用： コンパイラオプション`STORAGE(STGMT, …)`を活用し、初期化されていない領域へのアクセスを早期に検知する。
最後に：レガシーは「過去」ではなく「技術の結晶」である
PL/Iという言語は、非常に厳格で、書き手に対して高い規律を求める。しかし、その厳格さこそが、数十年にわたり基幹システムを支え続けてきた根拠でもある。
`STORAGE`条件を単なる「エラー」と捉えるのではなく、システムの限界を教えてくれる「設計の指標」と捉え直してほしい。コードの隅々に、あなたの技術的な矜持を刻み込むこと。それこそが、次の世代へとバトンを渡す真のシステムアーキテクトの仕事である。
