Agregar columna a tabla dinámica.
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.
|