Re: Old 36 Display Files

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Kathie,

Don't use MOVEA, just use MOVEL. MOVEA as you're using it will move all
elements of $MSG starting with element XX, e.g. if XX is 20, and X is 6, it
will move elements 20, 21, 22 to ERR elements 6, 7, 8.

hth,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


From: Kmh0421@aol.com
<snip> So, I am display 8 errors on the input screen. If the first error is
populated, I want to populate the second, and so on. I linked an array to an
error data structure to accomplish this task.

Below is the definition for arrays' ERR & $MSG. The error fields are also
described in data structures. In editing, I do:
MOVEA $MSG,XX ERR,X decreasing X as I go.
I want to display up to 8 errors on the screen. The first error, lets say
MSG,20 moves properly to ERR3G (with a move to ERR,X  where X=8).... but the
next edit, lets say MSG,22 which is to go into ERR,X where X=7... instead
moves MSG,22 to element 7, and overwrites element 8 with the next
consecutive
message after MSG,22, which is MSG,23... I have watched it time and again in
debug... then MSG 22 and 23 are displayed instead of MSG,20 and MSG,22!!!!
Do
you have any idea why that happens?

<snip>


+---
| 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
+---


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| 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
+---