導入：なぜ今、明示的な範囲終了が必要なのか
COBOLの現場では、長年メンテナンスされてきた複雑なソースコードを扱うことが少なくありません。特に索引ファイル（VSAM等）を操作する際、START文の後に続く処理がどこまでを指しているのか、読み手によって解釈が分かれることはバグの温床となります。今回解説する「END-START」による範囲指定は、ネストされたIF文や複雑なPERFORMループ内での誤解を防ぎ、保守性を格段に向上させる重要なテクニックです。
基礎知識：START文と論理単位の考え方
START文は、索引ファイルにおいて特定のキー値を起点に読み込みを開始するための命令です。従来、START文の結果（成功か、キーが見つからないか）を判定する際は、直後のINVALID KEY句で処理を記述していましたが、END-STARTを併用することで、その処理の「終端」をコンパイラに明示できます。これにより、意図しない文がINVALID KEYの制御下に巻き込まれるリスクを排除できます。
実装と解決策：明示的な制御構造の構築
START文にEND-STARTを組み合わせることで、論理構造をブロック化できます。特に重要なのは、INVALID KEYが発生した際の処理を、それ以降の正常系処理から完全に切り離すことです。これにより、プログラムの可読性が高まるだけでなく、デバッグ時のステップ実行も追いやすくなります。
サンプルプログラム：実務で使える範囲指定の例
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE-START.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT M-FILE ASSIGN TO ‘MASTER.DAT’
ORGANIZATION INDEXED
ACCESS SEQUENTIAL
RECORD KEY M-KEY.
DATA DIVISION.
FILE SECTION.
FD M-FILE.
01 M-REC.
05 M-KEY PIC X(05).
05 M-DATA PIC X(20).
WORKING-STORAGE SECTION.
01 WS-SEARCH-KEY PIC X(05) VALUE ‘A0001’.
PROCEDURE DIVISION.
OPEN INPUT M-FILE.
> START文の開始と範囲の明示
START M-FILE KEY IS >= WS-SEARCH-KEY
INVALID KEY
DISPLAY ‘指定されたキーは存在しません:’ WS-SEARCH-KEY
PERFORM ERR-ROUTINE
NOT INVALID KEY
DISPLAY ‘読み込みを開始します’
READ M-FILE NEXT RECORD
END-START.
> ここ以降はSTART文の影響を受けない独立した処理となる
CLOSE M-FILE.
STOP RUN.
ERR-ROUTINE.
EXIT.
応用・注意点：現場で陥りやすい罠
現場で注意すべきは、古い規格のコンパイラではEND-STARTがサポートされていない場合がある点です。しかし、現在の標準的なCOBOL環境であれば積極的に導入すべきです。
また、最も陥りやすいバグとして「END-STARTを忘れた状態で、直後にIF文を記述してしまう」ケースがあります。これにより、IF文の処理がINVALID KEYの条件判定に飲み込まれ、意図せぬ動作を引き起こすことがあります。必ず「制御文の開始と終了はセットで記述する」というコーディング規約をチーム内で徹底してください。この小さな習慣が、将来の改修コストを大きく削減します。
コメント