Solved

Background disappears when calling a window program multiple times

Posted on 2004-08-06
5
601 Views
Last Modified: 2012-05-05
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
Comment
Question by:briantoddburton
  • 3
5 Comments
 
LVL 14

Expert Comment

by:daveslater
ID: 11739763
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
 
LVL 3

Expert Comment

by:Mind_nl
ID: 11750491
have you compiled the displayfiles with RSTDSP(*YES)...
0
 
LVL 14

Accepted Solution

by:
daveslater earned 125 total points
ID: 11750835
Hi
just tested the pgm
got it the wrong way roung. You need to exit pgmb with *inlr = *off.

Dave
0
 
LVL 14

Expert Comment

by:daveslater
ID: 12144559
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Define external data structure with free d specs in RPG 4 342
Check file/object size on AS400 3 166
AS400 Logging Print device 2 73
vmware on IBM X3960 with HA - Idiots Guide 8 114
Microsoft Office Picture Manager was included in Office 2003, 2007, and 2010, but not in Office 2013. Users had hopes that it would be in Office 2016/Office 365, but it is not. Fortunately, the same zero-cost technique that works to install it with …
When we talk about DevOps toolchains, I sometimes wonder how many people really get what we’re talking about. I don’t know if it’s just semantics or tone or something else, but sometimes I think it just sounds like buzzword sausage. So it’s always …
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
Delivering innovative fully-managed cloud services for mission-critical applications requires expertise in multiple areas plus vision and commitment. Meet a few of the people behind the quality services of Concerto.

930 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now