Re: Overlaying a DS Array In a LIKEREC DS

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.