【COBOL学習｜実務向け】パフォーマンスを左右する！VARYING句における指標（INDEX）と数値項目の使い分け

1. 導入：なぜループ制御変数の選択が重要なのか

COBOLのPERFORM VARYING構文は、テーブル（配列）処理において避けては通れない基本機能です。しかし、現場では「とりあえずPIC 9(04)で定義しておけば動く」と安易に数値項目をループ変数に選んでいないでしょうか。大規模なデータ処理において、指標（INDEX）を適切に活用することは、単なるコーディング規約の問題ではなく、CPU負荷や実行速度に直結する重要な最適化ポイントです。今回は、指標項目と数値項目の違いを整理し、現場で推奨される使い分けを解説します。

2. 基礎知識：指標（INDEX）とは何か

COBOLにおける「指標項目」とは、USAGE IS INDEX句で定義された変数を指します。通常の数値項目（PIC 9など）が「データとしての数値」を保持するのに対し、指標項目は「テーブル内の要素を指し示すメモリアドレスのオフセット値」を保持します。

コンピュータがメモリ上のテーブルを走査する際、数値項目を使用すると、毎回「インデックス値 × 要素サイズ」という計算を経てアドレスを算出する必要があります。一方、指標項目はその計算結果を直接保持しているため、メモリアドレスの計算コストを省略できるという仕組みです。

3. 実装・解決策：適切に使い分ける

基本方針として、特定のテーブルを繰り返し参照・更新するループには、必ずそのテーブル定義に含まれるINDEXを使用してください。

・指標項目を使用すべきケース：テーブルの要素を直接指定する検索や、大規模データの順次処理。
・数値項目を使用すべきケース：計算処理や、カウンタとして別の用途にも流用する場合。

特にSET文と組み合わせることで、指標項目は非常に直感的に操作可能です。

4. サンプルプログラム

以下のコードは、テーブルの走査において指標項目を活用する実用例です。

IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE-LOOP.

DATA DIVISION.
WORKING-STORAGE SECTION.

テーブル定義：INDEXED BY 句で指標を宣言するのが最適

01  TBL-DATA.
    05  TBL-ITEM OCCURS 1000 TIMES INDEXED BY WS-IDX.
        10  TBL-VAL PIC X(10).

01  WS-SUB PIC 9(04).

PROCEDURE DIVISION.

パフォーマンス最適化：INDEXである WS-IDX を直接制御に使用

    PERFORM VARYING WS-IDX FROM 1 BY 1 
              UNTIL WS-IDX > 1000
        MOVE "DATA-VAL" TO TBL-VAL(WS-IDX)
    END-PERFORM.


数値項目を使った場合（比較用：アドレス計算が発生する）

    PERFORM VARYING WS-SUB FROM 1 BY 1 
              UNTIL WS-SUB > 1000
        MOVE "DATA-VAL" TO TBL-VAL(WS-SUB)
    END-PERFORM.

    GOBACK.

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

指標項目を使用する際の注意点は、「指標項目は算術演算（ADD/SUBTRACT）の対象にすべきではない」という点です。

指標項目に対してADD命令などで値を直接加算すると、コンパイラや環境によっては、オフセット値としての整合性が保てなくなるリスクがあります。指標の操作には必ずSET命令を使用してください。

また、異なるテーブル間で指標を使い回すことは厳禁です。プログラムの可読性を下げ、デバッグが極めて困難なバグを引き起こします。「テーブル名と紐づいたINDEX」という原則を厳守することが、堅牢なCOBOLコードを書くための鉄則です。大規模なテーブルを扱う際は、ぜひ今日のTipsを意識して設計を見直してみてください。