防止长时间不操作掉线和进度条

平时在使用培训系统时，总是会出现长时间不操作系统掉线需要重新登陆的情况，之前一个小伙伴分享给了我一段防止掉线的代码，现分享如下：

DATA : TEXT TYPE STRING,
       TIME TYPE I.
TIME = 0.
CONCATENATE 'Please open another session for working' '!' INTO TEXT.
DO.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      PERCENTAGE = TIME
      TEXT       = TEXT
    EXCEPTIONS
      OTHERS     = 1.
  TIME = TIME + 1.
  IF TIME = 999.
    TIME = 0.
  ENDIF.
  WAIT UP TO 10 SECONDS.
ENDDO.

主要原理就是利用SAPGUI_PROGRESS_INDICATOR这个函数死循环报消息，这个函数还可以用来提示进度哦，具体使用方法如下：

*&---------------------------------------------------------------------*
*&      Form  frm_gui_progress
*&---------------------------------------------------------------------*
*       text 进度条 加强版
*----------------------------------------------------------------------*
*      -->P_PERCENT  text
*      -->P_STRING   text
*----