Re: Array help

Using the age as an index is a great idea.  Using SQL is also a great idea.
But, if you wanted to use matching arrays, which is probably not the best
idea for this program, there are a couple of options

I)  There are always matching tables.
age lokup tabage  tabcnt
countÝabcnt

II)  Or related arrays
age lokup aryage     x
countÚrycnt(x)

I leave it up to you to RTFM on the requisite indicators and whatnot.

Rob Berendt

ÝÝÝÝÝÝÝÝÝÝÝÚ smart person learns from their mistakes,
but a wise person learns from OTHER peoples mistakes.



                    "Simon Coulter"
                    <shc@flybynight.c       To:     rpg400-l@midrange.com
                    om.au>                  cc:
                    Sent by:                Fax to:
                    rpg400-l-admin@mi       Subject:     Re: Array help
                    drange.com


                    09/06/2001 05:32
                    PM
                    Please respond to
                    rpg400-l






M
Hello Mike,

I must be in a good mood today.  One possible answer to trivial question
follows:

Since you are unlikely to have ages greater than 100, simply create a
single
element array.

D ages             S                   10I 0     DIM(100)

Then use the age from the file as the index into the array and simply add
one
to that element.  Thus the entries will automatically be in order.  For
each
record:

C                              READ     employee
C                              EVAL     ages(age) Ý
ges(age) + 1

At EOF simply loop through the array printing the age counts.  Skip any
entries
with a zero value.  Since I presume you aren't using child labour you could
reduce the number of elements required by subtracting the minimum legal
working
age from your age index.

Of course, you could probably do this with SQL and generate a table of
buckets
using the Kronecker algorithm in a single statement but that would be
complex
and set Joe off on why SQL is unsuitable ... (gentle dig!).  You could also
use
the SQL CASE construct as shown in recent examples on this list but that
would
be ugly in this case (urrgh, I hate puns!).

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\   «»
«» Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /   «»
«»                                                           X    «»
«»               ASCII Ribbon campaign against HTML E-Mail  / \   «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.