fypoop

REPORT  ZTEST_XIN0917                           .

TYPES:BEGIN OF i_file ,
       col1 TYPE i ,
        col2(3) TYPE c,
        col3(5) TYPE c,
     END OF i_file.

DATA: itab_file TYPE i_file OCCURS 0 WITH HEADER LINE.

***用戶可看SAP幫助使用Download和upload的例##
***使用類彈出用戶對話框
  DATA :s_filedir    LIKE rlgrap-filename .
  DATA: s_filemask(20) TYPE  c VALUE   ',*.txt ,*.txt. '.
  DATA: s_filepath(60) TYPE  c.

itab_file-col1 = 1.
itab_file-col2 = 'aaa'.
itab_file-col3 = 'aaa'.

append itab_file.

***Get current direcotry
  CALL FUNCTION 'WS_QUERY'
    EXPORTING
      query  = 'CD'
    IMPORTING
      return = s_filepath.
*** get file name ***
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = space
      def_path         = s_filepath
      mask             = s_filemask
      mode             = 'O'
    IMPORTING
      filename         = s_filedir
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
  CHECK sy-subrc EQ 0. "User might cancel operation.
***如果文件后墜非.TXT加上后墜
  TRANSLATE s_filedir TO UPPER CASE.
  IF '.TXT' CN s_filedir .
    CONCATENATE s_filedir '.TXT' INTO s_filedir .
  ENDIF.
*** write data to file ****
  CALL FUNCTION 'WS_DOWNLOAD'
    EXPORTING
      filename         = s_filedir
      filetype         = 'DAT'
      mode             = 'A'
    TABLES
      data_tab         = itab_file
    EXCEPTIONS
      file_open_error  = 01
      file_write_error = 02
      invalid_type     = 03
      no_batch         = 04
      unknown_error    = 05.
  CASE sy-subrc.
    WHEN 0.
      MESSAGE i001(00) WITH 'Data have been write into file:'
                            s_filedir ',Please check!' .
    WHEN 1.
      MESSAGE i001(00) WITH 'Error while opening file:' s_filedir.
    WHEN 2.
      MESSAGE i001(00) WITH  'Error in writing file ' s_filedir.
    WHEN 3.
      MESSAGE i001(00) WITH  'invalid file type of ' s_filedir .
    WHEN OTHERS.
      MESSAGE i001(00) WITH  'unknown error occured'.
  ENDCASE.