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

 

常见问题:对大数据量进行查询时,由于等待时间过长,用户常会误认为程序运行出现异常,终止操作.

解决方法:在数据查询进程中,加入等待屏幕告知用户,进程正常,请等待.

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)          *字体闪烁       

RPG

C                   EXFMT     DSPFMT   *输入操作                     

C  N99           WRITE     WATFMT       *等待屏幕显示              

C                   EXSR      DATACHK                   

C                   EXSR      DATASEARCH                 

C                   ......                 

C                   EXFMT    RSLFMT                 

 

 

 

 

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