如何在RPG中显示屏幕后，程序继续执行，不需要按执行键什么的？

人世间

RPG中，EXFMT 后会等用户按ENTER后程序才继续执行。现在我想屏幕显示出来后，程序继续执行。而不是等待用户输入。

CL程序中可以做到，SNDRCVF RCDFMT（AAAA） WAIT（*NO）
我就是想在RPG中实现这样的效果。

V01619

用WRITE呢？

人世间

用WRITE看不到屏幕，只会在左下角显示*SYSTEM。呵呵

passthru

exfmt ddsrec

change to

write ddsrec

you can get your purpose.


exfmt ddsrec

equal to

write ddsrec
read ddsrec

[ 本帖最后由 passthru 于 2008-7-11 16:30 编辑 ]

人世间

用WRITE程序是继续执行了，但是屏幕并没有显示出来，所以这样做不行。

bc3

用 delay 方法

fxf_china

用 write, 带上这个参数试试
CRTDSPF FILE(#LIB/DSPF) DFRWRT(*NO)

hsiang_wang

可以用自动刷屏的写法

yj2yq

To optimize operations, AS/400 doesn't update the screen until (or unless) you request a READ operation from the display file. In most cases, this is desirable behavior. If you "paint" the screen by writing several pieces one after another, the AS/400's default treatment makes the result appear all at once.

You need to defeat this feature with the DFRWRT parameter of either the Create Display File (CRTDSPF) command or the Change Display File (CHGDSPF) command. If you haven't already compiled the display file, run CRTDSPF with DFRWRT(*NO). If the display file already exists, use CHGDSPF DFRWRT(*NO).

Then you can use WRITE statement to display.

人世间

yes 楼上正解，非常感谢！！！