【PL/I深掘り】ポインタ演算の真髄：POINTERADD関数で構造体配列を自在に操る
システムアーキテクトの視点から一言。メインフレームのマイグレーションや大規模バッチの改修において、最も「バグの温床」となりやすいのがポインタ操作です。
かつてのPL/Iプログラマは、`ADDR(VAR) + OFFSET` のような計算を平気で行っていましたが、これは非常に危険です。64ビットアドレッシングへの移行や、コンパイラの最適化によって、単純な数値演算としてのポインタ操作は予測不能な挙動を引き起こすからです。
そこで今回は、現代のPL/I開発における標準作法である `POINTERADD` ビルトイン関数に焦点を当てます。
—
なぜ `POINTERADD` を使うべきなのか
古参のエンジニアほど、「ポインタなんて単なるメモリアドレスの数値だろう」と考えがちです。しかし、PL/Iの規格上、ポインタは単なる整数値ではなく、特定のデータ型を指し示す「論理的なアドレス」です。
単純な加算演算子（`+`）でポインタを操作しようとすると、一部のコンパイラオプションや環境下では意図しないアライメント調整が働いたり、そもそもコンパイルエラーになったりします。`POINTERADD` は、指定したバイト数を確実に加算・減算するための唯一の安全装置なのです。
—
実践：構造体配列へのポインタアクセス
VSAMファイルを読み込み、そのレコードを構造体配列にマッピングして高速処理を行うようなケースを想像してください。この際、`POINTERADD` を使うことで、構造体のサイズを意識したスマートなポインタ演算が可能になります。
以下に、実務でそのまま使えるコーディング例を示します。
1
//
/ ポインタ演算による構造体配列アクセスサンプル /
//
TEST_PTR_PROC: PROCEDURE OPTIONS(MAIN);
DCL 1 TBL_STRUCT BASED(P_CURRENT),
2 ID CHAR(4),
2 DATA_VAL FIXED BIN(31);
DCL TBL_SIZE FIXED BIN(31) INIT(STG(TBL_STRUCT)); / 構造体サイズ /
DCL P_BASE POINTER; / 配列の先頭ポインタ /
DCL P_CURRENT POINTER; / 現在処理中のポインタ /
DCL I FIXED BIN(15);
/ VSAM等から取得した領域の先頭アドレスをP_BASEに設定 /
P_BASE = …;
/ ループで構造体配列を順次走査 /
DO I = 0 TO 9;
/ P_BASEを基準に、(I サイズ)分だけアドレスを進める /
P_CURRENT = POINTERADD(P_BASE, I TBL_SIZE);
/ ここでIDやDATA_VALにアクセス /
PUT SKIP LIST(‘ID:’, TBL_STRUCT.ID, ‘VAL:’, TBL_STRUCT.DATA_VAL);
END;
END TEST_PTR_PROC;
ここがプロのポイント
1. STG(Storage)ビルトインの活用: `STG`関数を使うことで、コンパイラが計算した正確な構造体サイズを取得できます。これをハードコーディングしてはいけません。構造体のメンバが増えた瞬間に、システム全体が崩壊するからです。
2. 型定義（BASED）の分離: `BASED` 変数を使用することで、ポインタを付け替えるだけで同じ定義を異なるメモリ領域に適用できます。これがPL/Iが古くから構造化プログラミングに強い理由です。
—
トラブルシューティング：ONユニットの罠
ポインタ演算を多用する場合、必ずと言っていいほど遭遇するのが `STORAGE` や `ADDRESS` に関する例外です。
もしポインタ演算の結果が不正なアドレスを指し、そこを参照しようとした場合、プログラムは即座に異常終了（S0C4など）します。これを防ぐためには、`ON CONDITION` または `ON STORAGE` を適切に配置し、スタックトレースを詳細に出力させる設計が不可欠です。
1
/ 異常終了時のデバッグ用ONユニット /
ON CONDITION(ANY_ERROR) BEGIN;
PUT SKIP LIST(‘ポインタエラー発生。アドレス値の妥当性を確認してください。’);
/ ここでダンプ取得やログ出力を行う /
END;
後輩エンジニアへ伝えたいこと
ポインタ操作は「諸刃の剣」です。しかし、正しく使えばVSAMファイルへの直接アクセスや、バッファをメモリ上で直接制御するような高度な処理が、信じられないほどのパフォーマンスで実行可能です。
「動けばいい」というコードではなく、「コンパイラの挙動を理解し、将来のメンテナンスまで考慮した安全なコード」を書く。それが、我々メインフレームエンジニアの矜持です。
今回のコードは、ぜひ手元の環境でプリコンパイルし、`LIST` オプションで生成されたアセンブラソースを確認してみてください。`POINTERADD` がどのようにアドレス計算を最適化しているかが見えると、より深い理解に繋がるはずです。
何か疑問があれば、現場の「黒い画面」の前でまた議論しましょう。健闘を祈ります。
