導入
メインフレームのシステム開発、特にPL/Iなどを用いた低レイヤーな制御において、メモリ上の特定の場所を指し示す「ポインタ（ロケータ）」の扱いは非常に重要です。なぜなら、誤ったメモリアドレスを操作することはシステムダウンに直結するからです。「同じ番地を指しているか」「NULLポインタではないか」を判定する比較演算は、重複処理の回避やデータの整合性チェックにおいて欠かせない技術です。今回は、安全な比較演算の実装方法について解説します。
基礎知識
メインフレームにおける「ロケータ」とは、データの配置されたメモリ上の「番地」を保持する変数です。Javaなどのオブジェクト指向言語で `obj1 == obj2` と書いた際、それはオブジェクトの中身ではなく「参照先（アドレス）」が同じかを比較します。PL/I等のロケータ比較もこれと全く同じ仕組みです。ここで重要になるのが「EQ（等しい）」と「NE（等しくない）」の判定です。アドレスの大小比較（> や <）は、メモリ管理の仕組み上、予期せぬ挙動を招くため基本的には行いません。
実装/解決策
ロケータの比較を行う際は、必ず「同じデータ型（基底変数）」を指すポインタ同士であることを確認してください。また、ポインタが何も指していない状態を意味する `NULL()` との比較を行うことで、ヌルポインタ参照による異常終了（ABEND）を未然に防ぐことができます。
サンプルプログラム
以下のコードは、二つのポインタが同じ場所を指しているか、あるいは初期状態（NULL）であるかを判定する典型的な例です。
/ ポインタの比較サンプル /
DCL P PTR; / ポインタ変数P /
DCL Q PTR; / ポインタ変数Q /
/ PとQが同じ番地を指しているか判定 /
IF P = Q THEN DO;
PUT SKIP LIST(‘PとQは同じメモリ番地を指しています’);
END;
/ PがNULL（無効なポインタ）でないことを確認して処理 /
IF P ^= NULL() THEN DO;
/ ここでPが指す先のデータにアクセスするのは安全 /
PUT SKIP LIST(‘Pは有効なアドレスです’);
END;
/ PとQが異なることを確認 /
IF P ^= Q THEN DO;
PUT SKIP LIST(‘PとQは別の場所を指しています’);
END;
応用・注意点
現場で最も注意すべきは、`OFFSET` 型を使用した比較です。`OFFSET` は特定の `AREA`（メモリ領域）の先頭からの相対位置を保持する変数です。そのため、異なる `AREA` に属する `OFFSET` 同士を比較しても、本来意図した判定が行われません。また、ポインタ比較はあくまで「アドレスの一致」を見るだけであり、指し示している先の「データの中身」まで一致していることを保証するものではありません。データの値そのものを比較したい場合は、必ず別途 `memcmp` 相当の比較処理を実装するようにしてください。
コメント