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

bobofish29

前阵子看到一段DSPF的代码,用FRCDTA(强制数据)键字做等待屏幕,现在整理拿出来和大家分享一下!
FRCDTA:用这个记录层键字可以无须等待下一个输入/输出操作而立即显示一个记录格式.
常见问题:对大数据量进行查询时,由于等待时间过长,用户常会误认为程序运行出现异常,终止操作.
解决方法:在数据查询进程中,加入等待屏幕告知用户,进程正常,请等待.

分析代码:

1. 
   
2. DSPF:
   
3. A          R DSPFMT            *输入操作屏幕
   
4. A          ...                                            
   
5. A          R RSLFMT        *输出结果屏
   
6. A          ...                                            
   
7. A          R WATFMT                    LOCK     *锁住键盘                  
   
8. A                                      FRCDTA                     
   
9. A                                 12 23' Waiting . . . . . . . . .'  *提示内容
   
10. A                                      COLOR(RED)        *字体颜色         
    
11. A                                      DSPATR(RI)          *字体高亮      
    
12. A                                      DSPATR(BL)          *字体闪烁        
    
13. RPGLE:
    
14. C                   EXFMT     DSPFMT   *输入操作                     
    
15. C  N99           WRITE     WATFMT       *等待屏幕显示               
    
16. C                   EXSR      DATACHK                    
    
17. C                   EXSR      DATASEARCH                  
    
18. C                   ......                  
    
19. C                   EXFMT    RSLFMT                  
    

复制代码

    

Eagle_wolf

hehe 不错 找机会用一下！

xuguopeng

原来都是写画面啊~~~ 我以为都是CLP发的消息呢

亲亲400

好，我是初哥，请问如何用DDS，如何进入DDS的编辑吗？

xuguopeng

STRSEU

bobofish29

正解!

╰●-●╯

另一個方式是使用CRTDSPF或CHGDSPF時，設定DFRWRT(*NO)也可以達到同樣效果。

bobofish29

[quote]原帖由 "╰●-●╯"]另一個方式是使用CRTDSPF或CHGDSPF時，設定DFRWRT(*NO)也可以達到同樣效果。[/quote 发表：

能贴一个代码例子出来看看吗?学习学习!

qingzhou

刚从北京学习RPG IV初级、中级课程回来，现在看这个感觉不新鲜了。
呵呵。。。     

鼓励一下。。。