メインフレームの深淵：PL/IのBASEDストレージとポインタで「メモリを支配する」技術
若手の諸君、メインフレームの世界へようこそ。COBOLが「読み書きのしやすさ」を重視する言語なら、PL/Iは「ハードウェアの能力を余すところなく引き出す」ための言語だ。特に大規模な基幹バッチで、巨大なVSAMデータセットを効率よく処理したり、複雑な動的データ構造を捌く必要があるとき、`BASED`変数とポインタの使いこなしは、エンジニアとしての格を分ける境界線になる。
今日は、教科書的な説明はそこそこに、現場で「なぜそう書くのか」という哲学にまで踏み込んで解説しよう。
—
1. BASEDストレージとは何か：ポインタという名の「地図」
PL/Iにおける`BASED`変数は、それ自体ではメモリを確保しない。いわば「そこに何があるか」という構造の定義（地図）に過ぎない。実際にその構造を実体化させるには、`ALLOCATE`文でメモリを確保するか、あるいはポインタ変数を介して既存のメモリ領域を指し示す必要がある。
これがなぜ重要か？ それは、レコードの構造が可変であったり、実行時に読み込む件数やデータ構成が動的に変わるようなバッチ処理において、メモリのオーバーヘッドを最小限に抑えつつ、柔軟なデータアクセスが可能になるからだ。
2. 実践コード：VSAMレコードの動的マッピング
例えば、VSAMの可変長レコードを扱う際、先頭数バイトのIDによって後続のデータ構造が切り替わるようなケースを想像してほしい。このとき、ポインタを駆使すると非常にスマートに処理できる。
/i
/ — BASED変数とポインタを用いた動的なデータアクセス例 — /
MAIN_PROC: PROCEDURE OPTIONS(MAIN);
/ 構造体の定義：実体を持たず、メモリの解釈方法のみを定義 /
DECLARE 1 TYPE_A BASED(PTR_A),
2 ID CHAR(4),
2 DATA CHAR(100);
DECLARE 1 TYPE_B BASED(PTR_B),
2 ID CHAR(4),
2 VALUE FIXED BIN(31);
/ ポインタ変数の宣言 /
DECLARE (PTR_A, PTR_B) POINTER;
DECLARE BUF_ADDR POINTER; / 読み込んだバッファの先頭を指す /
/ コンパイル済み組み込み関数 ADDR を活用した参照 /
/ 本来はVSAMのREAD INTOなどで取得した領域を指す /
/ 読み込んだ領域(BUF_ADDR)をTYPE_Aとして解釈 /
PTR_A = BUF_ADDR;
IF TYPE_A.ID = ‘A001’ THEN DO;
PUT SKIP LIST(‘TYPE_Aのデータ:’ || TYPE_A.DATA);
END;
ELSE DO;
/ 同じ領域を別の構造体(TYPE_B)として解釈し直す /
PTR_B = BUF_ADDR;
PUT SKIP LIST(‘TYPE_Bの値:’ || TYPE_B.VALUE);
END;
END MAIN_PROC;
—
3. トラブルを未然に防ぐ「現場の鉄則」
ポインタを使うということは、メモリの生に近い部分を触るということだ。以下の点は、現場でバグを埋め込まないための必須教養だ。
- NULLポインタのチェックは儀式：
`ALLOCATE`に失敗した場合や、未初期化のポインタにアクセスしようとすると、システムは容赦なく`0C4`（保護例外）を叩きつけてくる。ポインタ変数は必ず `NULL()` で初期化し、使用前に比較チェックを入れるのが、夜中のトラブルコールを防ぐ防波堤となる。
- ONユニットとの連携：
動的メモリ確保を行う場合、`ON AREA` や `ON STORAGE` ユニットを適切に配置すること。特にマイグレーション案件で、旧システムからリソース上限が厳しくなっている場合、確保失敗時のハンドリングがないプログラムは脆い。
- OFFSET変数の活用：
`POINTER`変数は絶対アドレスを保持するが、`OFFSET`変数は「あるエリア（AREA）の先頭からの相対位置」を保持する。同一アドレス空間内でのデータ移動や、チェックポイント・リスタートを考慮したダンプ出力を行う際には、この`OFFSET`の方が扱いやすい場合がある。
4. 最後に：なぜ今、PL/Iなのか
今や、多くの基幹システムがJavaやC#への移行を検討している。しかし、メインフレームで数十年培われてきた「メモリを意識した高効率なアルゴリズム」は、言語が変わっても価値が色褪せることはない。
PL/Iの`BASED`変数を使いこなすことは、単なる構文の習得ではない。コンピュータがメモリをどう解釈し、CPUがいかにデータをフェッチするかという「計算機の作法」を肌感覚で理解することに繋がる。
諸君、まずはデバッガーでポインタ変数の指し示す先（アドレス）を追ってみることから始めてほしい。最初は面食らうかもしれないが、一度その「視界」が開ければ、どんなに複雑なレガシーコードも恐れるに足りなくなるはずだ。
何か詰まったら、いつでも聞いてくれ。設計の現場で待っている。
