Table Control Dinamico

[beltsoft]

Hoal te anexo un ejemplo de como generar un table control dinamico espero te sirva como referencia

REPORT zdyn_table_display.
PARAMETERS: p_table TYPE tabname OBLIGATORY,
p_rows TYPE I.

* Creacion de la tabla dinamica

DATA: lv_dref TYPE REF TO data.
FIELD-SYMBOLS: <fs_table> TYPE STANDARD TABLE.
DATA: lv_table TYPE string.

START-OF-SELECTION.

*Crear la tabla interna de forma dinamica

CREATE DATA lv_dref TYPE TABLE OF (p_table).
ASSIGN lv_dref->* TO <fs_table>.
IF sy-subrc EQ 0.
EXIT.
ENDIF.
data i type i.

* SELECCION DE DATOS

SELECT *
FROM (p_table)
UP TO p_rows ROWS
INTO TABLE <fs_table>.

CONCATENATE 'Table contents : ' p_table INTO lv_table.

* Por ultimo mostrar el table control

CALL FUNCTION 'STC1_FULLSCREEN_TABLE_CONTROL'
EXPORTING
header = lv_table
tabname = p_table
no_button = space
TABLES
table = <fs_table>
EXCEPTIONS
no_more_tables = 1
too_many_fields = 2
nametab_not_valid = 3
handle_not_valid = 4
OTHERS = 5.
IF sy-subrc EQ 0.
EXIT.
ENDIF.

Es todo acabamos de crear un table control dinamico