[ABAP] Systeminfos anzeigen

* 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.

Kommentare sind geschlossen.