* Name des R/3-Systems
DATA: lv_sy_sysid TYPE sy-sysid.
* Name des zentralen Datenbanksystems
DATA: lv_sy_dbsys TYPE sy-dbsys.
* Betriebssystem des Applikationsservers
DATA: lv_sy_opsys TYPE sy-opsys.
* Anmeldename des Benutzers
DATA: lv_sy_uname TYPE sy-uname.
* Release-Stand des R/3-Systems
DATA: lv_sy_saprl TYPE sy-saprl.
* Installationsnummer
DATA: lv_ev_inst_no TYPE cmorfcoth-instno.
* Releasestände der im System vorhandenen Softwarekomponenten
DATA: it_et_cvers TYPE STANDARD TABLE OF cvers WITH DEFAULT KEY.
* Holt Systeminfos
CALL FUNCTION 'SCSI_GET_SYSTEM_INFO'
IMPORTING
sy_sysid = lv_sy_sysid
sy_dbsys = lv_sy_dbsys
sy_opsys = lv_sy_opsys
sy_uname = lv_sy_uname
sy_saprl = lv_sy_saprl
ev_inst_no = lv_ev_inst_no
TABLES
et_cvers = it_et_cvers.
cl_demo_output=>write_data( lv_sy_sysid ).
cl_demo_output=>write_data( lv_sy_dbsys ).
cl_demo_output=>write_data( lv_sy_opsys ).
cl_demo_output=>write_data( lv_sy_uname ).
cl_demo_output=>write_data( lv_sy_saprl ).
cl_demo_output=>write_data( lv_ev_inst_no ).
cl_demo_output=>write_data( it_et_cvers ).
* 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 = 'Daten'
html_string = lv_html
container = cl_gui_container=>default_screen ).
* cl_gui_container=>default_screen erzwingen
WRITE: space.