RE: Redefining a DS

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.

How young does one have to be in order to participate? 'Cuz if you're
calling me a young whipper-snapper, I feel kinda sorry for ya.

But here's my feeble attempt anyway. I had to assume certain attributes
about the array, but you get the jist. In case you don't, the key below is
that a 9-byte packed number takes up 5 characters. So I've defined
elem2Thru10 as a 9*(elem_len) byte array starting at position (elem_len)+1.

D array1DS DS
D myNumbers 9P 2 Dim(10)
D elem2Thru10 45 Overlay(array1DS: 6)

/Free

// Move 9 to 10, 8 to 9, 7 to 8, et cetera
elem2Thru10 = array1DS ;

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"Insanity is hereditary; you can get it from your children."
-- Sam Levenson