Spliting internal table into multiple files

Question

hi, i have a quick question and im new in abap.
lets say i have an internal table gt_output and it has 10 fields and each fields are filled with weekly data.lets say i have 5 rows of data. how  do i split the column/fields so that every field can become one text file?
thank you.

Answer 1

So if you're internal table has 10 columns, you need 10 files. If you have 50 columns you need 50 files.
a possible soultion would be:
data: gt_string type table of string.
data: wa_string type string.
data: gv_file type string.
field-symbols: <fs_field> type any.
loop at gt_output into wa_output.
  do.
    assign component sy-index of structure wa_output to <fs_field>.
    if sy-subrc ne 0.
      exit.
    endif.
    concatenate 'c:\file_' sy-index '.txt' into gv_file.
    wa_string = <fs_field>.
    clear gt_string[].
    append wa_string to gt_string.
    call method cl_gui_frontend_services=>gui_download
      exporting
        filename                = gv_file
        append                  = 'X'
        filetype                = 'ASC'
      changing
        data_tab                = gt_string[]
      exceptions
        file_write_error        = 1
        no_batch                = 2
        gui_refuse_filetransfer = 3
        invalid_type            = 4
        no_authority            = 5
        unknown_error           = 6
        header_not_allowed      = 7
        separator_not_allowed   = 8
        filesize_not_allowed    = 9
        header_too_long         = 10
        dp_error_create         = 11
        dp_error_send           = 12
        dp_error_write          = 13
        unknown_dp_error        = 14
        access_denied           = 15
        dp_out_of_memory        = 16
        disk_full               = 17
        dp_timeout              = 18
        file_not_found          = 19
        dataprovider_exception  = 20
        control_flush_error     = 21
        not_supported_by_gui    = 22
        error_no_gui            = 23
        others                  = 24.
    if sy-subrc <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    endif.
  enddo.
endloop.