This is a test message to test the length of the message box.
Login
ABAP Tipp Popup Onlineuser
Erstellt von Software-Heroes

ABAP Tipp - Popup an alle Onlineuser

373

Heute mal ein kurzer Tipp wie du alle aktuellen User auslesen kannst die im System angemeldet sind, was sie so treiben und wie du ihnen eine persönliche Nachricht zukommen lassen kannst.

Werbung


Jedem angemeldeten User im System eine Instant Nachricht zukommen lassen? Mit unserem heutigen kleinen Tipp sollte das für dich kein Problem mehr sein. Anders als Systemmeldungen werden die Nachrichten sofort angezeigt und nicht erst nach einer Useraktion eingeblendet.

 

Ermittlung der User

Für die Ermittlung der Online-User gibt es eine spezielle Kernel Funktion, mit der man die User einlesen kann. Dabei gibt es zwei Wege dies zu tun.

Im System gibt es dazu ein Beispiel von SAP, welches noch auf dem alten ABAP basiert. Hier wird mit einer Kopfzeile gearbeitet und nur ein Teil der User eingelesen. Im Folgenden das Beispiel aus dem Standard.


DATA: BEGIN OF usr_tabl OCCURS 10.
        INCLUDE STRUCTURE uinfo.
DATA: END OF usr_tabl.
DATA: opcode TYPE x VALUE 2.

CALL 'ThUsrInfo' 
 ID 'OPCODE' FIELD opcode
 ID 'TAB' FIELD usr_tabl-*sys*.

 

Der modernere Ansatz ohne Verwendung einer Kopfzeile und ohne den Zusatz der Kopfzeile liest mehr User ein, auch technische Verbindungen und RFC User. Mit dieser Variante musst du mehr Werte filtern, um die realen User zu ermitteln.


DATA: 
  lt_user TYPE STANDARD TABLE OF uinfo,
  ld_opcode TYPE x VALUE 2.

CALL 'ThUsrInfo' 
 ID 'OPCODE' FIELD ld_opcode
 ID 'TAB' FIELD lt_user.

 

Erzeugung des Popup

Mit dem einfachen Funktionsbaustein TH_POPUP kannst du am Ende dann die Nachricht an die User ausgeben oder eine spezielle Nachricht an eine gewählte User-ID. Zur Ausgabe aller User, muss der Baustein in einem Loop aufgerufen werden.


DATA: 
  ld_message TYPE c LENGTH 128 VALUE 'This is my instant message to you!'.

" Popup senden
CALL FUNCTION 'TH_POPUP'
  EXPORTING
    client         = sy-mandt
    user           = 'TEST_USER' "usr_tabl-bname
    message        = ld_message
  EXCEPTIONS
    user_not_found = 1.
IF sy-subrc <> 0.
ENDIF.

 

In der Anzeige des Popups wird das System eingeblendet von dem dieses aus gesendet wurde, ebenso wie die User-ID. Die Nachricht erfolgt aus dem SAP GUI und nicht direkt aus ABAP, damit sieht es wie ein normales Windows Fenster aus.

ABAP Beispiel für Popup

 

Fazit

Mit einigen wenigen Befehlen und dem richtigen Funktionsbaustein kann diese Funktion einfach von dir umgesetzt werden. Die Benachrichtigung sollte überlegt eingesetzt werden, weil du damit auch einen gewissen Schaden bei den Usern verursachen kannst, wenn die Popups in hoher Anzahl auftreten und damit auch stören.


Enthaltene Themen:
TippPopupOnline-User
Kommentare (0)



Und weiter ...

Bist du zufrieden mit dem Inhalt des Artikels? Wir posten jeden Freitag neuen Content im Bereich ABAP und unregelmäßig in allen anderen Bereichen. Schaue bei unseren Tools und Apps vorbei, diese stellen wir kostenlos zur Verfügung.


ABAP in der Praxis - Test Driven Development

Kategorie - ABAP

Wie funktioniert eigentlich TDD in der Praxis und gibt es einfache Beispiele zum Lernen in ABAP? In dieser Übung gehen wir auf den praktischen Teil ein.

24.09.2024

ABAP in der Praxis - Datenmenge zusammenführen

Kategorie - ABAP

Wir führen wir zwei unterschiedliche Datenmengen in ABAP zusammen, vor allem im Hinblick auf das Moderne ABAP? Eine praktische Aufgabe zum Thema.

17.09.2024

ABAP in der Praxis - Modern ABAP

Kategorie - ABAP

In dieser kleinen Aufgabe schauen wir uns bestehenden klassischen ABAP Quellcode an und versuchen diesen nach Modern ABAP zu optimieren.

27.08.2024

ABAP Tipp - Performance Datenfilterung

Kategorie - ABAP

Welche Anweisung verwendest du in ABAP zur Filterung von internen Tabellen und ist diese performant? In diesem Artikel mehr dazu.

13.08.2024

ABAP in der Praxis - Typkonvertierung

Kategorie - ABAP

Wie würdest du diese Typkonvertierung in ABAP durchführen? Ein Beispiel aus der Praxis und ein Lösungsvorschlag.

16.07.2024