Tabla interna Dinamica

Crear una tabla dinámica según selección.


DATA: it_dinami TYPE REF TO data."MI TABLA DINAMICA
DATA: error   TYPE REF TO cx_root.
DATA v_mensage TYPE string.
DATA object TYPE trobjtype.
DATA: gr_table TYPE REF TO cl_salv_table.
FIELD-SYMBOLS:  TYPE ANY TABLE .


*ingresando X tabla se visualiza sus datos.


PARAMETERS z(20) TYPE c.

SELECT SINGLE object INTO object FROM tadir
  WHERE object = 'TABL' AND obj_name = z.

IF sy-subrc NE 0.
  MESSAGE 'Tabla no existe' TYPE 'I'.
  STOP.
ENDIF.

TRY.
    CREATE DATA it_dinami TYPE STANDARD TABLE OF (z).
  CATCH cx_root INTO error.
    v_mensage = error->get_text( ).
*    v_mensage = error->get_longtext( ).
    WRITE : v_mensage.
ENDTRY.

ASSIGN it_dinami->* TO .

SELECT * FROM (z) INTO TABLE  UP TO 10 ROWS.

cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table
CHANGING t_table = [] ).

gr_table->display( ).