Ansicht
Dokumentation
03743 - New popup message
BAL Application Log Documentation ABAP Short ReferenceThis documentation is copyright by SAP AG.
New popup message
Here is one I found the other day. I wish I could remember who's website itcame from. 🙁
This one you can send to multiple users, and have the option to log them
off.
~Mike
----------------------------------------------------------------------------
--------------
REPORT Z_THPOPUP.
TABLES: USR02.
DATA: I_USR02 LIKE USR02 OCCURS 0 WITH HEADER LINE.
PARAMETERS: MESSAGE(128) TYPE C OBLIGATORY LOWER CASE.
SELECTION-SCREEN: SKIP.
PARAMETERS: INFORM RADIOBUTTON GROUP RADI.
PARAMETERS: LOGOFF RADIOBUTTON GROUP RADI.
SELECTION-SCREEN: SKIP.
SELECT-OPTIONS: USERNAME FOR USR02-BNAME OBLIGATORY.
AUTHORITY-CHECK OBJECT 'S_ADMI_FCD'
ID 'S_ADMI_FCD' FIELD 'PADM'.
IF SY-SUBRC NE 0.
MESSAGE E000(38) WITH 'You are not authorized for process admin'.
ENDIF.
SELECT * FROM USR02 INTO TABLE I_USR02
WHERE USTYP = 'A'
AND BNAME IN USERNAME.
WRITE: / SY-SYSID NO-GAP, SY-MANDT.
WRITE: / SY-DATUM MM/DD/YYYY, SY-UZEIT.
SKIP.
IF INFORM = 'X'.
WRITE: / 'Message:', MESSAGE.
SKIP.
WRITE: / 'Contacted Users:'.
SKIP.
ELSE.
WRITE: / 'Automatic Logoff Users:'.
SKIP.
ENDIF.
LOOP AT I_USR02.
IF INFORM = 'X'.
PERFORM INFORM_USER.
ELSE.
PERFORM SHOW_USER_TO_THE_DOOR.
ENDIF.
ENDLOOP.
FORM SHOW_USER_TO_THE_DOOR.
CALL FUNCTION 'TH_POPUP'
EXPORTING
CLIENT = SY-MANDT
USER = I_USR02-BNAME
MESSAGE = 'Automatic Logoff Initiated'
CUT_BLANKS = 'X'
EXCEPTIONS
USER_NOT_FOUND = 1
OTHERS = 2.
IF SY-SUBRC = 0.
WRITE: /15 I_USR02-BNAME.
CALL FUNCTION 'TH_DELETE_USER'
EXPORTING
USER = I_USR02-BNAME
CLIENT = SY-MANDT
EXCEPTIONS
AUTHORITY_ERROR = 1
OTHERS = 2.
ENDIF.
ENDFORM.
FORM INFORM_USER.
CALL FUNCTION 'TH_POPUP'
EXPORTING
CLIENT = SY-MANDT
USER = I_USR02-BNAME
MESSAGE = MESSAGE
CUT_BLANKS = 'X'
EXCEPTIONS
USER_NOT_FOUND = 1
OTHERS = 2.
IF SY-SUBRC = 0.
WRITE: /15 I_USR02-BNAME.
ENDIF.
ENDFORM.
[Non-text portions of this message have been removed]
Durban Tours - Südafrika Safari
Addresses (Business Address Services) PERFORM Short Reference
This documentation is copyright by SAP AG.
Length: 2502 Date: 20240426 Time: 065014 sap01-206 ( 3 ms )
