如何编程实现删除一个sap的在线用户

最新推荐文章于 2024-10-25 15:16:54 发布

原创

最新推荐文章于 2024-10-25 15:16:54 发布 · 3.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sap #编程 #structure #user #parameters #delete

这个博客展示了如何使用SAP编程语言实现删除指定客户端的在线用户。通过调用'ThUsrInfo'和'TH_DELETE_USER'函数，程序首先获取当前在线用户列表，然后根据用户选择警告并踢除用户。在踢除之前，还可以设置警告时间间隔。

REPORT ZKICK.

** Data ****************************************************************
DATA: OPCODE TYPE X VALUE 2.
DATA: BEGIN OF usr_tabl OCCURS 10.
        INCLUDE STRUCTURE uinfo.
DATA: END OF usr_tabl.
DATA TEMP_TEXT LIKE SM04DIC-POPUPMSG.
DATA: BEGIN OF fields OCCURS 10.
        INCLUDE STRUCTURE help_value.
DATA: END OF fields.
DATA: BEGIN OF valuetab OCCURS 10,
        line(80),
      END OF valuetab.
DATA: TMPUNAME LIKE SY-UNAME.

** Selection Screen ****************************************************
* Kick Off User/s
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
* User Name
SELECT-OPTIONS: UNAME FOR SY-UNAME OBLIGATORY.
* Client
PARAMETERS: CLIENT LIKE T000-MANDT DEFAULT SY-MANDT OBLIGATORY.
SELECTION-SCREEN SKIP.
* Time To Kick User Off Until
PARAMETERS: TIME LIKE SY-UZEIT DEFAULT SY-UZEIT OBLIGATORY,
* Interval Between Logoffs
INTERVAL(2) TYPE N DEFAULT 1 OBLIGATORY,
* Warn User Before Kicking Off?
WARN AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK B1.

** At Selection Screen *************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR UNAME-LOW.
PERFORM F4_HELP_CHECK_UNAME USING UNAME-LOW.

** Start of Selection ************************