NetCOBOL V11.1 メッセージ集

2.4.17 JMN2019I-W

REDEFINES句は，ファイル節中のレベル番号01の項目に指定できません． REDEFINES句は，無効になります．

例題

[P2019.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2019.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1.
000011 01 SQF1REC.
000012   02           PIC X(80).
000013 01 REDEFINES SQF1REC.
000014   02           PIC N(40).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2019.

P2019.cob 13: JMN2019I-W REDEFINES句は，ファイル節中のレベル番号01の項目に指定できません．REDEFINES句は，無効になります．

詳細な説明

ファイル節のレコード記述項を2つ以上書くと，レコード記述項の領域は暗に再定義されます．