[ABAP] Zu einem Datum spezielle Kalenderwerte ausgeben

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