Re: Overlaying a DS Array In a LIKEREC DS

[Simon Coulter <shc@xxxxxxxxxxxxxxxxx>]

On 01/07/2010, at 9:46 AM, Eftimios Pantzopoulos wrote:

> All the code I've tried fails on compilation and I was hoping  
> someone could point me to a link, or provide an example of achieving  
> what I want.
>
> The last attempt was:
>
> d c               ds                  likerec(rafile)
> d array                               likeds(ctlds) dim(20)
> d                                     overlay(c.kpro1v)


What was the compiler complaining about?

Since you know the simple case works I'd probably do something like:

fafile    uf   e             disk    prefix('C.')  usropn
:
d c               ds                  likerec(rafile)
d array           ds                  likeds(ctlds) dim(20)  
based(@array)
:
@array = %addr(c.kpro1v);
:
Read afile c;
:

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         OS/400, i5/OS Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 2 6657 8251   Mobile: +61 0411 091 400        /"\
   Fax:   +61 2 6657 8251                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------