SAP 防掉线程序，当是当前客户端的唯一页面的时候 新开页面

REPORT ZFDX.
*&---------------------------------------------------------------------*
*& Report ZONLINE

DATA: TEXT TYPE STRING,
      TIME TYPE I.
TIME = 0.
IF SY-LANGU = '1'.
  CONCATENATE '请使用其他会话进行工作' '!' INTO TEXT.
ELSE.
  CONCATENATE 'Please use another session for working' '!' INTO TEXT.
ENDIF.

DATA:GT_INFO TYPE TABLE OF UINFO2,
     GV_NUM  TYPE I.
DATA: OPCODE_USR_ATTR(1) TYPE X VALUE 5,
      TERMINAL           TYPE USR41-TERMINAL.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD OPCODE_USR_ATTR ID 'TERMINAL' FIELD TERMINAL.



  "获取当前用户的会话数
  CALL FUNCTION 'TH_LONG_USR_INFO'
    EXPORTING
      USER      = SY-UNAME
    TABLES
      USER_INFO = GT_INFO.
  DELETE  GT_INFO WHERE TERMINAL NE TERMINAL .
  DELETE  GT_INFO WHERE CLIENT NE SY-MANDT .
  DESCRIBE TABLE GT_INFO LINES GV_NUM.

  "对当前打开的会话数进行判断，如果只打开了一个，那么再另外打开一个新的会话供用户使用
  IF GV_NUM = 1.
    CALL FUNCTION 'TH_CREATE_FOREIGN_MODE'
      EXPORTING
        CLIENT           = SY-MANDT
        USER             = SY-UNAME
*       TCODE            =
*       RETURN_ERROR     = 1
*       CREATE_EXCLUSIVE = 0
      EXCEPTIONS
        USER_NOT_FOUND   = 1
        CANT_CREATE_MODE = 2
        OTHERS           = 3.
    IF SY-SUBRC <> 0.
* Implement suitable error handling here
    ENDIF.

  ENDIF.

  DO.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        PERCENTAGE = TIME
        TEXT       = TEXT
      EXCEPTIONS
        OTHERS     = 1.

    TIME = TIME + 1  .
    IF TIME = 101.
      TIME = 0.
    ENDIF.
    WAIT UP TO 10 SECONDS.
  ENDDO.