ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

2.2.217 JMN1391I-S

REDEFINES句とBASED ON句は,同じデータ項目に指定できません.
BASED ON句が無効になります.

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.     C1391.
      000003 DATA            DIVISION.
      000004 BASED-STORAGE   SECTION.
      000005 01  BS-TBL.
      000006   02  DATA-1 PIC X(5).
      000007   02  DATA-2 PIC X(3).
      000008 01  RE-TBL REDEFINES BS-TBL BASED ON P1.
      000009   02  REDATA-1 PIC X(4).
      000010   02  REDATA-2 PIC X(4).
      000011 END PROGRAM     C1391.
    

C1391.cob (8) : JMN1391I-S REDEFINES句とBASED ON句は,同じデータ項目に指定できません.BASED ON句が無効になります.