【現場の心得】PL/Iの「BASED」と「ポインタ」でメモリを操る――その力と、潜む罠
やあ。今日もメインフレームの迷宮に潜り込んでいる諸君、お疲れ様。
COBOLの堅牢さも悪くないが、PL/Iの「何でもできる」という言語設計には、時としてエンジニアの背筋を凍らせるほどの自由と危険が同居している。
今日は、現場でたまに遭遇する「なぜか動くが、なぜ動いているのか誰も説明できない」コードの正体、BASED変数とポインタによるメモリ直接操作について語ろう。
1. なぜ「予約語がない」という狂気が生んだのか
まず基本の復習だ。PL/Iには、他の言語のような厳格な「予約語（リザーブドワード）」という概念が存在しない。`IF` や `THEN` さえ、変数名として使えてしまう。
これは自由度の極致だが、一歩間違えれば「`IF` という名前の変数を参照しているつもりが、条件分岐のキーワードとしてコンパイラに解釈される」という悪夢を生む。
しかし、この言語の真髄は、そんなトリッキーな仕様よりも「メモリレイアウトをプログラマが完全に制御できる」点にある。これこそが、VSAMのレコードをダイレクトに構造体へマッピングし、爆速でバッチを処理する秘訣だ。
2. BASED属性とポインタ：メモリの地図を描く
`BASED` 属性は、変数の「実体（メモリ）」をどこに置くかを、コンパイル時ではなく実行時に決定する。つまり、メモリの特定の番地を「この構造体として解釈せよ」とコンパイラに命令するわけだ。
以下のコードを見てくれ。VSAMのI/Oバッファを、構造体として強引にマッピングする手法だ。
/i
/ VSAMレコードをメモリ上で直接扱うための定義 /
DCL 1 VSAM_REC_LAYOUT BASED(P_BUFFER),
3 REC_TYPE CHAR(1),
3 REC_KEY CHAR(10),
3 REC_DATA CHAR(89);
DCL P_BUFFER PTR; / アドレスを保持するポインタ /
DCL BUF_AREA CHAR(100); / 実際のデータバッファ /
/ 処理ロジック /
P_BUFFER = ADDR(BUF_AREA); / バッファのアドレスを取得 /
/ この瞬間から、BUF_AREAの先頭はVSAM_REC_LAYOUTとして扱える /
IF VSAM_REC_LAYOUT.REC_TYPE = ‘A’ THEN DO;
PUT SKIP LIST(‘データタイプAを検知: ‘ || VSAM_REC_LAYOUT.REC_KEY);
END;
3. 実務で遭遇する「罠」と防衛術
この技法は極めて強力だが、一歩間違えれば「ABEND S0C4（アドレッシング例外）」の餌食だ。現場の改修で意識すべきポイントは以下の3つだ。
- 境界整列（アライメント）に注意せよ：
`ALIGNED` と `UNALIGNED` の違いを理解していないと、構造体のオフセットがずれる。特にVSAMから読み込んだレコードをそのままマッピングする場合、`UNALIGNED` を明示的に指定しないと、予期せぬパディング（隙間）が挿入され、データが化ける。
- ポインタの初期化を怠るな：
`DCL P_BUFFER PTR` と宣言した直後のポインタは「未定義」だ。この状態でアクセスすれば、OSからの容赦ない強制終了が待っている。必ず `ADDR` 関数で有効な番地を代入してから使うこと。
- ONユニットでの捕捉：
メモリ操作ミスによる異常終了をデバッグする際、`ON CONDITION` や `ON AREA` を駆使するのはいいが、本番コードでは「なぜエラーになったか」の特定に時間を食う。開発段階でポインタの値が正しいか、`ADDR` が指し示す先が本当にバッファ内か、`PUT DATA` でこまめに確認する癖をつけろ。
4. 最後に：黒魔術の使い手になるために
ポインタとBASED変数を使ったメモリ操作は、現代の高級言語では隠蔽されている部分だ。しかし、メインフレームの基幹バッチにおいて、数百万件のレコードを処理する際、この「メモリコピーを避ける」テクニックは、CPUサイクルとI/O負荷を劇的に抑えることができる。
「このコード、なぜこんな書き方をしているのか？」と疑問に思ったら、そのコードは先人が知恵を絞って性能を極限まで引き出した証かもしれない。
PL/Iは、書き手を選ばない。だが、その深淵を覗き込む覚悟がある者には、他の言語では決して到達できない領域のパフォーマンスという報酬を与えてくれる。
もし改修中に壁にぶつかったら、まずは `ADDR` の指し先を確認すること。そして、そのデータが本当に期待した構造体（レイアウト）と一致しているか、冷静にダンプリストと向き合うことだ。それが、メインフレームエンジニアとしての矜持というものだ。
さて、そろそろジョブの投入時刻だ。また現場で会おう。
