× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Old 36 Display Files
  • From: "Bill Heinz" <weheinz@xxxxxxxxx>
  • Date: Wed, 18 Jul 2001 12:20:46 -0500

Second problem, are you telling the OCL to share your disk files?
----- 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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.