なぜこのTipsが重要なのか
COBOL開発において、データ領域の初期化に欠かせない「INITIALIZE文」。しかし、REDEFINES句（再定義）が絡むと、想定していた値が入らないというトラブルに遭遇することがあります。なぜINITIALIZE文がREDEFINES項目を無視するのか、その仕組みと正しい対処法を理解することは、予期せぬバグを未然に防ぐために非常に重要です。
基礎知識：なぜREDEFINESは初期化されないのか
COBOLの仕様では、INITIALIZE文は「グループ項目」や「基本項目」を初期化する際、再定義が行われている領域については、意図しないデータの破壊や型矛盾を防ぐため、安全装置として初期化対象から除外します。
例えば、ひとつのメモリ領域を「数値」として定義し、同じ領域を「文字」として再定義している場合、両方を同時に初期化しようとするとメモリ上の論理が破綻する可能性があるからです。この仕様を理解せずに「INITIALIZEで全部リセットしたはず」と思い込むと、前回のデータが残ったままになるという事故に繋がります。
実装と解決策
REDEFINES項目を初期化したい場合、コンパイラ任せにするのではなく、個別に明示的な初期化を行うのがベテランの流儀です。REDEFINES項目自体を直接指定するか、あるいはMOVE句を用いて定数をセットすることで、確実な制御が可能になります。
サンプルプログラム
以下のコードは、REDEFINES項目が含まれる場合の初期化の実践例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. REDEF-INIT-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MY-RECORD.
05 VAL-NUM PIC 9(05).
05 VAL-CHAR REDEFINES VAL-NUM PIC X(05).
PROCEDURE DIVISION.
- 1. データをセットする
MOVE 12345 TO VAL-NUM.
DISPLAY “初期値: ” VAL-NUM.
- 2. INITIALIZEではREDEFINES項目(VAL-CHAR)は初期化されない
INITIALIZE MY-RECORD.
DISPLAY “INITIALIZE後: ” VAL-NUM.
- 3. 明示的に再定義項目を初期化する（解決策）
MOVE SPACES TO VAL-CHAR.
DISPLAY “明示的クリア後: ” VAL-CHAR.
STOP RUN.
応用・注意点
現場での開発において、特に注意すべきは「階層構造の深いグループ項目」です。グループ項目の中にREDEFINESが含まれている場合、そのグループ全体をINITIALIZEしても、再定義された箇所だけが「汚れたまま」になります。
回避策として、再定義項目が多いデータ構造の場合は、個別の項目をMOVEでクリアするか、あるいはREDEFINES項目を含まない共通の「初期化用データ（RECORDS-INITIAL）」を別に定義し、それをMOVEする手法が非常に有効です。
「INITIALIZEは万能ではない」と心得ておくことが、堅牢なCOBOLプログラムを書くための第一歩です。
コメント