ABAP - Textos o comentarios pasarlos a una tabla interna

DATA: lt_lines TYPE STANDARD TABLE OF tline,

      ls_lines TYPE tline.

" Identificar el objeto de texto y el número de texto "

DATA(lv_obj_name) = 'EINE'.

DATA(lv_text_id) = 'NUM_PEDIDO'.

DATA(lv_text) TYPE string.

CALL FUNCTION 'READ_TEXT'

  EXPORTING

    id                      = lv_obj_name

    language                = sy-langu

    name                    = lv_text_id

  TABLES

    lines                   = lt_lines

  EXCEPTIONS

    id                      = 1

    language                = 2

    name                    = 3

    not_found               = 4

    object_not_found        = 5

    reference_check         = 6

    wrong_access_to_archive = 7

    OTHERS                  = 8.

IF sy-subrc = 0.

  " Concatenar las líneas de texto en una sola cadena "

  LOOP AT lt_lines INTO ls_lines.

    CONCATENATE lv_text ls_lines-tdline INTO lv_text SEPARATED BY space.

  ENDLOOP.

  " Almacenar el texto en una tabla interna "

  DATA(lt_textos) = VALUE #( ( texto = lv_text ) ).

ENDIF.