弹出保存文件、打开文件对话框

PARAMETERS:p_file LIKE rlgrap-filename OBLIGATORY.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file. "弹出选择文件对话框
  CALL FUNCTION ‘WS_FILENAME_GET‘
    EXPORTING
*     DEF_FILENAME     = ‘ ‘
      def_path         = ‘C:\‘
          "Structure of MASK: ,<text>,<FILTERGROUP>.
          "Structure of FILTERGROUP: <filter>;<filter>*
      mask             = ‘,Excel File,*.xls;*.xlsx;*.txt.‘
      title            = ‘Window Title:请选择文件‘
          "弹出框的模式 S -- 用来保存文件 O -- 用来打开文件
      MODE             = ‘S‘
    IMPORTING
      filename         = p_file
*     RC               =
    EXCEPTIONS
      INV_WINSYS       = 1
      NO_BATCH         = 2
      SELECTION_CANCEL = 3"如果用户取消了对话框
      SELECTION_ERROR  = 4
      OTHERS           = 5.

上面函数已过时，可以分别是使用以下两个方法代替：

 DATA:l_obj TYPE REF TO cl_gui_frontend_services.
  CREATE OBJECT l_obj.
  CALL METHOD l_obj->file_open_dialog
    EXPORTING
      file_filter       = ‘.txt‘
      initial_directory = ‘C:\data‘
    CHANGING
      file_table        = it_file
      rc                = l_rc.

 DATA:l_obj TYPE REF TO cl_gui_frontend_services.
  CREATE OBJECT l_obj.
  CALL METHOD l_obj->file_save_dialog
    EXPORTING
      file_filter       = ‘.pdf‘
      initial_directory = ‘C:\data‘
    CHANGING
      filename          = l_name
      path              = l_path
      fullpath          = l_fpath
      user_action       = l_rc.