SAP解决长时间不操作掉线问题_SAP刘梦_新浪博客

*&---------------------------------------------------------------------* *& Report ZLMLINK *&---------------------------------------------------------------------* *& SAP干货铺 *&---------------------------------------------------------------------* REPORT ZLMLINK. 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. "获取当前用户的会话数 CALL FUNCTION 'TH_LONG_USR_INFO' EXPORTING USER = SY-UNAME TABLES USER_INFO = GT_INFO. 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.