NetCOBOL V11.1 メッセージ集

2.3.224 JMN1391I-S

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

例題

[C1391.cob]
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句が無効になります．