*----------------------------------------------------------------------*
*   INCLUDE LY96_LIST_TO_EXCELF47                                      *
*----------------------------------------------------------------------*

DEFINE XASSIGN.
  SYSTEM-CALL ASSIGN &1 TO &2 TYPE 'X'.
END-OF-DEFINITION.

FORM FILE_DOWNLOAD TABLES DATA_TAB
                    USING FILENAME FILESIZE.
DATA: SFILENAME TYPE STRING.
  SFILENAME = FILENAME.
  CALL FUNCTION 'GUI_DOWNLOAD'
       EXPORTING
            BIN_FILESIZE            = FILESIZE
            FILENAME                = SFILENAME
            FILETYPE                = 'BIN'
       TABLES
            DATA_TAB                = DATA_TAB
       EXCEPTIONS
            FILE_OPEN_ERROR         = 1
            FILE_WRITE_ERROR        = 2
            INVALID_FILESIZE        = 3
            INVALID_TABLE_WIDTH     = 4
            INVALID_TYPE            = 5
            NO_BATCH                = 6
            UNKNOWN_ERROR           = 7
            GUI_REFUSE_FILETRANSFER = 8
            OTHERS                  = 9.
ENDFORM.