× 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.



There is another way beyond opening the file each time - why not pass the file as a parm to the subproc and avoid the open/close altogether? With RSTDSP(*YES) that should work nicely.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Aug 9, 2017, at 4:29 PM, MichaelQuigley@xxxxxxxxxx wrote:

"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx> wrote on 08/09/2017
10:34:42 AM:
----- Message from Dan <dan27649@xxxxxxxxx> on Wed, 9 Aug 2017 10:
34:29 -0400 -----

To:

Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>

Subject:

Re: Window border display attributes mess up overlaid display

I finally realized a pattern. I noticed that the windows *always*
display
correctly the very first time the service program was called in a given
interactive job. I don't set LR on in the service program, and I did
not
specify USROPN on the workstation file. So, even after the "main"
program
terminates, the workstation file remained open in the job.

The fix: Add USROPN, open the file at the top of each of the window
procedures, and close it prior to each RETURN operation. Problem
solved.

Thank you, gentlemen, for your suggestions!

- Dan


You can also change the display file for the main program to RSTDSP(*YES).
This always solved the issue for us. It takes less code than always
closing the subprogram display file and reopening it. (It's more
efficient, too--the system doesn't have to deal with creating and
destroying the ODP (open data path) each time. However, it does require
ensuring each main program DSPF is created with the RSTDSP(*YES)
parameter.

Michael Quigley
Computer Services
The Way International
www.TheWay.org
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.