1. 導入：なぜ指標名（Index-name）を使うのか
多くの現場で、配列（表）を扱う際に「添字（Subscript）」として数値項目を使用している光景を見かけます。しかし、大規模なデータ処理においてパフォーマンスを最適化したい場合、「指標名（Index-name）」の活用は避けて通れません。なぜなら、指標名はコンパイラによって「物理メモリ上のオフセット値」として最適化されるからです。本記事では、この指標名を正しく制御し、保守性と実行速度を両立させるための技術を解説します。
2. 基礎知識：添字と指標名の違い
添字（Subscript）は、プログラム上の数値項目（PIC 9(4)など）であり、配列の「何番目か」を格納します。一方、指標名（Index-name）は、OCCURS句のINDEXED BYで定義される特殊なデータ項目です。
最も重要な違いは、添字の場合はプログラムが実行されるたびに数値からメモリ位置への計算が行われますが、指標名の場合は、その計算負荷を軽減するための最適化が内部的に行われている点です。そのため、複雑なループ処理や膨大なデータ件数を扱うバッチ処理では、指標名を使うことが実務上の鉄則となります。
3. 実装と解決策：SET文による制御
指標名の最大の特徴は、MOVEやADDといった算術演算命令が一切使えないという制約です。これは、指標名が単なる数値ではなく、物理アドレスを制御する特殊なポインタのような存在だからです。
値を操作する際は、必ずSET文を使用します。これにより、コンパイラは安全にメモリ位置を更新し、不正なインデックス参照による異常終了を防いでいます。
4. サンプルプログラム
以下のコードは、指標名を使用してテーブルを検索・走査する実用的なテンプレートです。
IDENTIFICATION DIVISION.
PROGRAM-ID. INDEX-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TABLE-DATA.
05 ITEM-ENTRY OCCURS 10 TIMES INDEXED BY WS-IDX.
10 ITEM-ID PIC X(05).
10 ITEM-VAL PIC 9(05).
PROCEDURE DIVISION.
> 1. インデックスを初期化（先頭へセット）
SET WS-IDX TO 1.
> 2. インデックスをインクリメント（UP BYで1加算）
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 10
MOVE “TEST” TO ITEM-ID(WS-IDX)
MOVE WS-IDX TO ITEM-VAL(WS-IDX)
END-PERFORM.
> 3. インデックスを直接減算することも可能
SET WS-IDX DOWN BY 1.
DISPLAY “現在指している項目は: ” ITEM-ID(WS-IDX).
STOP RUN.
5. 応用・注意点：現場でのトラブル回避
現場でよくある失敗は、指標名に直接数値（MOVE 1 TO WS-IDXなど）を代入しようとしてコンパイルエラーになるケースです。また、指標名のスコープにも注意してください。指標名は、それを定義したテーブルの処理専用として使い、複数のテーブルで使い回さないことがバグを防ぐコツです。
また、SEARCH文（二分探索など）を使用する際にも指標名は必須です。パフォーマンスを追求するなら、安易に数値項目による添字に頼らず、INDEXED BY句による指標名の管理を設計段階から組み込むことが、ベテランエンジニアとしての腕の見せ所となります。
コメント