Agregar columna a tabla dinámica.

[goyleo]

Hola! ¿Como están?.

Hice un programa que baja el contenido de las tablas dinamicamente a una archivo en el servidor, funciona bien.

El probrlema que tengo es que se requiere agregar un campo adelante de todos los archivos (el campo sy-sysid), como las estrucutras y tablas se crean dinamicamente no se como agregar el dato.

En el siguiente perform bajo la tabla al servidor.

*&---------------------------------------------------------------------*
*& Form F_BAJAR_ARCHIVO_SERVIDOR
*&---------------------------------------------------------------------*
FORM f_bajar_archivo_servidor
CHANGING pve_fs_table TYPE STANDARD TABLE "-----> Tabla generica con datos
pvi_le_zuinfotabla TYPE tye_zuinfotabla. "-----> En pvi_le_zuinfotabla-ztabname figura el nombre de la tabla.

DATA: l_filename TYPE string,
lv_string TYPE c LENGTH 70,
le_estructura TYPE REF TO data.

FIELD-SYMBOLS <fs_estructura> TYPE ANY.

*Se crea tabla dinámica.
CREATE DATA le_estructura TYPE (pvi_le_zuinfotabla-ztabname).
ASSIGN le_estructura->* TO <fs_estructura>.

CONCATENATE pvi_le_zuinfotabla-zpath_server
pvi_le_zuinfotabla-zsysid
'_' pvi_le_zuinfotabla-zmandt
'_' pvi_le_zuinfotabla-ztabname
'.TXT' INTO l_filename.

OPEN DATASET l_filename FOR OUTPUT IN BINARY MODE.
IF sy-subrc = 0.
LOOP AT pve_fs_table INTO <fs_estructura>.
TRANSFER <fs_estructura> TO l_filename.
ENDLOOP.

CLOSE DATASET l_filename.

ENDIF.