例題
[P2020.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2020. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP. 000007 02 DA1 PIC X(20). 000008 02 . 000009 03 RDA1 REDEFINES DA1 000010 PIC N(10). 000011 PROCEDURE DIVISION. 000012 END PROGRAM P2020.
P2020.cob 9: JMN2020I-S REDEFINES句で，再定義される項目が正しく定義されていません．
詳細な説明
コンパイラは，再定義される文字位置を定義した名前(REDEFINES句の左辺に指定するデータ名)を検出できませんでした．REDEFINES句の左辺に指定するデータ名のデータ記述項は，以下の条件を満たしていなければなりません．
REDEFINES句を指定したデータ記述項の直前の宣言でなければなりません．ただし，直前の項目もREDEFINES句を持つ(同じ領域を重複して再定義する)ときは，その再定義の対象となる文字位置を定義した既出のデータ名であればどれでも指定できます．
REDEFINES句を指定したデータ記述項と，レベル番号は同じでなければなりません．
REDEFINES句を指定したデータ記述項との間に，より小さなレベル番号を持つデータ記述項を挟んではなりません．
