Nose si te servirá ni el motivo de hacer esto, haz
SELECT SINGLE * FROM dd03m
WHERE tabname = l_tabla AND
ddlanguage = 'S' AND
ddtext IS not NULL.
Y te devolverá el nombre de los campos, el meterlos en otra estructura¿? nose si te la quieres crear en tiempo de ejecución, si es asi es algo como
DATA: CODE TYPE TABLE OF RSSOURCE-LINE,
LINEA LIKE RSSOURCE-LINE.
DATA: VARIABLE(10). "ESTA VARIABLE LLEVA EL NOMBRE DE LA TABLA.
VARIABLE = 'ZAPR'.
CLEAR LINEA.
CONCATENATE 'TABLES: ' VARIABLE INTO LINEA SEPARATED BY SPACE.
CONCATENATE LINEA '.' INTO LINEA.
APPEND LINEA TO CODE.
CLEAR LINEA.
CONCATENATE 'DATA TI_' VARIABLE INTO LINEA.
CONCATENATE LINEA 'LIKE' VARIABLE INTO LINEA SEPARATED BY SPACE.
CONCATENATE LINEA 'OCCURS 0 WITH HEADER LINE.' INTO LINEA SEPARATED BY
SPACE..
APPEND LINEA TO CODE.
INSERT REPORT 'ZREPORTDINAMICHR' FROM CODE.
Espero que te sea de ayuda.
Un saludo al foro!
|