GUI Download Example

 REPORT ztest_gui_download.

TABLES: makt.

DATA: gt_makt TYPE TABLE OF makt,
      gw_makt TYPE makt.
DATA: gv_filename TYPE string.

SELECT-OPTIONS: so_matnr FOR makt-matnr MEMORY ID mat,
                so_spras FOR makt-spras.


START-OF-SELECTION.
  gv_filename = 'd:.xls'.

  SELECT * FROM makt
    INTO CORRESPONDING FIELDS OF TABLE gt_makt
    WHERE matnr IN so_matnr
    AND   spras IN so_spras.
  IF sy-subrc EQ 0.
    LOOP AT gt_makt INTO gw_makt.

      WRITE: / gw_makt-matnr,
               gw_makt-spras,
               gw_makt-maktx,
               gw_makt-maktg.
    ENDLOOP.
  ENDIF.

  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename              = gv_filename
      filetype              = 'ASC'
      write_field_separator = 'X'
    TABLES
      data_tab              = gt_makt[]
    EXCEPTIONS
      file_open_error       = 1
      file_write_error      = 2
      OTHERS                = 3.


  IF sy-subrc EQ 0.
    SKIP.
    WRITE: / 'Transfer has been done.'.
  ELSE.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.