Re: Old 36 Display Files

Kathie,

Use MOVE instead of MOVEA.  MOVEA starting with MSG,XX into ERR starting
at X and automatically increment XX and X until end of array is reached.

If you are trying to use 99 users to a device, you must be trying to
write this as an MRT program.  Bad idea. Don't do it.

Multiple people can run the same program, they just can't run the same
procedure.  So let's say you have program RPGPGM and you have procedure
OCLPROC that calls RPGPGM.  Each user must have their own, uniquely
named OCLPROC.

Change OCLPROC to contain this single entry:
RPGPGM?WS?

Now take whatever you had in the original OCLPROC and propagate it into
new procedures for all occurrences of RPGPGM?WS? that might appear.

HTH.


Kmh0421@aol.com wrote:

> Good Morning to all;
> <<snip>>
>
> 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>>
>
> My second problem is multiple users. I tried compiling with with 99
> maximum
> devices, I tried using KNUM 99 on the file spec. Still, when I try to
> bring
> up a second copy of the program, it locks until I release the first
> copy.
> What to do? I just don't know.
>

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