|
Are you using MOVEL or MOVEA?
----- Original Message -----
Sent: Wednesday, July 18, 2001 11:26
AM
Subject: Old 36 Display Files
Good Morning to all;
As some of you may remember, I am rewriting old icky WSU MACPAC Sys 36
code
into better old icky 36 more structured code removing the WSU yuk,
but
keeping the S&D screen specs. I am doing this because it was
insisted on by
the client. Soooo, for this project I am way back in
time.... I have 2
problems I hope someone can help with. The first is that
the user can press
KU to 'Accept Errors'. I want to display as many errors
as possible, because
if the user accepts one error, they accept all
errors. The client does not
want a separate error screen, and an error
subfile is out of the question of
course. 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?
0117.00
E
ERR
8 69
0122.00 E
$MSG
1 63 69
0477.00
I
DS
0478.00 I
01
552 ERR
0479.00
I
01
69 ERRMS3
0480.00
I
70
138 ERR3A
0481.00
I
139
207 ERR3B
0482.00
I
208
276 ERR3C
0483.00
I
277
345 ERR3D
0484.00
I
346
414 ERR3E
0485.00
I
415
483 ERR3F
0486.00
I
484
552 ERR3G
Display File:
0048.00
*
0049.00 DERR3G
69120419
19
0050.00 DERR3F
69130419
19
0051.00 DERR3E
69140419
19
0052.00 DERR3D
69150419
19
0053.00 DERR3C
69160419
19
0054.00 DERR3B
69170419
19
0055.00 DERR3A
69180419
19
0056.00 DERRMS3 69190419
19
0057.00 *
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.
Can anyone help on
these problems? Again, no RPGIV / ILE, and many things in
even RPGIII are
not allowed. For example, I can't EXFMT, I must EXCPT/READ
screen formats.
This isn't negotiable, so let's not go there. What must be
must be.
Help! Please?
Thanks;
Kathie
Subj: Hi
there
Date: 07/17/2001 1:22:07 PM Central Daylight Time
From: Kmh0421
To: dshea@arctools.com
Hi
Dave;
I have one more quick question... I tried compiling with different
options,
but no matter what... I cannot call up the same program in 2
sessions. Only
one can be active at a time... Do you know if there is
something special I
have to do in 36 mode to allow multiple users of a
program?
Thanks
Kathie
|
midrange.com
