*----------------------------------------------------------------------*
***INCLUDE LY96_LIST_TO_EXCELF40 .
*----------------------------------------------------------------------*

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

FORM FILE_DOWNLOAD TABLES DATA_TAB
                    USING FILENAME FILESIZE.

  CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            BIN_FILESIZE            = FILESIZE
            FILENAME                = FILENAME
            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.