Re: MIDRANGE-L Digest, Vol 16, Issue 1259

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