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

2.8.36 JMN9111I-W

(@1@)REDEFINES句の入れ子は共通範囲外です. 処理を続行します.

埋め込みの説明

@1@ : STD

例題

[C9111.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9111.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  IN-REC.
000008     02  RECI1    PIC X(80).
000009     02  RECI2    REDEFINES  RECI1.
000010       03  RECI21   PIC X(40).
000011       03  RECI22   REDEFINES  RECI21.
000012         04  RECI221  PIC X(20).
000013         04  RECI222  PIC X(20).
000014       03  RECI23   PIC X(40).
000015 PROCEDURE       DIVISION.
000016 P-START.
000017     STOP RUN.

C9111.cob 11: JMN9111I-W (STD)REDEFINES句の入れ子は共通範囲外です.処理を続行します.