生成一个选择文件的窗体

DATA:l_filename LIKE rlgrap-filename,
l_mask LIKE rlgrap-filename.
DATA:path TYPE rlgrap-filename."存储路径
DATA l_filename_def TYPE rlgrap-filename .
p_def_filename l_filename_def .

CALL FUNCTION ‘WS_FILENAME_GET’
EXPORTING "相对程序输出
def_path = path
mask = l_mask
title = ‘请选择保存路径’
def_filename = p_def_filename
mode = ‘S’
IMPORTING "相对程序输入
filename = l_filename
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc = 0 .
g_destination = l_filename.
ENDIF.