Re: Based data structure as dynamic array

[Alan Campin <alan0307d@xxxxxxxxx>]

You can use either dim or multiple occurrance data structures. Doesn't
really matter.

I think what you want is:

     p DemoMultipleOccurance2...
     p                 b
     d                 pi
     d  InCount...
     d                                     Like(StdInt)
     d                                     Value

     d DemoMO...
     d                 ds                  LikeDs(TD_DemoDs)
     d                                     Occurs(32767)
     d                                     Based(ptrDemoMO)

     d cInitialNum...
     d                 c                   3
     d cIncrement...
     d                 c                   2

    d x...
    d                 s                   Like(StdInt)
    d AllocateCount...
    d                 s                   Like(StdInt)
     /Free

      For x = 1 To InCount;
        If x > AllocateCount;
          If AllocateCount = 0;
            AllocateCount = cinitialNum;
             ptrDemoMO = %Alloc(%Size(DemoMO) * AllocateCount);
          Else;
           AllocateCount += cIncrement;
            ptrDemoMO = %ReAlloc(ptrDemoMO                    :
                                  %Size(DemoMO) * AllocateCount);

          EndIf;
          %Occur(DemoMO) = x;
          DemoMO.Field1 = 'ABC';
          DemoMO.Field2 = 'G';
          DemoMO.Field3 = 505;
         EndIf;
     EndFor;



On Fri, Oct 8, 2010 at 9:48 AM, Bryce Martin <BMartin@xxxxxxxxxxxx> wrote:

> Ok, I know this can be done, and I've looked all morning for an example
> but everything I see is related to Dim on the ds and that is NOT what I
> want.  I know you can base a datastructure on a pointer, and then allocate
> space as needed.  I'll be d*mned if I can find a simple example of this.
> And no, I don't want to use userspaces.  Its unnecessary.  I need a
> datastructure that has 2 elements.  So this will basically be a two
> dimensional array, practicallys speaking.
>
> So I'm assuming I would do something like this....
>
>     D MasterList_T...
>     D                 DS                  qualified based(TEMPLATE)
>     D  Customer...
>     D                                6s 0
>     D  Rank...
>     D                                6s 0
>
>     D myMasterList...
>     D                 DS                  likeds(MasterList_T)
>
> I guess I'm just not sure of exactly how to progress from here.
>
> I've looked at so many examples and counter examples that my mind is just
> kinda going to mush because half the articles I see are from 2002 or 2004
> or around that time and the way people used to do it just isn't needed any
> more and new relevant examples don't seem to be as abundant.  Once I get
> this working I'm going to be doing a bunch of writeups on what I used and
> why I used them, including my architecture decisions.  But I need to build
> it before I write about it.  This process is way easier that I've been
> finding it to be, and that is the frustrating part.
>
> Thanks
> Bryce Martin
> Programmer/Analyst I
> 570-546-4777
> --- This message (including any attachments) is intended only for the use
> of the individual or entity to which it is addressed and may contain
> information that is non-public, proprietary, privileged, confidential, and
> exempt from disclosure under applicable law. If you are not the intended
> recipient, you are hereby notified that any use, dissemination,
> distribution, or copying of this communication is strictly prohibited. If
> you have received this communication in error, please notify us and destroy
> this message immediately. ---
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.