RE: [open-cobol-list] Re: Redefines question

[Bill Klein]

That is true - for 01-levels. (but ONLY for 01-levels) in the '02 Standard. 

> -----Original Message-----
> From: Roger While [mailto:address@hidden 
> Sent: Saturday, May 07, 2005 8:18 AM
> To: Bill Klein
> Cc: address@hidden
> Subject: RE: [open-cobol-list] Re: Redefines question
> 
> Now thoroughly confused.
> Here's 13.16.42.3 on page 337 - point 1 :
> 1) Storage association for the subject of the entry starts at 
> the first bit 
> of the data item referenced by data-name-2
> and continues over an area sufficient to contain the number of bits 
> required by the data item referenced by the
> subject of the entry. If the subject of the entry requires 
> more bits than 
> the data item referenced by data-name-2,
> the storage area allocated for the data item referenced by 
> data-name-2 and 
> the subject of the entry is the
> number of bits required by the data item referenced by the 
> subject of the 
> entry. The size used for references
> to the data item referenced by data-name-2 is not changed.
> 
> Hmmm.
> Clarification ?
> 
> Roger
> 
> 
> >OK,
> >   I have now found the actual '02 Standard rule.
> >
> >Page 336, SR(9),
> >
> >"9) The storage area required for the subject of the entry 
> shall not be
> >larger than the storage area required for the data item referenced by
> >data-name-2, unless the data item referenced by data-name-2 has been
> >specified with level number 1 and without the EXTERNAL clause."
> >
> >In other words, you can do a redefines of a smaller by a 
> larger - but ONLY
> >when they are 01-levels (not EXTERNAL).  In other words, you need to 
> >figure
> >out the "maximum" storage allowed for all 01-levels; 
> allocate that; and 
> >then
> >do the redefines.
> >
> >   ***
> >
> >My other notes were thinking about subordinate items - where 
> this is (was)
> >non-conforming.
> 
> 
>