REPORT  ZTEST_INVISIBLE_TRICK         .*************************************************************
START-OF-SELECTION.
*处理前使SAPGUI的屏幕在用户屏幕列表中不可见
CALL FUNCTION 'SAPGUI_SET_PROPERTY'
   DESTINATION 'SAPGUI'
   EXPORTING
     property = 'VISIBLE'
     value = ' '
   EXCEPTIONS
     system_failure = 1
     communication_failure = 2
     OTHERS = 3.
************************************************************************
DO 1000 TIMES.
*doing some work which takes lot of time   
  DO 1000 TIMES.   
  ENDDO.
*Resetting time counter of dialog process so that time-out does not
*happen. Use this fm within your programs at appropriate locations to
*reset time counter.  
 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.