RE: Returning control to a program from a dspf without user input

DSPF:
R DISPLAY

51 FRCDTA
51 LOCK


RPG

dindds ds
d in_frcdta 51 51n


/free
,,, your calculations ....

in_frcdta = *on;
write display;
in_frcdta = *off;

// make a loop for 5 seconds....

... your calculations ...

/end-free

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Emily Smith
Sent: Thursday, September 25, 2008 4:23 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Returning control to a program from a dspf without user input

A co-worker is writing a program in which he wants to display a screen with
all output fields for a few seconds and then return control to the program
without the user taking any action. When return controls to the program he
wants to immediately display a window over the initially displayed screen.

Something like

Exfmt Screen1 ;
//no user input
//wait about five seconds
Exfmt Screen2 ;

I've looked through the dspf keywords and nothing is jumping out at me. Any
suggests on how to accomplish this?


Emily Smith
Programmer/Analyst
Bank Data Services
(618)659-4550
CONFIDENTIALITY NOTICE: This email message is private, confidential property
of the sender, and the materials may be privileged communications intended
solely for the receipt, use, benefit, and information of the intended
recipient indicated above. If you are not the intended recipient, you are
hereby notified that any review, disclosure, distribution, copying, or
taking of any other action in reference to the contents of this message is
strictly prohibited, and may result in legal liability on your part. If you
have received this message in error, please notify the sender immediately
and delete this message from your system. We believe that this email and
any attachments are free of any virus or other defect that might affect any
computer system that it is received and opened in, however, it is the
responsibility of the recipient to ensure that it is virus free and the
sender accepts no responsibility for any loss or damage.