導入：なぜ「REDEFINES」は無視されるのか
COBOLの現場で、集団項目を一度に初期化できる便利な「INITIALIZE文」は欠かせません。しかし、ベテランでも意外と見落としがちなのが、REDEFINES句で定義された領域に対する挙動です。実は、INITIALIZE文はREDEFINES句で再定義された領域を「別のデータ項目」と見なすため、親項目を初期化しても、再定義された領域までは面倒を見てくれません。本記事では、この仕様によるバグを防ぎ、確実にデータをクリアする方法を解説します。
基礎知識：REDEFINESとメモリの構造
REDEFINES句は、同一のメモリ領域に対して別のデータ形式を割り当てる機能です。例えば、一つの領域を「8桁の数字」としても使い、「8文字の英数字」としても使うといったケースです。
INITIALIZE文がREDEFINES領域を初期化しない理由は、「予期せぬデータ破壊を防ぐため」です。コンパイラは、再定義された領域が「本来の目的外である」と判断し、安全策としてその領域を初期化対象から除外します。これを理解していないと、意図せず古いデータが残ったまま処理が進む「ゴミデータ」問題が発生します。
実装・解決策
解決策はシンプルです。INITIALIZE文の対象から外れてしまうのであれば、「明示的に対象を指定して、再度INITIALIZE文を実行する」ことが唯一の正攻法です。
集団項目を一度初期化した後、続けてREDEFINESしている項目に対して個別にINITIALIZEを実行すれば、確実にクリアされます。
サンプルプログラム
以下のコードで、REDEFINES項目がどのように扱われるかを確認してみましょう。
01 WORK-AREA.
05 MAIN-DATA PIC X(10).
05 REDEF-DATA REDEFINES MAIN-DATA PIC 9(10).
PROCEDURE DIVISION.
- 1. データをセット
MOVE “1234567890” TO MAIN-DATA.
- 2. INITIALIZE実行（MAIN-DATAを初期化）
INITIALIZE MAIN-DATA.
- この時点でMAIN-DATAはスペースになるが、
- REDEF-DATAが正しくクリアされているかは環境や仕様に依存する可能性がある。
- 3. 確実にクリアするための明示的初期化
INITIALIZE REDEF-DATA.
- これにより、REDEFINES領域も確実に初期値（0）で満たされます。
DISPLAY “クリア完了”.
応用・注意点
現場で役立つポイントとして、「REDEFINES項目が配列（OCCURS）を含む場合」は特に注意が必要です。REDEFINES先が複雑な構造を持っている場合、個別に初期化を忘れると、特定のフラグが残ったままになり、後のロジックで条件分岐が正しく行われないというバグを引き起こします。
また、初期化漏れを防ぐための設計として、再定義を使う際は「初期化が必要な項目」と「そうでない項目」を明確に分け、可能な限りREDEFINESの使用を避けたデータ構造にすることも、保守性を高める上では重要な戦略です。迷ったときは、「明示的な初期化を怠らない」という基本を徹底してください。
コメント