What error are you getting and where in the process is it being issued?
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of smith5646midrange@xxxxxxxxx
Sent: Friday, January 8, 2021 9:58 AM
To: 'Midrange Systems Technical Discussion' <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Auto refresh screen problem
CAUTION: This email originated from outside of the organization. Do not click links or open attachments unless you recognize the sender and know the content is safe.
I have a program that I have written to help me watch the jobs that I am running for a system conversion. It contains two subfiles, one shows all abended jobs and the other shows the active jobs. If an active job goes into MSGW state, the job highlights yellow.
Since the subfile records have the jobinfo, I wanted to add an FKey to allow me to display the job. For the abends, it will give me quicker access to the joblog.
The both control records have OVERLAY and INVITE and the screen was created with WAITRCD(5).
The logic in the program is at follows.
dou endOfTime
init sub1
load sub1
write control1
init sub2
load sub2
write control2
read(e) screenfile
select
when fKey = F3
endOfTime = *on
when FKey = F4
Display job
endsl
enddo
This is working as expected except I occasionally get an error that appears to be when the screenfile times out and I hit an FKey at the exact same time. If I let the screen refresh and then I hit the FKey before the 5 second timeout, it never abends. I'm pretty sure the abend occurs in the init of the first subfile.
Just to be clear with the init logic, it works fine as long as the timeout and FKey do not happen at the same instant and the init logic is also the same logic that I have used for 20+ years without a problem.until I tried to write and auto refresh program. :(
Is there some trick to the auto-refresh screens that I don't know about that handles this scenario? Is there something that I need to do after the
read(e) if the %error is tripped (I don't know if it is tripped) that resets the screen? Or did I find a bad website example for how to do this and I'm all messed up?
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
