[eljota]

Hola,

lo que tienes que hacer es usar la funcion read_text de la siguiente forma:

* Aqui devolverla la info de lineas stxl
DATA: BEGIN OF LTEXT OCCURS 0.
INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.

* Aqui devolverla la info de cabecera stxh
DATA: BEGIN OF HTEXT.
INCLUDE STRUCTURE THEAD.
DATA: END OF HTEXT.


CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = SY-MANDT
ID = "el campo TDID"
LANGUAGE = "campo TDSPRAS"
NAME = "campo TDNAME"
OBJECT = "campo TDOBJECT"
* ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

* Luego lo muestras o ya veras que haces con el dato
LOOP AT LTEXT.
WRITE:/ LTEXT-TDLINE.
ENDLOOP.

salu2