* Muster-LV-Nummer
PARAMETERS: p_spec TYPE tmp_spec-spec_no.
START-OF-SELECTION.
* Muster-Leistungsverzeichnis
SELECT SINGLE FROM tmp_spec
FIELDS *
WHERE spec_no = @p_spec
INTO @DATA(lv_spec).
IF sy-subrc = 0.
DATA(it_esll) = VALUE mmsrv_ml_esll( ).
* Leistungsverzeichnis lesen für Listausgabe im PM/PS
CALL FUNCTION 'MS_FETCH_SPEC_FOR_LIST'
EXPORTING
spec_packno = lv_spec-packno
TABLES
servicetab = it_esll
* LIMITTAB =
EXCEPTIONS
no_specification_exist = 1
OTHERS = 2.
IF sy-subrc = 0.
* Hier Objekte für die Ausgabe hinzufügen
cl_demo_output=>write_data( it_esll ).
* 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.
ENDIF.