[ABAP] Statusinformationen des ICMAN lesen

DATA: lv_info_data TYPE icm_info.
DATA: it_servlist TYPE STANDARD TABLE OF icm_sinfo2 WITH DEFAULT KEY.
DATA: it_thrlist TYPE STANDARD TABLE OF icm_thrlst WITH DEFAULT KEY.
DATA: it_servlist3 TYPE STANDARD TABLE OF icm_sinfo3 WITH DEFAULT KEY.

* Statistikdaten des ICM lesen
CALL FUNCTION 'ICM_GET_INFO2'
  IMPORTING
    info_data          = lv_info_data
  TABLES
    servlist           = it_servlist
    thrlist            = it_thrlist
    servlist3          = it_servlist3
  EXCEPTIONS
    icm_error          = 1
    icm_timeout        = 2
    icm_not_authorized = 3
    OTHERS             = 4.

IF sy-subrc = 0.
* Hier Objekte für die Ausgabe hinzufügen
  cl_demo_output=>write_data( lv_info_data ).
  cl_demo_output=>write_data( it_servlist ).
  cl_demo_output=>write_data( it_thrlist ).
  cl_demo_output=>write_data( it_servlist3 ).

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