Re: Overlaying a DS Array In a LIKEREC DS

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

The Prefix + LikeRec works fine in many cases - but this isn't one of  
them

LikeRec works the same way as LikeDS it generates a complete DS -  
hence you can't add any fields to it.

You need to use an externally described DS instead and you won't need  
the prefix in this case. Haven't tested the code below but something  
like it should work - and avoid the pointers for the pointer-phobic  
among your colleagues.

FCustData  IF   E           K DISK
D custRec       E DS                  Extname(CustData : *INPUT)
D array                          7p 0 overlay(CustData) Dim(20)

 /free
  DoU %Eof(Customers);
    Read Customers CustData;
    ...

NOTE: You _must_ specify the *INPUT option on ExtName for this to work.

Jon Paris

www.Partner400.com
www.SystemiDeveloper.com



On Jul 1, 2010, at 2:37 AM, rpg400-l-request@xxxxxxxxxxxx wrote:

> The file I'm using has 20 repeating groups of 5 fields (It's a 25  
> year old file and no one dares change it!) in the record (rafile)  
> which I want to access via an array DS, but I can't work out how to  
> do this.