如何as400写的DSPF自动刷屏,例如象监控屏等

Question

以前做过,现在记不得如何让AS400的DSPF可以自动3秒刷屏幕了,应该是可以等待超时后就可以捕捉错误

Answer 1

九十年代，做股票交易系统，显示股票行情就是用400的ibm傻终端做自动刷屏。具体有点忘了。主要在编译DDS显示文件的时候，有个编译选项参数可以设置刷新屏幕的时间间隔，秒为单位。DDS文件中有个记录级键值设置（可惜忘了）。早期的rpg user guide有自动刷屏的example。现代的guide不知道还有没有这个example。

[ 本帖最后由 passthru 于 2009-4-13 17:19 编辑 ]

Answer 2

显示文件中需要使用 INVITE 关键字。你可以查一下资料。

A                                      DSPSIZ(24 80 *DS3)      
A                                      PRINT                  
A  80                                  INVITE                  
A                                      CA03(03 'EXIT')

Answer 3

我见过

1.程序中操作显示文件用read
2.编译显示文件时WAITRCD参数来指定刷新频率

但愿能给楼主起到提醒作用。

Answer 4

原帖由 v02342 于 2009-3-15 10:04 发表
以前做过,现在记不得如何让AS400的DSPF可以自动3秒刷屏幕了,应该是可以等待超时后就可以捕捉错误

我试过用DO循环来实现，不过效果不是很好

Answer 5

自己顶下