1. 導入：なぜこのテクニックが重要なのか
COBOLの現場では、同じファイルから読み込んだデータを、処理のフェーズやレコードの種類に応じて異なる構造で扱いたい場面が多々あります。その際、わざわざREDEFINES句を使ってデータ領域を再定義しなくても、FILE SECTIONで複数の01レベルレコードを定義するだけで、COBOLは自動的に同じバッファを割り当ててくれます。この仕組みを理解しておくと、コードの可読性を高め、メモリ効率の良い実装が可能になります。
2. 基礎知識：暗黙的再定義の仕組み
COBOLのファイル節（FILE SECTION）において、一つのFD（ファイル記述項）の下に複数の01レベルを並べて記述すると、それらはすべて「同じメモリ上の開始位置」を共有します。これを「暗黙的再定義」と呼びます。
これは、プログラムがレコードを読み込んだ際、そのバッファが常に「定義された中で最も大きなレコード長」に合わせて確保されるためです。明示的な記述が不要なため、非常にシンプルに実装できるのが特徴です。
3. 実装/解決策
具体的な解決策として、レコードの先頭1バイトを識別子（レコードタイプ）として利用し、その後の構造を動的に切り替える手法が一般的です。読み込み後にレコードタイプを判定し、適切な01レベルのレコード領域を参照するだけで、データの切り分けが完了します。
4. サンプルプログラム
以下に、ファイルから読み込んだデータを、タイプに応じて異なる構造で扱うサンプルを示します。
IDENTIFICATION DIVISION.
PROGRAM-ID. RE-DEF-SAMPLE.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN-FILE ASSIGN TO ‘DATA.TXT’ ORGANIZATION LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD IN-FILE.
- 共通の識別子を持つレコード定義
01 COMMON-REC.
05 REC-TYPE PIC X(1).
05 FILLER PIC X(99).
- タイプAの構造定義（REC-TYPEが’A’の場合）
01 TYPE-A-REC.
05 FILLER PIC X(1).
05 DATA-A-VAL PIC 9(10).
05 FILLER PIC X(89).
- タイプBの構造定義（REC-TYPEが’B’の場合）
01 TYPE-B-REC.
05 FILLER PIC X(1).
05 DATA-B-NAME PIC X(20).
05 FILLER PIC X(79).
PROCEDURE DIVISION.
OPEN INPUT IN-FILE.
READ IN-FILE.
- REC-TYPEの値に応じて処理を分岐
EVALUATE REC-TYPE
WHEN ‘A’
DISPLAY “タイプAです。数値：” DATA-A-VAL
WHEN ‘B’
DISPLAY “タイプBです。名前：” DATA-B-NAME
WHEN OTHER
DISPLAY “不明なタイプです。”
END-EVALUATE.
CLOSE IN-FILE.
STOP RUN.
5. 応用・注意点
この手法を用いる際、最も注意すべきは「レコード長の不一致」です。暗黙的再定義では、最も長いレコードに合わせてバッファが確保されますが、短いレコードを読み込んだ場合、バッファの後半には前の読み込み時のゴミが残っている可能性があります。
現場でのバグを回避するためには、読み込み直後に必ず該当するレコードタイプを判定し、意図しない領域を参照しないよう設計することが重要です。また、保守の際、各01レベルのレコード長を意識的に管理しておかないと、データのレイアウト変更時に思わぬ副作用を招く可能性があるため、コメント等でその意図を明確に残しておくことを強く推奨します。
コメント