Convertir tabla de READ_TEXT a String

DATA: lt_pregunta  TYPE ish_t_tline,
        l_string     TYPE string,
        l_sep        TYPE char1 value ' '.

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      id       = ls_thead-tdid
      language = ls_thead-tdspras
      name     = ls_thead-tdname
      object   = ls_thead-tdobject
    TABLES
      lines    = lt_pregunta
    EXCEPTIONS
      OTHERS   = 0.

  PERFORM tabla_a_string TABLES lt_pregunta
                         USING  l_sep
                         CHANGING l_string.  

*&---------------------------------------------------------------------*
*&      Form  TABLA_A_STRING
*&---------------------------------------------------------------------*
FORM tabla_a_string  TABLES   p_table STRUCTURE tline
                     USING    p_sep "separador de lineas
                     CHANGING p_string.

  DATA: l_linea TYPE tline.
  DATA: l_cont  TYPE i,
        l_sep   TYPE char1.

  CLEAR p_string.
  LOOP AT p_table INTO l_linea.
    CHECK l_linea-tdline IS NOT INITIAL.
    CONDENSE l_linea-tdline.
    IF l_cont > 0.
      l_sep = p_sep.
    ENDIF.
    CONCATENATE p_string l_sep l_linea-tdline INTO p_string
             IN CHARACTER MODE
             RESPECTING BLANKS.
    CONDENSE p_string.
    ADD 1 TO l_cont.
  ENDLOOP.

ENDFORM.                    " TABLA_A_STRING