How to write any table (example2)

REPORT zsl_ex_7.

SELECTION-SCREEN: BEGIN OF BLOCK myblock WITH FRAME TITLE text-001.

PARAMETERS: table TYPE c LENGTH 30 DEFAULT 'SPFLI',
where TYPE c LENGTH 70 DEFAULT 'carrid = ''AA'''.

SELECTION-SCREEN:END OF BLOCK myblock.

DATA: data_ref TYPE REF TO data.

FIELD-SYMBOLS: ‹tab› TYPE ANY TABLE.

*&--------------------------------------------------------------------*
START-OF-SELECTION.
*&--------------------------------------------------------------------*
CREATE DATA data_ref TYPE TABLE OF (table).
ASSIGN data_ref->* TO ‹tab›.
SELECT * FROM (table) INTO TABLE ‹tab› WHERE (where).

PERFORM write_table USING ‹tab›.