[ABAP] Leistungsverzeichnis lesen (MS_READ_SERVICES_FOR_BAPI)

PARAMETERS: p_lv TYPE tmp_spec-spec_no OBLIGATORY.

START-OF-SELECTION.

  SELECT SINGLE FROM tmp_spec
    FIELDS *
    WHERE spec_no = @p_lv
  INTO @DATA(lv_lv).

  DATA: it_bapiesll TYPE STANDARD TABLE OF bapiesll WITH DEFAULT KEY.
  DATA: it_bapieskl TYPE STANDARD TABLE OF bapieskl WITH DEFAULT KEY.

* Leistungsverzeichnis lesen (für BAPI GetDetail)
  CALL FUNCTION 'MS_READ_SERVICES_FOR_BAPI'
    EXPORTING
      packno     = lv_lv-packno
    TABLES
      t_bapiesll = it_bapiesll
      t_bapieskl = it_bapieskl
    EXCEPTIONS
      not_found  = 1
      OTHERS     = 2.

  IF sy-subrc = 0.
* Hier Objekte für die Ausgabe hinzufügen
    cl_demo_output=>write_data( lv_lv ).
    cl_demo_output=>write_data( it_bapiesll ).
    cl_demo_output=>write_data( it_bapieskl ).

* 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       = 'Leistungsverzeichnis'
                                          html_string = lv_html
                                          container   = cl_gui_container=>default_screen ).

* cl_gui_container=>default_screen erzwingen
    WRITE: space.
  ENDIF.