* Benutzereingabe: Einzelfeld oder
* Felder mit Leerzeichen getrennt
PARAMETERS: pa_token TYPE c LENGTH 70.
* Altbekannte Variablen
DATA: gr_cx TYPE REF TO cx_root,
gt_felder TYPE stringtab,
gt_sbook TYPE TABLE OF sbook,
gd_message TYPE string.
* Aufbau der dynamischen Token-Tabelle
APPEND pa_token TO gt_felder.
* Lesen mit dynamischen Tokens
TRY.
SELECT (gt_felder)
FROM sbook
INTO CORRESPONDING FIELDS OF TABLE gt_sbook.
WRITE: / 'Insgesamt ', sy-dbcnt, ' Einträge gefunden'.
* Ausnahme behandeln
CATCH cx_sy_dynamic_osql_semantics cx_sy_open_sql_db
INTO gr_cx.
gd_message = gr_cx->get_text( ).
MESSAGE gd_message TYPE 'E'.
ENDTRY.
