[ABAP] Dateneingabe mit cl_demo_input

DATA: lv_carrid TYPE sflight-carrid VALUE 'AA'.
DATA: lv_date TYPE dats VALUE '20181231'.
DATA: lv_ok TYPE abap_bool VALUE abap_true.

* Eingabefelder
cl_demo_input=>add_field( EXPORTING
                            text  = 'Fluggesellschaft:'
                          CHANGING
                            field = lv_carrid ).

cl_demo_input=>add_field( EXPORTING
                            text  = 'Datum:'
                          CHANGING
                            field = lv_date ).

* Trennzeile
cl_demo_input=>add_line( ).

cl_demo_input=>add_field( EXPORTING
                            text        = 'Check:'
                            as_checkbox = abap_true
                          CHANGING
                            field       = lv_ok ).

* Eingabe anfordern
cl_demo_input=>request( ).

WRITE: / lv_carrid.
WRITE: / lv_date.
WRITE: / lv_ok.