Re: pausing a subfile

The method to do this requires the record format(s) to have the INVITE
keyword in effect.

Then you need to either change or override the display file with the
WAITRCD setting the required delay. Value is in seconds so you could set
this to 1 if you really wanted to.

In the program use the WRITE and READ instead of the EXFMT.

Code the File information DS for the Display file and include the *STATUS
option; Eg (Sorry old program and not free format)

F INFDS(INFDSA)

Workstation file information DS

D INFDSA DS
D DSPFIA *FILE
D STSFIA *STATUS

When you issue the READ include an error indicator which will be set on if
the WAITRCD time expires, test the STSFIA for a value of 01331 to confirm
this is a time-out and then modify the subfile and re-display it.

Cheers


Don Brown




From: "Jon Paris" <jon.paris@xxxxxxxxxxxxxx>
To: "RPG programming on IBM i" <rpg400-l@xxxxxxxxxxxxxxxxxx>
Date: 12/07/2019 10:46 PM
Subject: Re: pausing a subfile
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>



If you want that degree of sophistication in a green screen interface then
you need to use something like the DSM APIs so that you control the
display rather than Workstation Data Management controlling when the data
is sent to the device.

As has been noted a regular subfile is only updated when the control
record is displayed.

Frankly Booth you are trying to do something that 5250 terminals were
never really designed to do.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jul 11, 2019, at 10:01 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:

This seemed simple enough but it has me stumped.

I am adding lines to a subfile. I want the user to see each line as it

is added, using sleep() instead of exfmt. (Thank you for the links on
that earlier. Works great.)

Writing the new subfile record and then writing the control record and

sleep(1) seemed like the right choice. It apparently isn't. Any ideas?

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related

questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link: https://amazon.midrange.com