FRCDTA 用键字FRCDTA制作等待屏幕(DSPF技巧)

FRCDTA
Displays a record format without waiting for the next operation.

 

url: http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=442476

 

前阵子看到一段DSPF的代码,用FRCDTA(强制数据)键字做等待屏幕,现在整理拿出来和大家分享一下! FRCDTA:用这个记录层键字可以无须等待下一个输入/输出操作而立即显示一个记录格式. 常见问题:对大数据量进行查询时,由于等待时间过长,用户常会误认为程序运行出现异常,终止操作. 解决方法:在数据查询进程中,加入等待屏幕告知用户,进程正常,请等待. 分析代码: DSPF: A R DSPFMT *输入操作屏幕 A ... A R RSLFMT *输出结果屏 A ... A R WATFMT LOCK *锁住键盘 A FRCDTA A 12 23' Waiting . . . . . . . . .' *提示内容 A COLOR(RED) *字体颜色 A DSPATR(RI) *字体高亮 A DSPATR(BL) *字体闪烁 RPGLE: C EXFMT DSPFMT *输入操作 C N99 WRITE WATFMT *等待屏幕显示 C EXSR DATACHK C EXSR DATASEARCH C ...... C EXFMT RSLFMT