1. 導入：なぜSET文を使うのか？
COBOLの現場でテーブル（配列）を扱う際、インデックス（指標）の操作は避けて通れません。初心者のうちは「MOVE 1 TO WS-IDX」のようにMOVE文で数値を代入したくなるかもしれませんが、実はCOBOLにはインデックス専用の操作命令として「SET文」が用意されています。なぜMOVEではなくSETを使うのか？それは、COBOLの仕様上、インデックスは単なる数値変数とは異なる特別な領域として管理されているからです。この作法を身につけることで、バグを未然に防ぎ、可読性の高いコードを書けるようになります。
2. 基礎知識：インデックスとは何か
COBOLにおける「インデックス（INDEXED BY句で定義されたもの）」は、通常の数値項目（PIC 9(4)など）とは仕組みが異なります。インデックスは、テーブルの要素の「相対的な位置（オフセット）」を内部的に保持しています。
MOVE文は「数値」を転送しますが、SET文は「テーブルの要素位置」を直接設定します。この違いを意識することが、トラブルのないプログラム作成の第一歩です。
3. 実装・解決策：SET文の正しい作法
SET文は、指標名に対して直接値を代入したり、加算・減算を行ったりする際に使用します。
・特定の要素へジャンプしたい場合：SET 指標名 TO 数値
・次の要素へ進めたい場合：SET 指標名 UP BY 1
・前の要素へ戻したい場合：SET 指標名 DOWN BY 1
このように、SET文を使うことで、インデックスの性質を壊すことなく安全に操作が可能です。
4. サンプルプログラム
以下は、テーブルの特定の要素を指定し、ループ処理で中身を読み取る基本的なコード例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. SET-EXAMPLE.
WORKING-STORAGE SECTION.
- インデックスを定義
01 TABLE-AREA.
05 ITEM-NAME PIC X(10) OCCURS 5 TIMES INDEXED BY WS-IDX.
PROCEDURE DIVISION.
MAIN-LOGIC.
- 5番目の要素に直接アクセスするためにSETで10を指定する
- (例として10番目へジャンプする場合の記述)
SET WS-IDX TO 5.
- 5番目の要素に値を格納
MOVE “SAMPLE” TO ITEM-NAME(WS-IDX).
- インデックスを1つ進める
SET WS-IDX UP BY 1.
- インデックスを1つ戻す
SET WS-IDX DOWN BY 1.
STOP RUN.
5. 応用・注意点：現場で役立つポイント
現場で最も陥りやすいのは、インデックスの範囲外アクセスです。SET文で値を設定する際、テーブルの最大要素数を超えてしまうと、プログラムが異常終了（アボート）したり、予期せぬメモリ領域を読み取ったりする危険があります。
必ず「SEARCH」文や「PERFORM VARYING」文と組み合わせて、インデックスが常に有効な範囲内にあるようチェックする癖をつけましょう。また、インデックスは計算（ADD/SUBTRACTなど）には直接使わず、必ずSET文で操作するのがCOBOLエンジニアの鉄則です。
コメント