[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] redefines problem
From: |
David Korn |
Subject: |
[open-cobol-list] redefines problem |
Date: |
Mon Mar 1 09:07:08 2004 |
cc: address@hidden
Subject: redefines problem
--------
With the following program I get
prog20.cob:14: size of `WS-FUPPENVI-DEV' larger than size of `WS-FUPPENVI-PRO'
even though the size of WS-FUPPENVI-DEV is not larger than WS-FUPPENVI-ENV.
The MVS compiler does not generate this error.
===================cut here==========================
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG20.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-FUPPENVI-REC.
05 WS-FUPPENVI-ENV.
10 WS-FUPPENVI-ENV PIC X(80) VALUE SPACES.
05 WS-FUPPENVI-PRO
REDEFINES WS-FUPPENVI-ENV.
10 WS-FUPPENVI-PRO-DSNPREFX.
15 WS-FUPPENVI-PRO-HLQ PIC X(04).
15 WS-FUPPENVI-PRO-LVL PIC X(01).
10 WS-FUPPENVI-PRO-FILL01 PIC X(65).
05 WS-FUPPENVI-DEV
REDEFINES WS-FUPPENVI-PRO.
10 WS-FUPPENVI-DEV-DSNPREFX PIC X(25).
10 WS-FUPPENVI-FILL01 PIC X(55).
===================cut here==========================
David Korn
address@hidden
- [open-cobol-list] redefines problem,
David Korn <=