Re: Old 36 Display Files -- RPG400-L

1st question - use either MOVE or MOVEL instead of MOVEA
2nd question - _what's_ locking? Is it stuck on a file lock? A record lock? Are you wanting to run it as MRT (be sure and specify that when you save the OCL which runs the program)?

Kmh0421@aol.com
Sent by: owner-rpg400-l@midrange.com

07/18/01 11:26 AM
Please respond to RPG400-L

To: RPG400-L@midrange.com
cc:
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