Re: Redefining a DS

On 09/04/2010, at 11:16 AM, James Newman, CDP wrote:

I have an array of 10 elements. I want to move #9 to #10, #8 to #9, etc. I
can write code that does that. In talking over this with a friend today he
suggested moving the array to a data structure, redefining it, and moving
all but 1 element back to the array. "Pretty smart", I said. Now I wish
I'd said "hey, can you send me an example of how you do that?"

Could one of you young whipper-snappers post the way the DS should be
coded? TIA.

Well, I'd just do it in a loop but since your example would require two moves why not just define another array and use MOVEA? Seems like an acceptable fit.

D array S 10I 0 DIM(10)
D array2 S LIKE(array) DIM(%ELEM(array))
C MOVEA array(1) array2(2)
C MOVEA array2 array

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------