abap 函数弹出磁盘文件选择界面

REPORT  ZDTEST_018.
DATA:pa_file(50).
* AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_file.
  CALL FUNCTION 'WS_FILENAME_GET'
   EXPORTING
     def_filename           = 'zl'     "?中文名
     def_path               = 'c:/'
     mask                   = ',Excel(*.xls),*.XLS.'
     mode                   = 's'
*     TITLE                  = ''
   IMPORTING
     filename               = pa_file
*     RC                     =
   EXCEPTIONS
     inv_winsys             = 1
     no_batch               = 2
     selection_cancel       = 3
     selection_error        = 4
     OTHERS                 = 5
            .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

 WRITE:'pa_file=',pa_file.