Re: write internal table as text file on application server

Hi sachin,

Please try the following -

DATA: lv_file_name type string.

FIELD-SYMBOLS: <data>   TYPE ANY TABLE,
                 <line>   TYPE any.

"Convert internal table data into string data

  loop at lt_tab into wa_tab.

      concatenate lv_file_str  wa_tab-col1  wa_tab-col2 ....  into lv_file_str separated by ';'.

  endloop.

  "Convert String to Xstring
  CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
    EXPORTING
      text   = lv_file_str
    IMPORTING
      buffer = lv_xstring
    EXCEPTIONS
      failed = 1
      OTHERS = 2.

  "Convert Xstring to Binary to Save the data into the Application Server
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      buffer     = lv_xstring
    TABLES
      binary_tab = lt_b_data.

"Save the Data file in the Application Server
    ASSIGN lt_b_data TO <data>.

    OPEN DATASET lv_file_name FOR OUTPUT IN BINARY MODE.
    IF sy-subrc = 0.
      LOOP AT <data> ASSIGNING <line>.
        TRANSFER <line> TO lv_file_name.
      ENDLOOP.

      CLOSE DATASET lv_file_name.
    ENDIF.

Let me know if you have any doubts in this.

Regards,

Rachna