NetCOBOL V11.1 メッセージ集

2.4.506 JMN2874I-W

REDEFINES句で再定義される項目が，可変長項目です． REDEFINES句を有効とみなします．

例題

[P2874.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2874.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA.
000007   02 WSIZE     PIC S9(4) BINARY.
000008   02 WOCC      PIC X(2)  OCCURS 100
000009                          DEPENDING ON WSIZE.
000010 01 WRDA REDEFINES WDA.
000011   02           PIC X(202).
000012 PROCEDURE      DIVISION.
000013 END PROGRAM    P2874.

P2874.cob 10: JMN2874I-W REDEFINES句で再定義される項目が，可変長項目です．REDEFINES句を有効とみなします．