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

Emily,
As Simon has already mentioned, if your screen does not require user
input, simply add the FRCDTA keyword on the screen format and use the
WRITE opcode to display the screen. One thing I would add to his
comments is to execute the DLYJOB DLY(5) command after the write
statement. This command will give you the desire effect of showing the
screen for 5 seconds. You can call the QCMDEXC api to execute command
from RPG.

So... You code would look something like below:

Dqcmdexc Pr Extpgm('QCMDEXC')

D 3000A const
Command string
D 15 5 Const
Command string length
D 3 Options(*NOPASS)
DBCS flag

/free
write Screen1 ;
qcmdexc('DLYJOB DLY(5)' :13);
exfmt Screen2 ;
/end-free


"Simon Coulter" <shc@xxxxxxxxxxxxxxxxx> wrote in message
news:<mailman.13637.1222376640.2545.rpg400-l@xxxxxxxxxxxx>...

On 26/09/2008, at 6:23 AM, Emily Smith wrote:

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?

Specify FRCDTA on the definition for SCREEN1. Issue a WRITE instead
of EXFMT. The rest is business as usual.

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------