*&---------------------------------------------------------------------*
*& 生成一个选择文件的窗体(Diologbox)。
*& Function: WS_FILENAME_GET
*&---------------------------------------------------------------------*
DATA: gt_data TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE.
PARAMETERS:
p_file LIKE rlgrap-filename.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
PERFORM select_file.
FORM select_file .
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
mask = ',Excel Files,*.xls,All Files,*.csv,*.*.'
title = 'Test'
IMPORTING
filename = p_file
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc <> 0 AND sy-subrc <> 3.
MESSAGE e100(zdev) WITH 'error!'(007).
ENDIF.
ENDFORM. "select_file