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.