導入：なぜ定数を「読み取り専用」にするのか
メインフレームのシステム開発において、消費税率や基準値といった「システム全体で不変のパラメータ」を扱う際、誤ってプログラム内で値を書き換えてしまうバグは致命的な障害を招きます。今回解説する「EXTERNAL NONASSIGNABLE」属性を活用することで、これらの定数をOSレベルで保護されたメモリ領域（ReadOnlyセクション）に配置し、ハードウェア的に改ざんを防止することが可能になります。
基礎知識：EXTERNALとNONASSIGNABLEの仕組み
まず、EXTERNAL属性は、その変数がプログラムの境界を越えて、ロードモジュール間で共有されることを意味します。次に、NONASSIGNABLE属性は、その名の通り「代入を許可しない」ことを宣言するものです。これらを組み合わせることで、コンパイラは当該変数を実行時に書き込みが禁止されたメモリ領域に割り当てます。これは、JavaやC#におけるstatic final修飾子に近い役割を果たしますが、メインフレームでは「物理メモリレベルでの共有」という、より低レイヤーでの堅牢性を実現している点が特徴です。
実装と解決策
実装は非常にシンプルです。変数を宣言する際にキーワードを付与するだけですが、重要なのは、この変数は「宣言時に値を初期化する必要がある」という点です。プログラム実行中に動的に値を変更しようとすると、OSが保護機能を作動させ、プログラムは異常終了（ABEND）します。これにより、予期せぬロジックによるデータ汚染を未然に防ぐことができます。
サンプルプログラム
以下のサンプルコードは、PL/Iを用いた定数定義の例です。
/ システム共通の定数を定義する /
/ EXTERNALで共有範囲を定義し、NONASSIGNABLEで保護を行う /
DCL TAX_RATE FIXED DEC(5,2) EXTERNAL NONASSIGNABLE INIT(10.00);
/ メイン処理 /
MAIN_PROC: PROC OPTIONS(MAIN);
DCL PRICE FIXED DEC(10,2) INIT(1000);
DCL TOTAL_PRICE FIXED DEC(12,2);
/ TAX_RATEは読み取り専用のため、計算式で使用しても安全 /
TOTAL_PRICE = PRICE (1 + TAX_RATE / 100);
/ 以下の行を記述してコンパイル・実行すると、 /
/ 保護領域への書き込み試行とみなされ、保護違反でABENDする /
/ TAX_RATE = 8.00; /
PUT SKIP LIST(‘計算結果:’, TOTAL_PRICE);
END MAIN_PROC;
応用・注意点
現場での活用において一つ注意すべきは、「真の物理共有」の意味合いです。複数のロードモジュールでこの変数を参照する場合、すべてのモジュールで同一の属性で宣言する必要があります。また、参考として触れた通り、現代のクラウド連携が主流となるシステムでは、このような静的な定数管理から、Redisのような外部キャッシュや環境変数へ移行する検討も重要です。しかし、基幹システムの核となる計算ロジックにおいては、依然としてハードウェアレベルでの保護が最も信頼できる防御策となります。まずは、頻繁に参照されるマスタデータから、この保護属性の適用を検討してみてください。
コメント