* Ermittlung der Anmeldedaten incl. des Rechnernamens
TRY.
DATA(lv_server_info) = NEW cl_server_info( ).
* Server related information, Liste aller Sessions
* SERVER_NAME Name des Applikations-Servers
* LOGON_HDL Anmeldungs-Schlüssel
* LOGON_ID Anmeldungs-ID
* SESSION_HDL Backend-Session-Handle
* USER_NAME Benutzer-ID
* LOGON_TYPE Typ der Anmeldung
* LOGON_SUB_TYPE Zusatzinformation zum Anmeldungs-Typ
* TENANT Name des Mandanten
* REQUEST_TIME Zeit-Stempel (Anzahl Sekunden seit dem 1.1.1979)
* MEMORY In Extended Memory (EM) belegter Speicher
* LOCATION_INFO Informationen über den Client-Rechner des Benutzers
* APPLICATION Anwendung
* APPLICATION_INFO Zusatzinformationen zur Anwendung
* RFC_HDL Conversation-ID
* RFC_TYPE RFC Typ
* TRACE Trace-Level
* PRIORITY Priorität
* MEMORY_BRUTTO In Extended Segments (ES) belegter Speicher
* MEMORY_ABAP Von der ABAP-VM belegter Speicher
* MEMORY_HYPER Größe des Session übergreifenden Speichers
* MEMORY_HEAP In Prozess lokalem Heap belegter Speicher
* OPEN_TASKS Offene Aufgaben (open Tasks) dieser Session
* ACT_PROGRAM Name des Hauptprogrammes
* WEBSOCKET_HANDLE WebSocket-Handle
DATA(it_session_list) = lv_server_info->get_session_list( tenant = sy-mandt ).
cl_demo_output=>write_data( it_session_list ).
* HTML-Code vom Demo-Output holen
DATA(lv_html) = cl_demo_output=>get( ).
* Daten im Inline-Browser im SAP-Fenster anzeigen
cl_abap_browser=>show_html( EXPORTING title = 'CL_SERVER_INFO'
html_string = lv_html
container = cl_gui_container=>default_screen ).
* cl_gui_container=>default_screen erzwingen
WRITE: space.
CATCH cx_root INTO DATA(e_txt).
WRITE: / e_txt->get_text( ).
ENDTRY.