Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 612
  • Last Modified:

Background disappears when calling a window program multiple times

I am wondering if anyone can help me on this....

I have a subfile (pgm A) into which the user can enter an option code
that will cause a window (pgm B) to pop up with more detailed
information. If the user enters this option on more than one subfile
record, the window will display multiple times before the
subfile/control records are written again in pgm A.

When the 2nd (and subsequent) windows of pgm B display, the screen
behind them (pgm A) goes black. If I select only one subfile record
at a time, everything displays okay. It is only when I am doing
multiple calls to pgm B without redisplaying pgm A inbetween, that I
run into the black background problem.

I been trying to use keywords such as KEEP, USRRSTDSP, RMVWVW, and
others to fix the problem, but with no success. I am sure that I
have written programs for previous employers that did this, but just
can't remember how. Guess I'm getting old.

Any help would be greatly appreciated.
0
briantoddburton
Asked:
briantoddburton
  • 3
1 Solution
 
daveslaterCommented:
Hi
(this is from memory - I do not have access to the 400 till Monday)
You have the dummy definition with the Keep and Assume keywords.

I think when call pgm b. if you do not return with *inlr=*on this causes the problem.
Define the screen as usropn and close and open it on each call. I think that will solve it.

Dave


0
 
Mind_nlCommented:
have you compiled the displayfiles with RSTDSP(*YES)...
0
 
daveslaterCommented:
Hi
just tested the pgm
got it the wrong way roung. You need to exit pgmb with *inlr = *off.

Dave
0
 
daveslaterCommented:
No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:

Accept daveslater comment as answer
 

Please leave any comments here within the next four days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!
daveslater
Page Editor
0

Featured Post

Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now