1. 導入：なぜ添字チェックが「命綱」なのか
COBOL開発において、テーブル操作は避けて通れない基本技術です。しかし、定義したOCCURS句の範囲を超えて添字を指定してしまうと、プログラムは予期せぬ挙動を示します。いわゆる「バッファオーバーラン」に近い状態であり、隣接するメモリ領域を破壊することで、原因特定が極めて困難な「迷宮入りバグ」を引き起こします。本日は、このリスクを回避し、堅牢なプログラムを書くための制御術を解説します。
2. 基礎知識：添字とOCCURSの仕組み
COBOLのテーブル（配列）は、OCCURS句で定義されます。例えば「05 DATA-TBL PIC X(10) OCCURS 10 TIMES.」と定義した場合、添字は1から10までが有効です。
ここで重要なのは、COBOLのメモリは連続しているという点です。11番目にアクセスすると、コンパイラやOSの設定によっては、メモリ上の「隣にある別のデータ項目」を書き換えてしまいます。これが「実装依存」と言われる所以であり、環境によって動いたり止まったりする厄介なバグを生む原因となります。
3. 実装と解決策：チェック処理の徹底
もっとも確実な防御策は、コンパイラオプション（例：SSRANGEなど）で実行時チェックを有効にすることです。しかし、これだけに頼らず、ロジック側でも「境界値チェック」を実装するのがプロの流儀です。テーブルを操作する際は、必ず添字の最大値を超えていないか比較処理を挟むようにしましょう。
4. サンプルプログラム
以下は、添字の範囲を安全に制御するための実装例です。
WORKING-STORAGE SECTION.
01 TBL-DATA.
05 ITEM-VAL PIC X(10) OCCURS 5 TIMES INDEXED BY IDX.
01 WS-SUB PIC 9(02).
01 WS-MAX-SIZE PIC 9(02) VALUE 5.
PROCEDURE DIVISION.
> ユーザー入力や計算で添字が決まる想定
MOVE 6 TO WS-SUB.
> 範囲チェックを必ず行う
IF WS-SUB < 1 OR WS-SUB > WS-MAX-SIZE
DISPLAY ‘エラー: 添字が範囲外です。SUB=’ WS-SUB
ELSE
> 安全を確認してからアクセス
MOVE ‘TEST-DATA’ TO ITEM-VAL(WS-SUB)
DISPLAY ‘正常に書き込みました: ‘ ITEM-VAL(WS-SUB)
END-IF.
STOP RUN.
5. 応用・注意点：現場で役立つアドバイス
現場でよくある失敗は、ループ処理（PERFORM VARYING）の終了条件ミスです。
「PERFORM UNTIL IDX > 5」とするべきところを、誤って「PERFORM UNTIL IDX >= 5」としてしまい、最後の要素を処理し損ねたり、逆に条件を緩くして範囲外へアクセスしたりするケースが後を絶ちません。
また、古いプログラムを保守する際は、既存の添字計算式に「定数」を足し引きしている箇所がないか注意してください。仕様変更でテーブルサイズを拡張した際、この定数が足を引っ張り、意図しない場所へアクセスするリスクがあります。修正時には必ず「最大値の再定義」を行い、定数埋め込みを避けるようリファクタリングすることをお勧めします。安全第一で、安定したシステムを構築しましょう。
コメント