RE: Filling an array from the first occurrence on down

OK, I had missed that. Sorry. But as promised....

I did not get around the double loop as I had thought to do originally, but
I hope it demonstrates the possibilities and efficiencies of the approach.
Also, this violates my standard of not monkeying around with global
variables within a procedure without notice. But for the sake of
demonstration, I give you: http://code.midrange.com/e38eb36856.html

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"It is difficult to produce a television documentary that is both incisive
and probing when every twelve minutes one is interrupted by twelve dancing
rabbits singing about toilet paper."
-- R. Serling

Dennis,

In his original post, Alan showed an example of how there might be a
"hole"
in the middle:

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

Rory


On Tue, Apr 26, 2011 at 3:20 PM, Dennis Lovelady
<iseries@xxxxxxxxxxxx>wrote:

Hmmm.... not sure what value there is in moving the elements one at a

time

as opposed to en masse. Unless you're thinking there may be a "hole"

in

the
middle and you need to compress it out. But a routine like that

described

could be used to ensure that that doesn't happen.

I'm in the midst of other activities, but before this night is

through, I

will try to put together an understandable sample to show the value

of this

sort of logic, and in the process show you how it could be used to

compress

out the blanks, should they be introduced. 'Cuz I think it's worth

it. :)

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady

--
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.