Re: Need OCCURS when defining data structures

[Charles Wilt <charles.wilt@xxxxxxxxx>]

RPG has supported Muli-Occurance Data Structures (MODS) for a long time:

d myMods     ds              occurs(10)
d  fld1                       10a
d  fld2                       20a

for x = 1 to 10;
  occur(x);
  fld1 = 'HI';
endfor;


RPG IV added support for arrays
d myArray     ds            dim(10)
d  fld1                       10a
d  fld2                       20a

for x = 1 to 10;
  fld1(x) = 'HI';
endfor;

HTH,
Charles

On Tue, Feb 3, 2009 at 3:23 PM, James Newman, CDP <newmanas400@xxxxxxxxx> wrote:
> I'm on a V5R2 machine and rewriting a program that currently uses 60 element
> arrays when processing records.  As part of the processing I have to move
> element 59 to element 60, 58 to 59, etc and put the newly read record in
> element 1.  A friend (thanks Marshall) suggested that instead of using
> arrays, define the arrays as data structures and move the data structure
> instead.  This should be much faster.  But do I have to define each element
> as part of the larger data structure?  I guess there's no "OCCURS X TIMES"
> in RPG, eh?
>
> TIA.
> --
> 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.