Re: Old 36 Display Files

[tomh@xxxxxxxxx]

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