[57966] in SAPr3-news
Re: Was ist das für ein Module?
daemon@ATHENA.MIT.EDU (Tobias Broeckelmann)
Tue Aug 29 07:27:37 2006
To: sapr3-news@mit.edu
Date: Tue, 29 Aug 2006 13:27:23 +0200
From: "Tobias Broeckelmann" <news.tbroeckelmann@viega.de>
Message-ID: <ed1bl9$k14$1@news.dtag.de>
"Wolfgang Braig" <w.braig@gmx.de> schrieb
[...]
> Ich würde gerne die aktuell ausgeführten Transaktionen eines User listen,
> [...]
Mit dem unten aufgelisteten Coding kannst du die über SM04 angezeigten
Informationen für alle User selektieren. Mit einem Loop über die
USR_LISTE_GLOBAL
mit Beschränkung auf einen Usernamen bekommst du alle seine aktuell
aufgerufenen
Transaktionen.
Hope to help
Tobias
DATA: BEGIN OF USR_LISTE_GLOBAL OCCURS 0, "Hilfstabelle
INSTANCE LIKE RFCHOSTS-RFCDEST. "Alle aktiven User
INCLUDE STRUCTURE UINFO.
DATA: BEGIN OF DESTI OCCURS 100.
INCLUDE STRUCTURE RFCHOSTS.
DATA: END OF DESTI.
DATA: BEGIN OF USR_LISTE OCCURS 1000.
INCLUDE STRUCTURE UINFO.
DATA: END OF USR_LISTE.
DATA: HELP LIKE USR_LISTE_GLOBAL-INSTANCE, ERROR(1).
DATA: MSG(80) TYPE C.
CLEAR: USR_LISTE_GLOBAL, USR_LISTE_GLOBAL[].
CALL FUNCTION 'RFC_GET_LOCAL_DESTINATIONS'
TABLES
LOCALDEST = DESTI.
LOOP AT DESTI.
CLEAR: USR_LISTE, USR_LISTE[].
CALL FUNCTION 'THUSRINFO' DESTINATION DESTI
TABLES USR_TABL = USR_LISTE
EXCEPTIONS COMMUNICATION_FAILURE = 17
MESSAGE MSG.
IF SY-SUBRC = 17.
USR_LISTE_GLOBAL-INSTANCE = '????'.
ELSE.
USR_LISTE_GLOBAL-INSTANCE = DESTI-RFCDEST.
ENDIF.
LOOP AT USR_LISTE.
MOVE-CORRESPONDING USR_LISTE TO USR_LISTE_GLOBAL.
MOVE: USR_LISTE_GLOBAL-HOSTADR+0(1) TO
USR_LISTE_GLOBAL-TERMINAL+0(03),
USR_LISTE_GLOBAL-HOSTADR+1(1) TO
USR_LISTE_GLOBAL-TERMINAL+3(03),
USR_LISTE_GLOBAL-HOSTADR+2(1) TO
USR_LISTE_GLOBAL-TERMINAL+6(03),
USR_LISTE_GLOBAL-HOSTADR+3(1) TO
USR_LISTE_GLOBAL-TERMINAL+9(03).
APPEND USR_LISTE_GLOBAL.
ENDLOOP.
ENDLOOP.
