Re: Programs that didn't need to be written - ScreenSaver5250

On a read operation from invited devices operation to a display file, only
data from devices with an outstanding invite operation are considered. The
input operation waits for data from any of the invited devices. (See the
WAITRCD parameter on the Create Display File (CRTDSPF) and Change Display
File (CHGDSPF) commands.) If none of the invited devices responds before
the wait time ends, a notify message is sent and no data is returned. All
invited devices remain invited.

Quite confused. Not sure how INVITE would work as a screen saver.

I was never aware that OS400 disconnected inactive jobs.

INVITE is used with ACQ op-code for multiple device coding. I rarely
used MRT programs,
INVITE is used with UDDS to get input from the device, also rarely used.

From the manual
-----
INVITE (Invite) keyword for display files
Use this file- or record-level keyword to invite the device for a later
read. To send an invite to a specific
device, your program sends an output operation to the device with the
INVITE keyword in effect. If the
record format used has output-capable fields, the data is sent to the
device before the device is invited.
This keyword has no parameters.
INVITE must be used if the display file can have multiple _acquired_
devices and your program does read
from invited devices operations.
-----

Frank

On 15/08/2022 11:41 am, Chris Pando wrote:

I use this program to keep the system from thinking my job is inactive,

and

disconnecting me. A recursive implementation of quicksort, it uses the
INVITE keyword to update the screen every n seconds. It also uses a
Fisher-Yates shuffle, with the bindable procedure CEERAN0.

http://www.brilligware.com/cp1329.html

Chris Pando
chris@xxxxxxxxx
www.brilligware.com - Home to MineSweeper5250

--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com