NetCOBOL V11.0 メッセージ集

2.6.15 JMN5109I-S

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

埋め込みの説明

@1@ : USAGE OBJECT REFERENCE

例題

[C5109.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C5109.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 OBJA        USAGE OBJECT REFERENCE.
000006 01 AA REDEFINES OBJA PIC X(08).
000007 01 BB .
000008   02 OBJB      USAGE OBJECT REFERENCE.
000009 01 CC REDEFINES BB PIC X(08).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    C5109.

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

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