NetCOBOL V11.1 メッセージ集

2.4.507 JMN2875I-W

再定義する項目が可変繰返しデータ項目を従属しています． REDEFINES句を有効とみなします．

例題

[P2875.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2875.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBUF        PIC X(100).
000007 01 WGRP REDEFINES WBUF.
000008   02 WDPEND    PIC S9(4) BINARY.
000009   02 WOCC      OCCURS 10 DEPENDING ON WDPEND.
000010     03         PIC X(1).
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2875.

P2875.cob 7: JMN2875I-W 再定義する項目が可変繰返しデータ項目を従属しています．REDEFINES句を有効とみなします．