FUNCTION yfm_open_dialog.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(GV_PATHNAME) OPTIONAL
*" VALUE(GV_TITLE) TYPE C DEFAULT 'Select File'
*" VALUE(GV_MASK) DEFAULT ',*.*,*.*.'
*" CHANGING
*" VALUE(GV_PATHFILE)
*" EXCEPTIONS
*" GV_CANCELED_BY_USER
*" GV_SYSTEM_ERROR
*"----------------------------------------------------------------------
DATA:
lv_pathfile LIKE /sapdmc/lsscreen-pathfile,
lv_pathname LIKE /sapdmc/lsscreen-pathname.
lv_pathfile = gv_pathfile.
lv_pathname = gv_pathname.
IF lv_pathname IS INITIAL.
CALL FUNCTION '/SAPDMC/LSM_PATH_FILE_SPLIT'
EXPORTING
pathfile = lv_pathfile
IMPORTING
pathname = lv_pathname
EXCEPTIONS
OTHERS = 1.
ENDIF.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = ' '
def_path = lv_pathname
mask = gv_mask " unbedingt erforderlich!
mode = 'O'
title = gv_title
IMPORTING
filename = lv_pathfile
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
CASE sy-subrc.
WHEN 0.
gv_pathfile = lv_pathfile.
WHEN 3.
RAISE gv_canceled_by_user.
WHEN OTHERS.
RAISE gv_system_error.
ENDCASE.
ENDFUNCTION.
|
"
" untuk menyimpan function
