Re: Dynamic arrays

Larry Bolhuis wrote:

> I haven't tested this but would not the use of SETOBJACC to move the
> file entirely into main storage give you almost the same speed boost
> with *ZERO programming?

Yes, SETOBJACC would likely be a much better performer than an array.   And 
with 50
records the amount of memory you'd have to count out would be negligible.  I 
believe
that the minimum that you could carve out for a subsysstem is 32K... more than 
enough
for this file.

But it may not even be worth doing at all because the AS/400 does such a darn 
good job
of memory management.  It naturally will keep frequently used data in main 
storage
anyway, and again, with such a small file it is very likely that the entire 
file will
remain in main storage for the duration of the program anyway.

It would be interesting to bench mark, but I would suspect that your array 
program
would perform significantly worse than the program that just let Data Management
handle things.

jte

>
>
>  - Larry
>
> lg - Loyd Goodbar wrote:
> >
> > I have a work file (about 50 records) that is accessed very often by a RPG4
> > program. I was thinking about reading the file into an array to make lookups
> > faster. The problem is the file changes in size; sometimes it's 50 records,
> > sometimes 60, or 40, etc. I'd like to create a dynamically-sized array at
> > runtime. I briefly looked at the ALLOC/DEALLOC/REALLOC opcodes, but they
> > really didn't make much sense.
> >
> > Is there a relatively easy way of creating dynamic arrays in RPG, or am I
> > forced to create an arbitrary upper limit?
> >
> > Thanks,
> > Loyd
> >
> > --
> > "If we wanted more leisure, we'd invent machines
> >  that do things less efficiently." --Calvin & Hobbes
> > lgoodbar@watervalley.net  ICQ#504581  
>http://www.watervalley.net/users/lgoodbar/
> > +---
> > | This is the Midrange System Mailing List!
> > | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator: 
>david@midrange.com
> > +---
>
> --
> Larry Bolhuis         | What do you want to reload today?
> Arbor Solutions, Inc  |
> (616) 451-2500        | Two rules to success in life:
> lbolhui@ibm.net       | 1. Never tell people everything you know.
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---



--
John Earl   johnearl@toolnet.com

PowerTech Toolworks  206-575-0711
PowerLock Network Security www.toolnet.com
The 400 School   www.400school.com
--


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---