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.