Re: Multiple occurrence Data Structure

Mike Silvers wrote:

I am trying to have a multiple occurrence data structure and manipulate it
using pointers.  I am having a problem.  I am always getting the last data I
have entered.  Here is the sample program:

D Structure       DS
D    Struct_F1                  20
 *
D StructurePoint...
D                 S               *
D SPH             S               *
 *
D TestData        S             20A
 *
 * Load the DS
 *
C                   Eval      SPH = %Addr(Structure)
C                   Eval      StructurePoint = %Addr(Structure)
C                   Eval      Struct_F1 = 'Position #1'
C                   Eval      StructurePoint =
C                                StructurePoint + %Size(Structure)
C                   Eval      Struct_F1 = 'Position #2'
C                   Eval      StructurePoint =
C                                StructurePoint + %Size(Structure)
C                   Eval      Struct_F1 = 'Position #3'
 *
 * Loop through the DS
 *
C                   Eval      StructurePoint = SPH
C                   Eval      TestData = Struct_F1
C                   Eval      StructurePoint =
C                                StructurePoint + %Size(Structure)
C                   Eval      TestData = Struct_F1
C                   Eval      StructurePoint =
C                                StructurePoint + %Size(Structure)
C                   Eval      TestData = Struct_F1
 *
C                   Return

any ideas in where I am going wrong?

what I am trying to accomplish is a have an unlimited number of data
structure's sent to the program and in the program I loop through the data
structures and process the information.  The parms passed will be the
pointer to the data structure and the number of occurrences.

Try coding something like:

----------------------------------------------------------------
D Structure       DS                 BASED(StructurePoint)
D    Struct_F1                  20
 *
D StructurePoint...
D                 S               *
D SPH             S               *
 *
D TestData        S             20A
 *
 * Load the DS
 *
C                   EVAL      StructurePoint = %ALLOC(SIZE)
C                   EVAL      SPH = Structure
C                   Eval      Struct_F1 = 'Position #1'
C                   Eval      StructurePoint =
C                                StructurePoint + %Size(Structure)
C                   Eval      Struct_F1 = 'Position #2'
C                   Eval      StructurePoint =
C                                StructurePoint + %Size(Structure)
C                   Eval      Struct_F1 = 'Position #3'
 *
 * Loop through the DS
 *
C                   Eval      StructurePoint = SPH
C                   Eval      TestData = Struct_F1
C                   Eval      StructurePoint =
C                                StructurePoint + %Size(Structure)
C                   Eval      TestData = Struct_F1
C                   Eval      StructurePoint =
C                                StructurePoint + %Size(Structure)
C                   Eval      TestData = Struct_F1
 *
C                   Return
--------------------------------------------------------------------

That is, you need to define your DS as based, and you need to
allcoate storage for the DS somehow.

Cheers!  Hans