Ansicht
Dokumentation

04047 - ABAP for send break message?

04047 - ABAP for send break message?

BAL_S_LOG - Application Log: Log header data   SUBST_MERGE_LIST - merge external lists to one complete list with #if... logic for R3up  
This documentation is copyright by SAP AG.
SAP E-Book

ABAP for send break message?

I like this one the best.
~Mike

> -----Original Message-----
> From: Rick Githens [mailto:rgithensZg...]
> Sent: Tuesday, November 27, 2001 1:20 PM
> To: 'SAP400 ListServer'
> Subject: ABAP for send break message?
>
>
> Fellow saplings,
>
> I vaguely recall an ABAP that was going around to "send a
> break message" to
> the SAPGUI . I believe it was pre-SAP on System i but I am
> unable to locate it
> (or more likely, I failed to save it in the first place).
> Also going on
> memory (and after all those Negra Modelo's at teched, it
> ain't what it used
> to be), I think it was posted originally as a way to warn
> active users that
> a backup was coming. Did anyone out there save this? Does
> anyone have one of
> their own?
>
> Thanks,
> Rick
>
> ------------------------ consolut Sponsor
> ---------------------~-->
> E-mail viral marketing - with FastTree
> Email to 50. You might reach 500.
> Unlimited use and tracking, $20/mo.
> http://www.fasttree.com/s/11.htm
> http://us.click.consolut.net/UGVLpD/MJRDAA/yigFAA/dkFolB/TM
> --------------------------------------------------------------
> -------~->
>
> DoNotReply@consolut.eu
>
> Your use of consolut is subject to
http://www.consolut.net



----------

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

PERFORM Short Reference   ABAP Short Reference  
This documentation is copyright by SAP AG.

Length: 4152 Date: 20240620 Time: 004149     sap01-206 ( 3 ms )