* Suchhilfe PROGNAME einbinden
PARAMETERS: p_report TYPE varid-report MATCHCODE OBJECT progname DEFAULT sy-repid.
PARAMETERS: p_langu TYPE t002-spras DEFAULT sy-langu.
START-OF-SELECTION.
* Varianten des Reports in den Tabellen VARID (Variantenkatalog) und VARIT (Variantentexte) suchen
* die gefundenen Tabelleninhalte werden in der Ausgabetabelle it_variants als getrennte
* Strukturen V und VT gespeichert
SELECT FROM varid AS v
INNER JOIN varit AS vt ON ( v~report EQ vt~report AND v~variant EQ vt~variant )
FIELDS v~*, vt~*
WHERE v~mlangu = @p_langu
AND vt~langu = @p_langu
AND v~report = @p_report
INTO TABLE @DATA(it_variants).
IF sy-subrc = 0.
* Hier Objekte für die Ausgabe hinzufügen
cl_demo_output=>write_data( it_variants ).
* 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 = |Varianten des Reports { p_report }|
html_string = lv_html
container = cl_gui_container=>default_screen ).
* cl_gui_container=>default_screen erzwingen
WRITE: space.
ELSE.
WRITE: / |Keine Varianten zu Report { p_report } gefunden.|.
ENDIF.