DATA: fname TYPE rlgrap-filename,
ftype TYPE rlgrap-filetype,
fsize TYPE i.
DATA: fname_p TYPE string,
fname_n TYPE string.
DATA: sfname_p TYPE string .
DATA: sfname LIKE rcgiedial-iefile.
sfname_p = './'.
DATA: r(1) TYPE c.
DATA: data_tab LIKE rcgrepfile OCCURS 10 WITH HEADER LINE. DATA: lines TYPE i.
CALL FUNCTION 'UPLOAD'
EXPORTING
filename = 'c:/'
filetype = 'BIN'
filetype_no_change = 'X'
IMPORTING
filesize = fsize
act_filename = fname
act_filetype = ftype
TABLES
data_tab = data_tab
EXCEPTIONS
conversion_error = 1
invalid_table_width = 2
invalid_type = 3.
fname_n = fname.
DO.
SPLIT fname_n AT '/' INTO fname_p fname_n.
SEARCH fname_n FOR '/'.
IF sy-subrc = 4.
EXIT.