[open-cobol-list] redefines problem

[David Korn]

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