RE: dim lights?

["John Brandt Sr." <pgmr@xxxxxxxxxxxxxxx>]

It doesn't exit until pos = 53 and InputMAD can't have a 53?
Just a guess.

John Brandt
iStudio400.com

-----Original Message-----
From: Ted Barry [mailto:tbarry@xxxxxxxxxxxxxxxxxxxx]
Sent: Thursday, March 25, 2004 10:45 AM
To: rpg400-l@xxxxxxxxxxxx; <Midrange Systems Technical Discussion
Subject: dim lights?


What is wrong with this statement?:

dow       (InputMAD(pos) <> ';') and 
          pos < 52                   
eval      pos = pos + 1              
enddo                                

Total dims are 52, so why am I getting an array index error?


_______________________________________________
This is the RPG programming on the AS400 / iSeries (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.

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.642 / Virus Database: 410 - Release Date: 3/24/04
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.634 / Virus Database: 406 - Release Date: 3/18/04