Re: Auto refresh screen problem

[mlazarus <mlazarus@xxxxxxxxxxxx>]

 Check out the INFSR and / or *PSSR functionality.

for v7.3:
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_73/rzasd/fiexsubr.htm

 -mark

On 1/8/2021 12:59 PM, smith5646midrange@xxxxxxxxx wrote:
> Output file MONSBMJOB in library JRSLIB on program device SMITHJO0 not done.
>
>
> Message ID . . . . . . . . . :   CPF4737
>
> Message file . . . . . . . . :   QCPFMSG
>
>    Library  . . . . . . . . . :     QSYS
>
>
>
> Message . . . . :   Output file&2 in library&3 on program device&4 not
>
>    done.
>
> Cause . . . . . :   An outstanding input operation has been completed.
>
> Recovery  . . . :   Send a READ to the program device&4 to receive
> available
>    data before sending another output operation.
>
> The error is occurring on the write of control1 which is the third line in
> the loop below.
>
>
>
> -----Original Message-----
> From: MIDRANGE-L<midrange-l-bounces@xxxxxxxxxxxxxxxxxx>  On Behalf Of Darren
> Strong
> Sent: Friday, January 8, 2021 12:08 PM
> To: Midrange Systems Technical Discussion<midrange-l@xxxxxxxxxxxxxxxxxx>
> Subject: RE: Auto refresh screen problem
>
> 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
> --
> 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
>
>