AS400调取子程序的画面挡住前画面的解决方法 -- 77家的会客厅 3rgb.com

2011-07-19

只需要在子程序所使用的DSPF画面加入如下一个RECORD即可

A*********************************************        
A**DUMMY SCREEN                                       
A*********************************************        
A          R DUMMY                     TEXT('DUMY')   
A                                      ASSUME         
A                                  1  2' ' DSPATR(ND)

-------------------------------------------------------------------------

DSPF 窗口的一些设置:

WDWBORDER((*CHAR ' ') +

(*COLOR WHT) +

(*DSPATR RI))

WDWTITLE((*TEXT ' 処理方法一覧 '))

也可以用：

WDWBORDER((*CHAR ' +-+||+-+'))

还有一个：