DATA: lv_id       TYPE thead-tdid,
      lv_language TYPE thead-tdspras,
      lv_name     TYPE thead-tdname,
      lv_object   TYPE thead-tdobject,
      lt_lines    TYPE STANDARD TABLE OF tline,
      ls_lines    LIKE LINE OF lt_lines.
 
* Assign your Text info
lv_id       = 'Z001'.
lv_language = sy-langu.
lv_name     = '1000000001'.
lv_object   = 'VBBK'.
 
CALL FUNCTION 'READ_TEXT'
  EXPORTING
    id                      = lv_id
    language                = lv_language
    name                    = lv_name
    object                  = lv_object
  TABLES
    lines                   = lt_lines
  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.
 
LOOP AT lt_lines INTO ls_lines.
  WRITE: / ls_lines-tdline.
ENDLOOP.
 
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com