Re: RPG400-L Digest V2 #238

Thanks for the help, is it that obvious I don't use Lookup that much?

There were actually 2 problems with my lookup, as pointed out by people.

1. I was starting my array at element 0, not 1, which was what was causing
   the invalid date I believe (I looked at array element 0, which didn't exist,
   and contained either garbage, or a null, and that is what was causing the
   error).
2. My array was set for Ascend instead of Descend.  This was a logical
   error I have since fixed, which would of given me bad results.

Regards,

Jim Langston

"Dugas, Paul-Exch" wrote:

> I'm not positive without looking at the compilation report, but doesn't a 4
> dimension array create subscript 0,1,2,3 as opposed to 1,2,3,4?  You state
> the values in your array of 1,2,3,4 but you set per = 0 so if I am correct,
> you have an incorrect date in
> agedates(0).  Just a thought, but I'm a little array rusty.  Good Luck

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