Re: Using Pointers

[Mark Lazarus <mlazarus@xxxxxxxx>]

Jon,

At 09:44 AM 11/22/99 -0500, you wrote:

 I followed the code until I got to Array@ !  Is there a "@" missing
somewhere?

>The following technique (which does use pointers) could also work but I
doubt it
>is worth the effort. PS. The code sample here has been validated by
Code/400 but
>not tested.
>
>
>     D FakeRecord      DS
>     D  Elem1                         4    Inz('ABCD')
>     D  Pad1                         10
>     D  Elem2                         4    Inz('EFGH')
>     D  Pad2                         12
>     D  Elem3                         4    Inz('IJKL')
>     D  Pad3                          5
>     D  Elem4                         4    Inz('MNOP')
>
>     D ArrayPtrs       DS
>     D                                 *   Inz(%Addr(Elem1))
>     D                                 *   Inz(%Addr(Elem2))
>     D                                 *   Inz(%Addr(Elem3))
>     D                                 *   Inz(%Addr(Elem4))
>
>     D  Array                          *   Dim(4) Overlay(ArrayPtrs)
>
>     D CurrentElem     S              4    Based(Array@)
>     D Count           S              1  0
>
>     C                   For       Count = 1 to %Elem(Array)
>     C                   Eval      Array@ = Array(Count)
>     C     CurrentElem   Dsply
>     C                   EndFor

 -mark

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---