Re: Array help

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) Ðages(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  / \   «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»