× 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: Display File Problem
  • From: "Mike Naughton" <mnaughton@xxxxxxxxxxxx>
  • Date: Wed, 27 Dec 2000 14:47:40 -0500

Hello All,

I think this may be a simple question, but I have been trying for several
hours to figure it out, and I'm getting nowhere! I hope one of you gurus
can help. . . .

Program A is a subfile program, and each subfile record has a selection
field. After the EXFMT, I do a loop through the subfile records checking
this field -- if the user has entered, for example, "2", I  call Program
B, passing info from the subfile record selected. If multiple selections
have been made, I call Program B multiple times before returning to the
EXFMT.

Program B just displays a window with this information. The user can
either change it or cancel back out. If change, then I redisplay the
subfile, but if cancel there is no reason (nothing has changed). 

This works fine if I select one record. The problem comes when I select
more than one and then cancel out of each one -- after the first
cancellation, Program A's screen has disappeared, and I just see Program
B's window on a black background. I have found that I can work around this
by doing a WRITE of Program A's subfile control record after each call to
Program B -- my question is: is this  really necessary? Isn't there some
way to have Program A's screen stay visible the whole time?

Some notes:
* The display files for Program A and Program B both have a dummy record
with the ASSUME keyword
* They both also use the OVERLAY keyword in the other formats
* They are both compiled with RSTDSP(*YES) (it's our shop default)

I thought from my reading that doing all of the above would prevent what
I'm describing. . . .

Any ideas? Thanks very much in advance,


Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA  01376
413-863-4357 x444
mnaughton@juddwire.com

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.