RE: Time Delay RPG IV

["Murphy, Mark" <MurphyM@xxxxxxxxxx>]

Alternately you could use data queues to do this, and the RPG will wait exactly until the asynchronous
process is finished.

I use a Keyed Data Queue for communications between processes so I don't have to have more than one on
the system.

In your RPG program:
1. Generate a unique key (mine generally consists of the job number and a timestamp, but if your job
could potentially make multiple requests per second, then you would need a different scheme).
2. Submit the asynchronous process and pass in the key as a parameter
3. Read the next message off the data queue with a wait time. (the read will return when a message
arrives or the timer expires whichever happens first).

In the asynchronous process:
1. Perform your actions
2. When it is safe for the Caller to continue, place a message on the data queue with the key passed
in the parameter.

You can use this technique to pass long parameters to another process, signal completion, errors, or
whatever else you need to communicate between processes.  Wait times are not arbitrary, but rather
only as long as they need to be, and the communications can be built into a standard service program
and used everywhere with a simple bound procedure call.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Christopher
Anderson
Sent: Thursday, July 24, 2008 10:10 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Time Delay RPG IV

Good morning,

I was wondering if there is any way to make an rpg program wait for a
time interval (say, 2 seconds).  I have to start an asynchronous
procedure and the rpg program has to wait until that procedure is done
and has returned files to the IFS before continuing.  

Has anyone done something like this before?

Thank you,
Chris Anderson
Partners Mutual Insurance