1. 導入：なぜ今、境界チェックが必要なのか
メインフレーム開発の現場において、配列の添字が宣言範囲を超えてアクセスされる「添字範囲外アクセス」は、最も厄介なバグの一つです。多くの場合、デフォルトのNOSUBRG設定ではエラーにならず、隣接するメモリ領域を破壊します。これにより、全く関係のない変数の値が書き換わるという、原因特定が困難な事象が発生します。本稿では、PL/IにおけるSUBSCRIPTRANGE（SUBRG）を活用し、こうしたメモリ破壊を未然に防ぐ手法を解説します。
2. 基礎知識：SUBSCRIPTRANGEとは
SUBSCRIPTRANGE（SUBRG）は、配列の添字が宣言された境界（LBOUNDからHBOUND）を超えた際に、PL/Iランタイムが例外を検知するための条件指定です。
現代のJava等の言語ではJVMが常に強制的にチェックを行いますが、PL/Iではパフォーマンス上の理由から、デフォルトで無効（NOSUBRG）になっていることが一般的です。この機能を有効化することで、境界外アクセス発生時にプログラムを異常終了させるか、あるいはON-Unitを用いて動的に補正・警告を出すことが可能になります。
3. 実装/解決策
実務においては、開発・テストフェーズでは必ずSUBRGを有効化し、境界外アクセスがないかを検証すべきです。実装方法は非常にシンプルで、コンパイルオプションにSUBRGを指定するか、ソースコード内で条件を有効化します。
4. サンプルプログラム
以下のコードは、SUBRGを有効にし、例外発生時にスナップショットを採取してエラー処理を行う実用的な例です。
1
/ コンパイルオプションで SUBRG が指定されていることが前提 /
(SUBSCRIPTRANGE):
PROCEDURE OPTIONS(MAIN);
/ 境界外アクセスが発生した際のエラーハンドリング /
ON SUBSCRIPTRANGE
BEGIN;
PUT SKIP LIST(‘警告: 配列の添字が範囲外です’);
SNAP; / 現在のメモリ状況をダンプ /
SIGNAL ERROR; / プログラムを終了させる /
END;
DCL ARR(10) FIXED BIN(15);
DCL I FIXED BIN(15) INIT(11); / 範囲外のインデックス /
/ 意図的に範囲外へアクセス /
ARR(I) = 999;
PUT SKIP LIST(‘正常終了’);
END;
5. 応用・注意点：現場での運用指針
現場でNOSUBRGが設定されているレガシーコードには、「あえて境界外アクセスを利用して隣接変数を操作する」という極めて危険な設計が残っている場合があります。このようなコードで急にSUBRGを有効にすると、即座に異常終了が発生します。
・段階的な移行：既存の巨大なモジュール全体にSUBRGを適用する際は、まず影響範囲の小さいプロシージャ単位で適用し、テストを行いましょう。
・パフォーマンスへの影響：すべてのアクセスに対して境界チェックが入るため、極めて厳密なリアルタイム性が求められるループ処理では、CPUオーバーヘッドを考慮してください。
・デバッグの武器にする：運用中の謎のデータ破壊（原因不明の変数値の書き換え）に直面した際は、疑わしいモジュールにSUBRGを一時的に付与して実行することで、原因箇所が即座に特定できる強力なデバッグツールとなります。
安定したシステム運用のために、まずは開発環境でのSUBRG有効化から徹底することをお勧めします。
コメント