【COBOL学習｜豆知識】ODO (可変長) 項目における「最大長」超えを未然に防ぐ防衛的コーディング

1. 導入：なぜODOの境界チェックが重要なのか

COBOL開発において、可変長テーブル（OCCURS … DEPENDING ON）は非常に強力な機能です。しかし、この「ODO」項目は、指定されたカウンタ変数の値が最大値（TO n）を超えた場合、システム異常終了やメモリ破壊を引き起こすリスクを抱えています。プログラムが暴走し、他の領域のデータを破壊して原因不明のバグを生む前に、代入前に「境界チェック」を行うことは、ベテラン技術者としての必須スキルです。

2. 基礎知識：ODO（OCCURS DEPENDING ON）とは

ODOは、レコード内の要素数を動的に変更するための仕組みです。
例えば「OCCURS 1 TO 100 TIMES DEPENDING ON W-COUNT」と定義した場合、W-COUNTの値に応じて、その項目が何回繰り返されるかが決定されます。注意すべきは、このW-COUNTの値が「100」を超えたとき、コンパイラやランタイムによっては警告が出ず、後続のメモリ領域を上書きしてしまう点です。

3. 実装・解決策：代入前の防衛的コーディング

最も安全なアプローチは、値を代入する前に「最大値と比較する」というロジックを挟むことです。単に代入するのではなく、IF文を用いたバリデーションをルーチン化（PERFORM）しておくことで、コードの可読性を保ちつつ、堅牢なデータ制御が可能になります。

4. サンプルプログラム：安全な可変長テーブル操作

以下の例では、最大100個のテーブルに対し、安全に要素を追加するロジックを示します。

IDENTIFICATION DIVISION. PROGRAM-ID. CHECK-ODO-SAMPLE.


       DATA DIVISION.

       WORKING-STORAGE SECTION.

       01 TABLE-CONTROL.

          05 W-MAX-SIZE      PIC 9(03) VALUE 100.

          05 W-CURRENT-COUNT PIC 9(03) VALUE 0.
       01 SAMPLE-TABLE.

          05 ITEM-ARRAY OCCURS 1 TO 100 TIMES

                         DEPENDING ON W-CURRENT-COUNT

                         INDEXED BY IDX.

             10 ITEM-DATA    PIC X(10).
       01 W-INPUT-DATA       PIC X(10).
       PROCEDURE DIVISION.

       MAIN-LOGIC.

データを追加する際の境界チェック

           MOVE "SAMPLE-VAL" TO W-INPUT-DATA.

最大値を超えないか事前に判定する

           IF W-CURRENT-COUNT < W-MAX-SIZE THEN
              ADD 1 TO W-CURRENT-COUNT
              MOVE W-INPUT-DATA TO ITEM-ARRAY(W-CURRENT-COUNT)
              DISPLAY "追加成功: " W-CURRENT-COUNT
           ELSE



エラーハンドリング：ログ出力や異常終了処理

              DISPLAY "エラー: テーブル最大値を超えました。"

           END-IF.

STOP RUN.

5. 応用・注意点：現場で陥りやすい罠

現場でよくあるミスは、「他の処理でW-CURRENT-COUNTが書き換えられている可能性を考慮していない」ケースです。特に、サブルーチン間でこのカウンタを共有している場合、呼び出し元で既に値が不正になっていることもあります。

また、デバッグ時には、このカウンタ変数が「範囲外（0未満や最大超）」になった瞬間に異常終了するように、あえて「IF W-CURRENT-COUNT > W-MAX-SIZE THEN CALL ‘ABEND’」のような強制エラーを挟むことで、問題の早期発見（Fail-fast）が可能になります。常に「データは壊れる可能性がある」という前提で実装を行うのが、保守性の高いCOBOLプログラミングの極意です。