NetCOBOL for .NET V8.0 メッセージ集

2.3.141 JMN2232I-W

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

例

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