Download data from internal table to flat file.

Question

I need to download the data from Internal table to Flat file. can any one suggest how to do it? i suppose WS_Download OR GUI_DOWNLOAD.
but if it is please guide me how to use this.
is thre any other F.M. please provide the information.
Thanks in advance

Answer 1

Hi,
Try this,
* File download, uses older techniques but achieves a perfectly
* acceptable solution which also allows the user to append data to
* an existing file.
  PARAMETERS: p_file like rlgrap-filename.
* Internal table to store export data  
  DATA: begin of it_excelfile occurs 0,
   row(500) type c,
   end of it_excelfile.
  DATA: rc TYPE sy-ucomm,
        ld_answer TYPE c.
  CALL FUNCTION 'WS_QUERY'
       EXPORTING
            query    = 'FE'  "File Exist?
            filename = p_file
       IMPORTING
            return   = rc.
  IF rc NE 0.                       "If File alread exists
    CALL FUNCTION 'POPUP_TO_CONFIRM'
      EXPORTING
*          TITLEBAR              = ' '
*          DIAGNOSE_OBJECT       = ' '
           text_question         = 'File Already exists!!'
           text_button_1         = 'Replace'
*          ICON_BUTTON_1         = ' '
           text_button_2         = 'New name'
*          ICON_BUTTON_2         = ' '
*          DEFAULT_BUTTON        = '1'
*          DISPLAY_CANCEL_BUTTON = 'X'
*          USERDEFINED_F1_HELP   = ' '
*          START_COLUMN          = 25
*          START_ROW             = 6
*          POPUP_TYPE            =
      IMPORTING
           answer                = ld_answer
*     TABLES
*         PARAMETER              =
      EXCEPTIONS
          text_not_found         = 1
          OTHERS                 = 2.
* Option 1: Overwrite
    IF ld_answer EQ '1'.
      CALL FUNCTION 'GUI_DOWNLOAD'
        EXPORTING
*            BIN_FILESIZE            =
             filename                = p_file        "File Name
             filetype                = 'ASC'
*       IMPORTING
*            FILELENGTH              =
        TABLES
            data_tab                = it_excelfile   "Data table
        EXCEPTIONS
            file_write_error        = 1
            no_batch                = 2
            gui_refuse_filetransfer = 3
            invalid_type            = 4
            OTHERS                  = 5.
      IF sy-subrc <> 0.
        MESSAGE i003(zp) WITH
                 'There was an error during Excel file creation'(200).
        exit. "Causes short dump if removed and excel document was open 
      ENDIF.
* Option 2: New name.
    ELSEIF ld_answer EQ '2'.
      CALL FUNCTION 'DOWNLOAD'
        EXPORTING
             filename            = p_file          "File name
             filetype            = 'ASC'           "File type
*             col_select          = 'X'            "COL_SELECT
*             col_selectmask      = 'XXXXXXXXXXXXXXXXXXXXXXXXXX'
*                                                   "COL_SELECTMASK
             filetype_no_show    = 'X'     "Show file type selection?
*       IMPORTING
*             act_filename        = filename_dat
        TABLES
             data_tab            = it_excelfile    "Data table
*            fieldnames          =
        EXCEPTIONS
             file_open_error     = 01
             file_write_error    = 02
             invalid_filesize    = 03
             invalid_table_width = 04
             invalid_type        = 05
             no_batch            = 06
             unknown_error       = 07.
    ENDIF.
  ELSE.                               "File does not alread exist.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
*          BIN_FILESIZE            =
           filename                = p_file         "File name
           filetype                = 'ASC'          "File type
*     IMPORTING
*          FILELENGTH              =
      TABLES
           data_tab                = it_excelfile   "Data table
      EXCEPTIONS
           file_write_error        = 1
           no_batch                = 2
           gui_refuse_filetransfer = 3
           invalid_type            = 4
           OTHERS                  = 5.
    IF sy-subrc <> 0.
      MESSAGE i003(zp) WITH
               'There was an error during Excel file creation'(200).
      exit. "Causes short dump if removed and excel document was open 
    ENDIF.
  ENDIF.
Regards,
Raghav