次の例では、B-REDEF の定義から REDEFINES 句または CONSTANT キーワードのいずれかを削除する必要があります。
01 B. 02 B-1 PIC 9(4) value 1234. 02 B-2 PIC 9(4) value 4321. 01 B-REDEF REDEFINES B PIC X(8) CONSTANT. *> cannot define as CONSTANT