Hallo Pmler,
ich hoffe das Thema ist noch aktuell:
In einem alten Projekt habe ich das mal mit einem Query gemacht.
Also 1. Zusatzfeld C(72) definieren.
2. Coding READ_TEXT incl. notwendiger Tabellen aufnehmen: Beispiel für Equipment:
Data: z_equi(18) type c,
z_tdid(4) type c,
z_tdsp type c,
z_tdobj(4) type c.
*data: ztext(72) type c.
DATA: BEGIN OF LLINE OCCURS 20.
INCLUDE STRUCTURE TLINE.
DATA END OF LLINE.
DATA: XNAME(70) type c.
xname = equi-equnr.
z_tdid = 'LTXT'.
z_tdsp = 'DE'.
z_tdobj = 'EQUI'.
clear ztext. refresh lline.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = z_tdid
LANGUAGE = z_tdsp
NAME = XNAME
OBJECT = 'EQUI'
* ARCHIVE_HANDLE = 0
* IMPORTING
* HEADER =
TABLES
LINES = LLINE
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 NE 0.
REFRESH LLINE.
ENDIF.
LOOP AT LLINE.
CASE SY-TABIX.
WHEN 2.
ztext = lline-tdline.
ENDCASE.
ENDLOOP.
Hoffe du kannst das verwenden
Gruß Wolfgang