隐藏SAPGUI的屏幕/CALL FUNCTION

很搞的一个Report，没有大用处。
不过CALL FUNCTION 'TH_REDISPATCH'. 能使程序不至于因为超时TIME_OUT而DUMP。

*&---------------------------------------------------------------------*
*& Report  Z_BARRY_TEST                                                *
*&                                                                     *
*&---------------------------------------------------------------------*
*&    处理前使SAPGUI的屏幕在用户屏幕列表中不可见                       *
*&---------------------------------------------------------------------*

REPORT  z_barry_test       .

CALL FUNCTION 'SAPGUI_SET_PROPERTY' DESTINATION 'SAPGUI'
  EXPORTING
    property              = 'VISIBLE'
    value                 = ' '
  EXCEPTIONS
    system_failure        = 1
    communication_failure = 2
    OTHERS                = 3.

DO.
  DO 10000000 TIMES.
  ENDDO.
  CALL FUNCTION 'TH_REDISPATCH'.
ENDDO.

*处理完成后使SAPGUI屏幕可见
CALL FUNCTION 'SAPGUI_SET_PROPERTY' DESTINATION 'SAPGUI'
  EXPORTING
    property              = 'VISIBLE'
    value                 = 'X'
  EXCEPTIONS
    system_failure        = 1
    communication_failure = 2
    OTHERS                = 3.