Using Extname overlay(xxx : *next) doesn't work

[GLS400]

Hi All:

This works:

     d grprte        e ds                  extname(grouprate)     
     d   ages                              [COLOR=#0000ff]overlay(grprte : 22)[/COLOR]  
     d                                     like(aghi1) dim(14)    
     D                                     ASCEND                 
     d   RTES                              [COLOR=#0000cd]overlay(grprte [/COLOR]:[COLOR=#ff0000] 50[/COLOR])   
     d                                     LIKE(RATE1)     DIM(14)

This doesn't work:

     d grprte        e ds                  extname(grouprate)     
     d   ages                              [COLOR=#0000cd]overlay(grprte : 22)[/COLOR]   
     d                                     like(aghi1) dim(14)    
     D                                     ASCEND                 
     d   RTES                              [COLOR=#0000cd]overlay(grprte :[/COLOR] [COLOR=#ff0000]*next[/COLOR])   
     d                                     LIKE(RATE1)     DIM(14)

RTES is all zeros.
Can anyone see what I'm doing wrong?

< e d i t > I'm at v6r1 < / e d i t >

Thanks
GLS

[danlong005]

Re: Using Extname overlay(xxx : *next) doesn't work

Try using pos(50) instead of overlay. I think Barbara Morris's comment #7 in the following thread might be what you are looking for.

http://www.code400.com/forum/showthread.php/12908-Overlay-fields-for-array

[Barbara Morris]

Re: Using Extname overlay(xxx : *next) doesn't work

POS is only valid for free-form definitions.

OVERLAY(grprte:50) is the way to do this in fixed form, even if you are at 7.1 and have the free-form update.

[B.Hauser]

Re: Using Extname overlay(xxx : *next) doesn't work

POS in free format can only be used for overlaying complete data structures, while the OVERLAY Key word is not allowed in this situation in free format.
But for overlaying sub-fields within data structures the OVERLAY key word has to be used.

 DCL-DS MyDataStructure Qualified Inz;
          Subield1 Char(10);
          Subield2 Char(10);
          Array    Char(10) Dim(2) Pos(1);
 End-DS;

 DCL-DS MyDataStructure Qualified Inz;
          SubDS;
             Subfield1 Char(10) Overlay(SubDS);
             SubField2 Char(10) Overlay(SubDS: *Next);
             Array     Char(10) Dim(2) Overlay(SubDS);
 End-DS;

Birgitta

[GLS400]

Re: Using Extname overlay(xxx : *next) doesn't work

Thanks to all.
It makes sense now.

GLS