[58200] in SAPr3-news
Re: Mittteilung an einzelne User
daemon@ATHENA.MIT.EDU (Dirk Wilberg)
Wed Oct 4 03:28:06 2006
To: sapr3-news@mit.edu
Date: Wed, 4 Oct 2006 09:27:45 +0200
From: "Dirk Wilberg" <dwilberg@osborn.de>
Message-ID: <efvr3m$hl4$1@news.dtag.de>
<axel-1961@web.de> schrieb im Newsbeitrag
news:1159554901.846798.256810@c28g2000cwb.googlegroups.com...
rakalte schrieb:
> hallo zusammen, gibt es eine möglichkeit systemmeldungen an einzelne
> user zu adressieren? also nicht via sm02, sondern einen anderen weg?
>
> vielen dank im voraus.
>
> Rainer
Folgende Möglichkeit ist vielleicht die eleganteste. Einfach über die SE38
einen neuen Report (zum Beispiel 'ZPOPUP') anlegen, Quelltext wie folgt:
***********************************************************************
* Nachrichten an einzelne oder alle Benutzer senden (PopUp)
***********************************************************************
* Aufruf der Systemfunktion 'ThUsrInfo'
***********************************************************************
REPORT ZPOPUP .
PARAMETERS:
P_CLIENT LIKE SY-MANDT DEFAULT SY-MANDT,
P_USER LIKE SY-UNAME DEFAULT SY-UNAME,
P_MSG(128) DEFAULT 'Nachrichtentext' LOWER CASE.
DATA:
OPCODE_SEND_POP_UP(1) TYPE X VALUE 31,
MSG_LENGTH LIKE SY-INDEX,
LOC_CUT_BLANKS TYPE X VALUE 1.
DESCRIBE FIELD P_MSG LENGTH MSG_LENGTH.
CALL 'ThUsrInfo'
ID 'OPCODE' FIELD OPCODE_SEND_POP_UP
ID 'CLIENT' FIELD P_CLIENT
ID 'USR' FIELD P_USER
ID 'MSG' FIELD P_MSG
ID 'MSG_LEN' FIELD MSG_LENGTH
ID 'CUT_BLANKS' FIELD LOC_CUT_BLANKS.
IF SY-SUBRC = 0.
WRITE:/ 'Die Nachricht wurde gesendet an ', P_USER.
ELSE.
WRITE:/ 'Benutzer ', P_USER,' existiert nicht!'.
ENDIF.
Gruß,
Dirk Wilberg
