1. 導入：なぜBASED変数が重要なのか
メインフレームのPL/I開発において、データのサイズや件数が実行時まで確定しないケースは少なくありません。固定長の配列（STATICやAUTOMATIC）だけで対応しようとすると、メモリの無駄遣いが発生するか、あるいは領域不足による異常終了を招くことになります。BASED変数は、必要なタイミングで必要な分だけメモリを確保する「動的記憶域管理」を実現する鍵であり、複雑なリスト構造やツリー構造を実装する上で不可欠な技術です。
2. 基礎知識：BASED変数とポインタ
PL/IにおけるBASED変数は、それ自体ではメモリを占有しません。「メモリ上のどこにあるデータ構造を、どう扱うか」という型定義（テンプレート）に近い役割を持ちます。この「どこにあるか」を指し示すのがポインタ変数です。
ALLOCATE文を実行することで、システムはヒープ領域（USER HEAP）から指定されたサイズのメモリを切り出し、その先頭アドレスをポインタ変数にセットします。これにより、プログラムは動的に確保された領域を、あたかも静的な構造体であるかのように直感的に扱えるようになります。
3. 実装と解決策
BASED変数を使用する際は、以下のサイクルを守ることが重要です。
1. 定義：BASED属性を持つ構造体を宣言する。
2. 確保：ALLOCATE文で領域を確保し、ポインタにアドレスを格納する。
3. 利用：ポインタを介してデータを操作する。
4. 解放：FREE文で領域をシステムに返却する（メモリリーク防止）。
4. サンプルプログラム
以下は、動的にリスト構造の一部を作成する基本的なコード例です。
/ ノード構造体の定義 /
DCL 1 NODE BASED(P),
2 DATA_VAL FIXED BIN(31),
2 NEXT_PTR POINTER;
DCL P POINTER;
DCL HEAD POINTER INITIAL(NULL());
/ 1. ノード領域の確保 /
ALLOCATE NODE SET(P);
/ 2. データの代入 /
NODE.DATA_VAL = 100;
NODE.NEXT_PTR = NULL();
/ 3. 必要に応じて解放（メモリリークを防ぐため必須） /
FREE NODE;
5. 応用・注意点：現場でのトラブル回避
現場で最も注意すべきは「ストレージ不足のハンドリング」です。JavaのOutOfMemoryErrorと同様に、ALLOCATE文はヒープ領域が枯渇するとSTORAGE条件を発生させます。ON STORAGE句を使用して、エラー発生時のリカバリ処理（ログ出力や処理中断、ダンプ取得など）を事前に実装しておくことが、堅牢なシステム構築の定石です。
また、ALLOCATEで確保した領域は、FREEを忘れると「メモリリーク」となり、長時間稼働するバッチ処理では徐々にメモリを圧迫し、最終的にジョブ異常終了を引き起こします。「ALLOCATEとFREEは必ずセットで記述する」というコーディング規約を徹底してください。複雑な構造体の場合、解放順序を誤るとポインタの連鎖が切れてしまい、解放できない領域が発生する「孤立ノード」問題にも注意が必要です。
コメント