Re: Display File Problem

["David Wright" <dwright2@xxxxxxxxxxxxxxx>]

Have you tried using the KEEP keyword on the Dummy Record of DSPF A?

----- Original Message -----
From: "Mike Naughton" <mnaughton@juddwire.com>
To: <RPG400-L@midrange.com>
Sent: Wednesday, December 27, 2000 11:47 AM
Subject: Display File Problem


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

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