例
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句を指定したデータ記述項との間に，より小さなレベル番号を持つデータ記述項を挟んではなりません．