Re: Using %SUBAR to load array from a field

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Why would you do this instead of a much simpler, much more obvious, and 
much safer data structure?!?!

On 6/1/2010 9:44 PM, Chamara Withanachchi wrote:
> try this
>
>       H DFTACTGRP(*NO) ACTGRP(*NEW) BNDDIR('QC2LE')
>
>       D MyVar           S             40A
>       D MyArr           S              1A   Dim(35)
>
>       D MemCopy         PR                  ExtProc('__memcpy')
>       D  Trg                            *   Value
>       D  Src                            *   Value
>       D  Len                          10U 0 Value
>
>        /Free
>
>          MyVar = 'This is my text';
>
>          MemCopy(%Addr(MyArr) :
>                 %Addr(MyVar) :
>                 %Len(MyVar));