導入：なぜREDEFINESにVALUEを書いてはいけないのか
COBOLの現場で「REDEFINES句を使っているデータ項目に初期値を設定したい」と考えたことはありませんか？実は、REDEFINES句を指定した項目に対して、同じ行でVALUE句を使用して初期値を定義することは、言語仕様として禁止されています。これは単なる規約ではなく、COBOLがメモリをどう管理しているかという根本的な仕組みに起因するものです。このルールを理解していないと、コンパイルエラーに悩まされるだけでなく、意図しないデータ破壊を招く危険性があります。
基礎知識：メモリの「実体」と「別名」
REDEFINES句は、すでに定義されたデータ領域を、別のデータ形式（属性）として「再定義（再解釈）」するために使います。重要なのは、メモリの実体は元の項目（REDEFINESされる側の項目）にしか存在しないという点です。
例えば、「A」という領域を「B」がREDEFINESしている場合、メモリ上には「Aの場所」しかありません。「B」は、その同じ場所を「別の名前・別の型として見ているだけ」の窓口に過ぎないのです。もし「B」にVALUE句で初期値を置こうとすると、メモリの同じ場所に対して「Aの初期値」と「Bの初期値」という二重の定義が発生してしまい、論理的な矛盾が生じます。
実装/解決策：正しい初期化の手順
REDEFINESした項目を初期化したい場合は、コンパイル時にVALUE句で指定するのではなく、手続き部（PROCEDURE DIVISION）でMOVE文を用いて実行時に初期化を行うのが、現場における定石です。
サンプルプログラム
以下に、REDEFINESを用いた正しいデータ定義と、実行時に値をセットする実装例を示します。
01 WORK-AREA.
05 DATA-RAW PIC X(04) VALUE “1234”.
- DATA-RAWと同じ場所を数値項目として再定義する
05 DATA-NUM REDEFINES DATA-RAW PIC 9(04).
PROCEDURE DIVISION.
- 初期化を行いたい場合は、手続き部でMOVEを使用する
- REDEFINES項目に対してもMOVEは問題なく行える
MOVE 0 TO DATA-NUM.
- 結果：DATA-RAWは “0000” となる
DISPLAY “DATA-RAW: ” DATA-RAW.
STOP RUN.
応用・注意点：現場で陥りやすいバグ
REDEFINESを活用する際、特に注意すべきは「属性の不一致によるデータ化け」です。
1. サイズの不一致：REDEFINESする項目（B）のサイズが、元の項目（A）より大きい場合、メモリ境界を越えて他の領域を破壊する可能性があります。必ずサイズを合わせるか、Aの範囲内に収まるようにしてください。
2. 初期化のタイミング：VALUE句はプログラム起動時に一度だけ値をセットしますが、MOVE文は実行されるたびに値を上書きします。REDEFINES項目が「作業用変数」として何度も再利用される場合、必ず使用前に初期化（MOVE 0 または MOVE SPACES）を行う癖をつけましょう。
REDEFINESは強力ですが、メモリの裏側を操作する機能です。「VALUE句は実体（最初の大項目）にのみ設定する」というルールを徹底することで、堅牢なプログラムを作成してください。
コメント