Re: Need OCCURS when defining data structures

James Newman, CDP 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.

Well, to move all of the elements in an array as you're describing you could do something like this:

D ds...
D ds
D array...
D 1A dim(26)
/free

ds = 'abcdefghijklmnopqrstuvwxyz';
ds = %subst(ds : 2);
array(26) = 'A';

*inlr = *on;
return;
/end-free

After the first eval, you'll have
array(1) = 'a'
array(2) = 'b'
....
array(26) = 'b'


After the second eval, you'll have
array(1) = 'b'
array(2) = 'c'
....
array(25) = 'z'
array(26) = ' '

Thanks for bringing that up ... this could be a really nice way to implement queues and stacks of fixed-length elements.

HTH,
Adam