解决SAP长时间不使用会掉线的问题。(代码)
1.我们在使用SAP长时间不操作时候,就会发现掉线,有时候很多东西来不及保存就会很麻烦,现在提供以下代码。
2.输入事务代码SE38,建立一个程序。
3.输入以下代码:
*&---------------------------------------------------------------------*
*& Report ZONLINE
*&---------------------------------------------------------------------*
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.
"获取当前用户的会话数
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.
4.然后点激活,点运行就可以另外开一个窗口进行别的操作。
5.此代码的原理是每隔十秒就强制性操作一下。
post SAP-Garson
原文链接:https://blog.csdn.net/weixin_44779477/article/details/126332334文章来自于网络,如果侵犯了您的权益,请联系站长删除!