论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2009-03-15 10:04 |只看该作者 |倒序浏览

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

文库|博客

v02342

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2009-03-15 12:36 |只看该作者

自己顶下

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

cloudrack_chen

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2009-03-15 16:08 |只看该作者

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

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

yisheng_li

丰衣足食

论坛徽章:: 0

4楼 [报告]

发表于 2009-03-17 09:30 |只看该作者

我见过

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

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

mickeycheng

白手起家

论坛徽章:: 0

5楼 [报告]

发表于 2009-04-13 16:54 |只看该作者

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

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

passthru

小富即安

论坛徽章:: 0

6楼 [报告]

发表于 2009-04-13 17:15 |只看该作者

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

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 操作系统 › AS400 › 如何as400写的DSPF自动刷屏,例如象监控屏等

如何as400写的DSPF自动刷屏,例如象监控屏等 [复制链接]

浏览过的版块