Display File Problem

["Mike Naughton" <mnaughton@xxxxxxxxxxxx>]

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