Re: Using Pointers

[Jon.Paris@xxxxxxxxxx]

 >> now the array elements are not contiguous

This is a contradiction in terms - an array by definition represents contiguous
storage. If you have non-contiguous data that you wish to treat as an array you
must move the elements to an array.

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




+---
| 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
+---