* liest Tabelle SCAL_TT_DATE (Date table containing dates from 01011900 to 31129999) mit folgenden Werten:
* Kalenderjahr
* Kalenderquartal
* Kalendermonat
* Kalenderwoche
* Kalendertag
* Jahr Monat
* Jahr Quartal
* Jahr Woche
* Wochentag
* Datum für ersten Tag
* Erster Tag d. Monats
* Letzter Tag Monat
* Kalendertag des J.
* Tag des Jahres
SELECT SINGLE FROM i_calendardate AS i
FIELDS *
WHERE i~calendardate EQ @sy-datum
INTO @DATA(lv_cal).
IF sy-subrc = 0.
cl_abap_browser=>show_html( EXPORTING
title = 'aktuelle Kalenderdaten'
html_string = cl_demo_output=>new( )->write_data( lv_cal )->get( )
container = cl_gui_container=>default_screen ).
* cl_gui_container=>default_screen erzwingen
WRITE: space.
ENDIF.