メインフレームの守護神PL/I：ポインタの迷宮を安全に歩く「FREE」の作法
こんにちは。メインフレームの深淵へようこそ。
普段、JavaやCOBOLの温かいメモリ管理（あるいはCOBOLの「メモリを意識させない」静的な世界）に慣れていると、PL/Iのポインタ操作はまるで「ナイフを持って暗闇を歩く」ような不安を感じるかもしれませんね。
でも、安心してください。PL/Iのポインタ管理は、ルールさえ守れば最強の武器になります。今日は、基幹システムの現場で最も恐れられる「S0C4 ABEND（ストレージ保護例外）」を回避し、スマートにメモリを解放する『FREE文』の極意をお伝えします。
—
1. そもそもPL/Iの「動的メモリ」とは？
Javaの`new`のように、PL/Iでは`ALLOCATE`文を使ってメモリを確保します。このとき、そのメモリ領域を指し示すための「住所（アドレス）」を保持するのがポインタ変数です。
/i
DCL P PTR; / Pは住所だけを覚える変数の箱 /
DCL X CHAR(10) BASED(P); / Xは「Pが指す場所にある10バイトのデータ」という定義 /
ALLOCATE X; / ここでメモリを確保！Pにアドレスが格納される /
この`ALLOCATE`とセットで絶対に覚えておくべきなのが、使い終わったメモリを掃除する`FREE`文です。
—
2. なぜ「FREE」した後にダングリングポインタが生まれるのか
ここが一番の落とし穴です。
`FREE X;` を実行すると、その場所にあったデータは消え、OSに返却されます。しかし、ポインタ変数 `P` は、まだ「さっきまでそこにデータがあった場所」の住所を指し続けているのです。
これが「ダングリングポインタ（ぶら下がりポインタ）」です。この状態で `X` にアクセスしようとすると、システムは「そこはもうあなたの持ち物じゃないですよ！」と怒り、無情にも S0C4 ABEND を叩きつけてきます。
現場でよくある失敗パターン
/i
FREE X;
/ …長い処理が続く… /
X = ‘NEW DATA’; / ここでS0C4発生！Pは既に無効なアドレスを指している /
—
3. 安全を確保する「実務的ベストプラクティス」
ダングリングポインタを防ぐための、現場で愛用されている鉄則を2つご紹介します。
鉄則その1：FREE直後にポインタを「NULL」にする
PL/Iには `NULL()` という便利な組み込み関数があります。解放した直後にポインタを「どこも指していない状態」にしてしまうのが、最も確実な防衛策です。
/i
FREE X;
P = NULL(); / 「掃除しました」というフラグを立てる /
/ 後の処理でチェックを入れる /
IF P ^= NULL() THEN
X = ‘SAFE ACCESS’;
鉄則その2：構造体単位での管理
PL/Iでは巨大な構造体を動的に確保することが多いですよね。そんな時は、その構造体を指すポインタをグローバルに放置せず、可能な限りそのメモリを確保したサブルーチン（PROCEDURE）内で完結させるか、アクセス権限を厳格に管理しましょう。
—
実践的なコード例：安全なメモリ管理
現場のバッチプログラムをイメージしたコードです。このように「確保・解放・ポインタのクリーンアップ」をセットで記述する癖をつけると、保守性が劇的に向上します。
/i
MY_PROC: PROC OPTIONS(MAIN);
DCL P PTR;
DCL 1 MY_DATA BASED(P),
2 ID CHAR(4),
2 VALUE FIXED BIN(31);
/ — メモリの確保 — /
ALLOCATE MY_DATA;
MY_DATA.ID = ‘A001’;
/ 何か処理をする /
CALL DO_SOMETHING(P);
/ — 安全な解放プロセス — /
FREE MY_DATA;
P = NULL(); / 忘れずにNULLを代入！ /
RETURN;
END MY_PROC;
—
最後に：怖がる必要はありません
PL/Iは、メモリの「寿命」をプログラマが直接コントロールできる、非常に自由度の高い言語です。JavaのようなGC（ガベージコレクション）がないことを「不便」と捉えるのではなく、「自分のシステムのリソースを最後まで責任を持って管理できる」という特権だと考えてみてください。
もし、デバッグ中にS0C4に遭遇したら、まずは「どこで `FREE` して、どこでそのポインタを再利用しているか」を突き止めてください。`NULL()`へのクリアという小さな一手間が、深夜の緊急呼び出しを防ぐ一番の特効薬になります。
皆さんのメインフレーム・ライフが、より安定したものになりますように。また次回、奥深いPL/Iの世界でお会いしましょう！
