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

2.5.11 JMN5109I-S

REDEFINES句で再定義される項目は，@1@句の指定された項目または従属する項目が@1@句を含む項目であってはなりません．
REDEFINES句は無効になります．

引数の説明

@1@:

USAGE OBJECT REFERENCE

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    C5109.
      000003 ENVIRONMENT    DIVISION.
      000004 CONFIGURATION   SECTION.
      000005 REPOSITORY.
      000006     CLASS SYSOBJ AS "System.Object".
      000007 DATA           DIVISION.
      000008 WORKING-STORAGE SECTION.
      000009 01 OBJA        USAGE OBJECT REFERENCE SYSOBJ.
      000010 01 AA REDEFINES OBJA PIC X(08).
      000011 01 BB .
      000012   02 OBJB      USAGE OBJECT REFERENCE SYSOBJ.
      000013 01 CC REDEFINES BB PIC X(08).
      000014 PROCEDURE      DIVISION.
      000015 END PROGRAM    C5109.
    

C5109.cob (10) : JMN5109I-S REDEFINES句で再定義される項目は，USAGE OBJECT REFERENCE句の指定された項目または従属する項目がUSAGE OBJECT REFERENCE句を含む項目であってはなりません．REDEFINES句は無効になります．
C5109.cob (13) : JMN5109I-S REDEFINES句で再定義される項目は，USAGE OBJECT REFERENCE句の指定された項目または従属する項目がUSAGE OBJECT REFERENCE句を含む項目であってはなりません．REDEFINES句は無効になります．