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

2.2.183 JMN1303I-S

EXTERNAL句とREDEFINES句は，同じデータ項目に指定できません．
REDEFINES句が無効になります．

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.     C1303.
      000003 DATA            DIVISION.
      000004 WORKING-STORAGE SECTION.
      000005 01  MOJI  PIC X(5) VALUE "ABCDE".
      000006 01  REMOJI REDEFINES MOJI EXTERNAL.
      000007   02  DATA1  PIC X.
      000008 END PROGRAM     C1303.
    

C1303.cob (6) : JMN1303I-S EXTERNAL句とREDEFINES句は，同じデータ項目に指定できません．REDEFINES句が無効になります．