READ_TEXT
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(CLIENT) LIKE SY-MANDT DEFAULT SY-MANDT
*" VALUE(ID) LIKE THEAD-TDID
*" VALUE(LANGUAGE) LIKE THEAD-TDSPRAS
*" VALUE(NAME) LIKE THEAD-TDNAME
*" VALUE(OBJECT) LIKE THEAD-TDOBJECT
*" VALUE(ARCHIVE_HANDLE) LIKE SY-TABIX DEFAULT 0
*" VALUE(LOCAL_CAT) DEFAULT SPACE
*" EXPORTING
*" VALUE(HEADER) LIKE THEAD STRUCTURE THEAD
*" VALUE(OLD_LINE_COUNTER) TYPE THEAD-TDTXTLINES
*" TABLES
*" LINES STRUCTURE TLINE
*" EXCEPTIONS
*" ID
*" LANGUAGE
*" NAME
*" NOT_FOUND
*" OBJECT
*" REFERENCE_CHECK
*" WRONG_ACCESS_TO_ARCHIVE
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = SY-MANDT " Mandante
id = <fs_txtname>-lv_id " ID del testo da leggere
language = SY-langu " Lingua del testo da leggere
name = <fs_txtname>-lv_name " Nome del testo da leggere
object = 'TEXT' " Oggetto del testo da leggere
TABLES
LINES = lt_text " Righe del testo letto
EXCEPTIONS
id = 1 " ID testo non valida
language = 2 " Lingua non valida
name = 3 " Nome testo non valido
not_found = 4 " Testo non trovato
object = 5 " Oggetto testo non valido
reference_check = 6 " Catena riferimenti interrotta
wrong_access_to_archive = 7 " Archive-Handle non consentito per l'accesso
others = 8
.
DATA(lv_text) = REDUCE string( INIT init_text TYPE string
FOR ls_text IN lt_text
NEXT init_text = |{ init_text } { ls_text-tdline }| ) .