*& Form FRM_F4_FILE
&---------------------------------------------------------------------
*& text
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_f4_file .
CALL FUNCTION ‘F4_FILENAME’
IMPORTING
file_name = p_file.
ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_READ_UPLOAD_FILE
&---------------------------------------------------------------------
*& text
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_read_upload_file .
DATA: lv_file_path TYPE string,
lv_file_length TYPE i,
lv_file_name TYPE dbmsgora-filename.
lv_file_path = p_file.
lv_file_name = p_file.
CALL FUNCTION ‘SPLIT_FILENAME’
EXPORTING
long_filename = lv_file_name "上传文件路径
IMPORTING
pure_filename = gv_file_name "文件名称
pure_extension = gv_file_type. "文件后缀
CALL FUNCTION ‘GUI_UPLOAD’
EXPORTING
filename = lv_file_path
filetype = ‘BIN’
IMPORTING
filelen