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

You could use a data queue attached to the display file

You WRITE the display file record and then use QRCVDTAQ to read the data queue, with a timeout value of 5 minutes If it comes back with *DSPF then the user entered something and you READ the display file record. If the data queue comes back empty then it has timed out.

Albert

----- Original Message -----
From: jdavis@xxxxxxxx
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Subject: Re: Returning control to a program from a dspf without user input
Date: Thu, 25 Sep 2008 15:53:19 -0500


Check this link out....it might contain your answer.

http://systeminetwork.com/article/tech-corner-70


Jeff Davis





"Emily Smith" <esmith@xxxxxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/25/2008 03:23 PM
Please respond to
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

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.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.





**********

The information contained in this communication is confidential,
private, proprietary, or otherwise privileged and is intended only
for the use of the addressee. Unauthorized use, disclosure,
distribution or copying is strictly prohibited and may be unlawful.
If you have received this communication in error, please notify
the sender immediately at (312)653-6000 in Illinois; (800)835-8699
in New Mexico; (918)560-3500 in Oklahoma; or (972)766-6900 in Texas.

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