*&---------------------------------------------------------------------*
*& Report YTESTT03 *
*& *
*&---------------------------------------------------------------------*
*& Dynamic load customer table *
*& Terry *
*&---------------------------------------------------------------------*
REPORT ytestt03.
TABLES: dd02l.
*TYPE-POOLS: abap.
*INCLUDE ole2incl.
DATA: generic_table_wa TYPE REF TO data.
FIELD-SYMBOLS: <p_tab_wa> TYPE ANY TABLE .
PARAMETERS: pa_tab LIKE dd02l-tabname.
*-----report start
START-OF-SELECTION.
*-----creat dynamic table structure
CREATE DATA generic_table_wa TYPE TABLE OF (pa_tab).
ASSIGN generic_table_wa->* TO <p_tab_wa>.
*-----get dynamic table content
SELECT * INTO TABLE <p_tab_wa>
FROM (pa_tab).
*------creat work area for dynamic table
DATA: it_wa TYPE REF TO data.
FIELD-SYMBOLS: <dyn_wa>.
CREATE DATA it_wa LIKE LINE OF <p_tab_wa>.
ASSIGN it_wa->* TO <dyn_wa>.
*-----write out the dynamic table
FIELD-SYMBOLS: <dyn_field>.
LOOP AT <p_tab_wa> INTO <dyn_wa>.
DO.
ASSIGN COMPONENT sy-index
OF STRUCTURE <dyn_wa> TO <dyn_field>.
IF sy-subrc <> 0.
EXIT.
ENDIF.
IF sy-index = 1.
WRITE:/ <dyn_field>.
ELSE.
WRITE: / <dyn_field>.
ENDIF.
ENDDO.
ENDLOOP.