RE: Redefining a DS

["Dennis Lovelady" <iseries@xxxxxxxxxxxx>]

> 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