如何把长文本转化成一条数据

Reccently I do an interface that I will send data to external system. and we need input it to a data.

1. Requirement

Raw format
Input format

1，2，3，4，5，6，7

2. code

DATA: f_tdname TYPE tdobname,                                           
        tab_sap_script_text TYPE tline OCCURS 10,
        s_sap_script_text   TYPE tline,
        lw_name TYPE string.


CONCATENATE  sy-mandt it_data-AUFNR  into  f_tdname .
      CALL FUNCTION 'READ_TEXT'                         
   EXPORTING
        ID              = 'KOPF'
        LANGUAGE        = sy-langu
        NAME            = f_tdname
        OBJECT          = 'AUFK'

   TABLES
       lines    = tab_sap_script_text
   EXCEPTIONS
        ID              = 01
        LANGUAGE        = 02
        NAME            = 03
        NOT_FOUND       = 04
        OBJECT          = 05
        REFERENCE_CHECK = 06.

      IF sy-subrc = 0.
        loop at TAB_SAP_SCRIPT_TEXT  into s_sap_script_text .
          if sy-tabix ne 1.
            CONCATENATE   it_data-ORDERMARK ','   s_sap_script_text-tdline   into  it_data-ORDERMARK.
          else .
            it_data-ORDERMARK = s_sap_script_text-tdline.
          endif.

        endloop.

      ENDIF.
        it_data-sel = 'X'.
      MODIFY it_data TRANSPORTING  sel ORDERMARK.

3. Result