Re: Filling an array from the first occurrence on down

[Dennis <iseries@xxxxxxxxxxxx>]

I use what may be considered a cheater's approach to this.  I  set a pointer to the source and the target, calculate the lengths, and do a memcpy to shift such data.  So that if I want to shift elements 1-5 "up", pSrc will point to array(1), pTgt will point to array(2), and len will have the number of bytes to copy (the number of elements * size of each element).  Then:

memcpy(pTgt, pSrc, len) ;

Works for compressing out, too.  And no silly looping. 

"Alan Shore" <ashore@xxxxxxxx> wrote:

> Hi everyone
> I'm having one of those days where no matter what I do, I just cannot
> get my head around what should be a simple problem
> Hopefully someone is kind enough to provide an answer
> I have an array
> D LINE            S             30    DIM(6)
>
> Data can be in any combination of the occurrences (or none at all)
> I need to create logic so that data is moved down to fill in from the
> first, through the second, then third etc., until the only blanks are
> in the trailing occurrences
>
> Hopefully I explained it correctly, here is an example
> 1
> 2    data 1
> 3
> 4
> 5   data here
> 6  f=data 2
>
> Becomes
> 1 data 1
> 2 data here
> 3 f=data 2
> 4
> 5
> 6
> NOTE - I don't want the information sorted, just moved up
> As always, any and all responses gratefully appreciated
>
> Alan Shore
> Programmer/Analyst, Direct Response
> E:AShore@xxxxxxxx
> P:(631) 200-5019
> C:(631) 880-8640
> "If you're going through Hell, keep going" - Winston Churchill
>
> -- 
> 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.

--  
Sent from my Galaxy tablet phone with with K-9 Mail. Please excuse my brevity.