Re: DS / Overlay keyword

[Barbara Morris <bmorris@xxxxxxxxxx>]

Michael Jacobsen wrote:
> 
> Rob,
> 
> Thanks!  I should have thought of trying that, but I'm so used to seeing
> unnamed data structures that it never occurred to me.
> 
> Mike
> 
> > >      D   Field                      3A    Dim(3) overlay(DSName)

And if your array doesn't start in position 1, do it like this, adding a
sort of holder field (PartInfo, which doesn't have to have type or
length specified when it's defined by overlay fields).  (Also, you can
use LIKE for all the definitions except one, to further reduce the
hard-coding.)

     D DSName          DS
     D   Whatever                  1000
     D   PartInfo
     D     Part1                      3A    Overlay(Parts:*NEXT)
     D     Part2                            Overlay(Parts:*NEXT)
     D                                      Like(Part1)
     D     Part3                            Overlay(Parts:*NEXT)
     D                                      Like(Part1)
     D     Field                            Overlay(Parts) Dim(3)
     D                                      Like(Part1)