メインフレームの「動的メモリ管理」を攻略せよ！PL/IのBASED属性とポインタの極意
こんにちは。メインフレームの世界へようこそ。
JavaやCOBOLの経験がある方にとって、PL/Iのコードを初めて見たときの第一印象は「何だか少し、記号が多くて厳ついな」というものではないでしょうか。
特に、システムの根幹に関わる「メモリ管理」の場面で登場する`BASED`属性やポインタ変数は、一見すると難解な迷宮のように思えるかもしれません。しかし、これらは「メモリを支配するための最強のツール」です。
今日は、そんなPL/Iのポインタと動的ストレージの世界を、肩の力を抜いて一緒に紐解いていきましょう。
—
1. なぜ「BASED」が必要なのか？
通常、プログラムで変数を宣言すると、その変数はコンパイル時にメモリ上のどこに置くか決まります（静的割り当て）。しかし、基幹システムで扱うデータ量は毎回一定ではありませんよね。
「必要なときに、必要な分だけメモリを借りて、使い終わったら返す」。この柔軟な管理を可能にするのがBASED属性です。
BASED変数は、「そこにデータを入れるための『型（テンプレート）』はあるけれど、実体（メモリ上の住所）はまだ決まっていない」という状態です。この「住所」を指し示すのがポインタ変数となります。
2. 魔法のキーワード：ADDR関数とALLOCATE
PL/Iでの動的メモリ管理は、以下の3ステップで進みます。
1. テンプレートを作る：`DCL`で`BASED`属性をつけて宣言。
2. 場所を確保する：`ALLOCATE`文でメモリを確保し、ポインタに住所を格納。
3. 使い終わったら返す：`FREE`文でメモリを解放。
実践的なコード例
まずは、取引データを動的に確保する簡単な例を見てみましょう。
/i
/ — 取引データ管理サンプル — /
TEST_PGM: PROC OPTIONS(MAIN);
/ 1. テンプレート（BASED変数）の定義 /
/ この時点ではメモリは確保されていません /
DCL 1 TRAN_REC BASED(P_TRAN),
2 TRAN_ID CHAR(8),
2 AMOUNT FIXED BIN(31);
/ 2. ポインタ変数の宣言 /
DCL P_TRAN POINTER;
/ 3. メモリの確保（ここで初めて領域が確保される） /
ALLOCATE TRAN_REC;
/ データの書き込み /
P_TRAN->TRAN_ID = ‘TRX0001’;
P_TRAN->AMOUNT = 5000;
/ ADDR関数で住所を確認することも可能（デバッグ時に便利） /
PUT SKIP LIST(‘確保されたメモリの先頭アドレス:’, ADDR(TRAN_REC));
/ 4. 使い終わったら必ず解放！（メモリリーク防止） /
FREE TRAN_REC;
END TEST_PGM;
—
3. メモリリークを防ぐための「現場の教訓」
メインフレームのバッチ処理において、メモリリークは「深夜の突然の異常終了（ABEND）」という形で、最も恐ろしい結末を迎えます。JavaのGC（ガベージコレクション）に慣れていると忘れがちですが、PL/Iでは「借りたものは必ず返す」のが鉄則です。
ここからは、現役アーキテクトとしての「転ばぬ先の杖」をいくつかお伝えします。
- 「ALLOCATEした数」と「FREEした数」を一致させる：
ループ内で`ALLOCATE`を繰り返すようなロジックを書くときは、処理の終端で必ず`FREE`が通るように設計してください。エラーハンドリング（ON条件）の中で`FREE`を忘れると、そこから静かにメモリが食いつぶされます。
- ポインタの初期化を怠らない：
宣言しただけのポインタは「不定値」です。変な場所を指さないよう、必ず`DCL P_TRAN POINTER INIT(NULL());`のように初期化する癖をつけましょう。
- ポインタの「付け替え」に注意：
`P_TRAN`が指していたメモリを`FREE`した後に、まだそのポインタ変数を使ってデータにアクセスしようとすると、システムは容赦なく「不正な参照」として停止します。`FREE`した直後には、`P_TRAN = NULL();`と書き換えるのが、できるエンジニアの防衛策です。
—
最後に：怖がる必要はありません
PL/Iのポインタは、メモリという巨大な地図を自由に歩き回るための「コンパス」です。最初は戸惑うこともあるかもしれませんが、慣れてしまえば、これほど効率的でパワフルな武器はありません。
もしコンパイルエラーやABENDが出ても、「ああ、今はメモリの地図が迷子になっているんだな」と優しくデバッグしてあげてください。PL/Iは非常に論理的な言語ですので、一つずつ住所を確認していけば、必ず道が開けます。
皆さんのメインフレーム移行プロジェクトやバッチ保守が、少しでもスムーズに進むことを心から応援しています。また、何か困ったことがあればいつでも聞いてくださいね。
