at selection-screen on value-request for pc_file.
  call function 'WS_FILENAME_GET'
    exporting
      def_filename '*.TXT'
      def_path     'D:\'
      mode         = 'O'
      title        = 'UPLOAD'
    importing
      filename     = pc_file
    exceptions
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      others           = 5.
  case sy-subrc.
    when 0.
    when others.
      exit.
  endcase. 

Start-of-selection. 

data:filename type string.
     filename = pc_file.

 call function 'GUI_UPLOAD'
   exporting
     filename            = filename
     has_field_separator = 'X'
   tables
     data_tab            = tab
   exceptions
     file_open_error     = 1. 

 

posted on 2018-12-24 17:13  ricoo  阅读(402)  评论(0编辑  收藏  举报