NetCOBOL V11.1 メッセージ集

2.4.141 JMN2232I-W

REDEFINES句で，再定義する項目が再定義される項目より大きくてはなりません． 再定義する項目は，明に指定した項目を除き，他の項目と重なり合うことはありません．

例題

[P2232.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2232.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP1.
000007   02           PIC X(10).
000008 01 RGRP1 REDEFINES WGRP1.
000009   02           PIC N(10).
000010 01 .
000011   02 WGRP2.
000012     03         PIC X(10).
000013   02 RGRP2 REDEFINES WGRP2.
000014     03         PIC N(10).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2232.

P2232.cob 13: JMN2232I-W REDEFINES句で，再定義する項目が再定義される項目より大きくてはなりません．再定義する項目は，明に指定した項目を除き，他の項目と重なり合うことはありません．