How to generate .txt file from data in internal table

Question

Hi I am using the program below to load .txt file into SAP table.
I am moving the records from a .txt file into internal table final and then into ZOUT_CCFOBS table.
How do I load records from internal table final back to another .txt file with the same layout? Pls advice.
REPORT  ZOUP_LOAD_CCF_OBS.
TABLES: ZOUT_CCFOBS.
TYPES: BEGIN OF tline, "structure to store a line of each row
    line(1000) TYPE c,
END OF tline.
TYPES: BEGIN OF i_split, "structure to store split record of each row
      t_ZOTFACIL(100)    TYPE c,
      t_ZOTCCF(8)    TYPE c,
      t_ZOTOBSCAT(100)    TYPE c,
END OF i_split.
DATA: itab TYPE TABLE OF tline WITH HEADER LINE.
DATA: idat TYPE TABLE OF i_split WITH HEADER LINE.
DATA: final TYPE STANDARD TABLE OF ZOUT_CCFOBS WITH HEADER LINE.
DATA: file_str TYPE string.
DATA: c_fnh_mask TYPE dxfields-filemask VALUE '.',
      c_search_dir TYPE dxfields-longpath.
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
PARAMETERS p_file LIKE rlgrap-filename.                "file location
SELECTION-SCREEN END OF BLOCK a1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM f4_dxfilename USING p_file.
START-OF-SELECTION.
Download data from application server
  PERFORM download_data.
  file_str = p_file.
  LOOP AT itab.
    CLEAR idat.
this will split the line at every delimeter into single field
    SPLIT itab-line AT ',' INTO idat-t_ZOTFACIL
    idat-t_ZOTCCF
    idat-t_ZOTOBSCAT.
    APPEND idat.
  ENDLOOP.
copying the internal table into final table which compatible with table tcurr
  LOOP AT idat.
    final-ZOTFACIL = idat-t_ZOTFACIL.
    final-ZOTCCF = idat-t_ZOTCCF.
    final-ZOTOBSCAT = idat-t_ZOTOBSCAT.
    APPEND final.
  ENDLOOP.
  LOOP AT final.
    MODIFY ZOUT_CCFOBS FROM final.
    IF sy-subrc EQ 0.
      MESSAGE S001(ZCURR).
    ELSE.
      MESSAGE A000(ZCURR).
    ENDIF.
  ENDLOOP.
FORM f4_dxfilename USING p_file.
addition TAICK 15/07/2008.
*maintain application server default search path.
  IF sy-sysid = 'BWP'.
    c_search_dir = '//rdmsbw/prd/data/output/all'.
  ELSEIF sy-sysid = 'BWQ'.
    c_search_dir = '//rdmsbw/uat/data/output/all'.
  ELSEIF sy-sysid = 'BWD'.
    IF sy-mandt = '900'.
      c_search_dir = '//rdmsbw/sit/data/output/all'.
    ELSE.
      c_search_dir = '//rdmsbw/dev/data/output/all'.
    ENDIF.
  ENDIF.
  DATA: wa_file LIKE dxfields-longpath.
  CLEAR: wa_file.
  CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'
    EXPORTING
      i_location_flag = 'A'
      i_server        = ' '
      i_path          = c_search_dir
      filemask        = c_fnh_mask
      fileoperation   = 'R'
    IMPORTING
      o_path          = wa_file
    EXCEPTIONS
      rfc_error       = 1
      error_with_gui  = 2
      OTHERS          = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    p_file = wa_file.
  ENDIF.
addition end TAICK 15/07/2008.
ENDFORM. " f4_dxfilename
FORM download_data .
  OPEN DATASET p_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
  DO.
    IF sy-subrc <> 0.
      exit.
    ENDIF.
    READ DATASET p_file INTO itab.
    if sy-subrc = 0.
      APPEND itab.
    clear itab.
    endif.
  ENDDO.
  CLOSE DATASET p_file.
  delete itab index 1. "remove column header
ENDFORM.                    " download_data
Edited by: RebekahMBB on Feb 20, 2012 12:56 PM

Answer 1

Hi I am using this piece of code to download my internal table into an .xls file on my pc.
FORM Z_CONVERT_EXCEL .
  "This part of code to add column name in the downloaded file.
  data : begin of int_head occurs 0,
  Filed1(20) type c,                     " Header Data
  end of int_head.
  int_head-Filed1 = 'ZOTOUS'.
  APPEND int_head.
  CLEAR int_head.
  int_head-Filed1 = 'ZOTOUS'.
  APPEND int_head.
  CLEAR int_head.
  int_head-Filed1 = 'ZOTOGCUR'.
  APPEND int_head.
  CLEAR int_head.
Select ZOTOUS ZOTSYORGU ZOTOGCUR from ZOUT_ORG_CURR into CORRESPONDING FIELDS OF TABLE itab.
  v_filetype = '.xls'. "I just manipulate the file name using XLS file type.
  v_filename = 'C:\Documents and Settings\00088592\Desktop\OUs automation\development'.
  CONCATENATE v_filename v_filetype INTO lv_filename.
  CALL FUNCTION 'GUI_DOWNLOAD'
   EXPORTING
        filename         = lv_filename
        filetype         = 'ASC'
      APPEND           = 'X'
        write_field_separator = 'X'
      CONFIRM_OVERWRITE = 'X'
   TABLES
        data_tab         = itab
        FIELDNAMES       = int_head
   EXCEPTIONS
        file_open_error  = 1
        file_write_error = 2
        OTHERS           = 3.
  IF sy-subrc <> 0.
  ENDIF.
ENDFORM.                    "Z_CONVERT_EXCEL
As you can see the code specifies the header row separately and appends it in int_head.
What if I have 76 fields or more? I cant be specifying each like that.
Is there any other way to do this? To move the 76 field headers into int_head?
Pls help.
Thanks!