【COBOL学習｜実務向け】SET文で実現する「指標（INDEX）」から「整数項目」への変換テクニック

1. 導入：なぜ指標を整数に変換するのか

COBOLの性能を語る上で欠かせないのが「指標（INDEX）」です。SEARCH文によるテーブル検索などで多用される指標ですが、その正体はデータ項目とは異なる内部制御値です。そのため、指標の値を直接出力したり、別の計算処理に回したりすることはできません。今回解説する「SET 整数項目 TO 指標名」は、指標が保持する論理的な位置情報を、私たちが普段扱う数値データ（PIC 9）へと変換する、実務で非常に重要な「橋渡し」の技術です。

2. 基礎知識：指標と整数項目の違い

COBOLにおいて、テーブルの要素を指し示す方法には「添字（SUBSCRIPT）」と「指標（INDEX）」の2種類があります。
添字は単なる整数値ですが、指標はメモリ上のオフセット値を保持しており、コンパイラが高速なアドレス計算を行うために最適化されています。そのため、指標は「MOVE命令」では転送できず、必ず専用の「SET命令」を使用する必要があります。この変換を怠ると、コンパイルエラーや予期せぬ実行結果を招く原因となります。

3. 実装・解決策

指標の値を整数項目へ変換する手順はシンプルです。あらかじめ定義した整数型の作業領域に対し、「SET 変換先項目 TO 指標名」と記述するだけです。これにより、指標が指していた「テーブルの何番目か」という情報が、通常の数値として取り出されます。この値があれば、ログへの出力、あるいは特定の要素を特定するためのフラグ管理などが容易になります。

4. サンプルプログラム

以下は、売上テーブルから特定の条件に一致する要素を検索し、その位置を整数項目として取得するサンプルです。

IDENTIFICATION DIVISION.
PROGRAM-ID. IDX-CONV-SAMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.

テーブル定義：OCCURS句で指標を指定

01 WS-TABLE.
   05 WS-ITEM OCCURS 5 TIMES INDEXED BY WS-IDX.
      10 WS-CODE PIC X(02).
      10 WS-VAL  PIC 9(05).


変換先の整数項目（PIC 9を使用）

01 WS-RESULT-POS PIC 9(02).

PROCEDURE DIVISION.

テーブルへの初期値設定（省略）



SEARCH文で条件一致する位置を探索

    SET WS-IDX TO 1.
    SEARCH WS-ITEM
        WHEN WS-CODE(WS-IDX) = 'A1'

ここで指標 WS-IDX を整数項目 WS-RESULT-POS に変換

            SET WS-RESULT-POS TO WS-IDX
            DISPLAY "見つかった位置は: " WS-RESULT-POS " 番目です。"
    END-SEARCH.

    STOP RUN.

5. 応用・注意点

現場でこの処理を行う際、以下の2点に注意してください。

1. 変換先項目の桁数不足
指標の値はテーブルの要素数に依存します。変換先の整数項目（PIC 9）が、テーブルの最大要素数を格納できるだけの桁数を持っているか必ず確認してください。桁あふれが発生すると、論理エラーの温床となります。

2. ゼロ値の扱い
指標が有効な範囲を指していない（初期化されていない、または検索失敗）場合、変換後の値がどうなるかは処理系に依存します。必ず「SEARCH文の成功判定（IF条件など）」とセットで変換処理を記述し、無効な指標を変換しないようなガード処理を実装するのが、ベテランの安定したコーディング術です。