HI,
Check out the below program..Here "'F4_DXFILENAME_TOPRECURSION' is used to get the F4 help for the file in application Server.Also here, The data is transferred to the internal table and then to the Database table.
CODE:
report z_aru_banks1.
----
*TABLES
----
tables: zcust_master2.
----
*INTERNAL TABLES
----
data: begin of itab1 occurs 0,
zcustid like zcust_master2-zcustid,
zcustname like zcust_master2-zcustname,
zaddr like zcust_master2-zaddr,
zcity like zcust_master2-zcity,
zstate like zcust_master2-zstate,
zcountry like zcust_master2-zcountry,
zphone like zcust_master2-zphone,
zemail like zcust_master2-zemail,
zfax like zcust_master2-zfax,
zstat like zcust_master2-zstat,
end of itab1.
----
*DATA DECLARATION
----
data: str(1000).
data : sr_dir type dxfields-longpath value 'E:\usr\sap\ECC\SYS\gen\dbg'.
data: file1 like dxfields-longpath.
----
*CONSTANTS DECLARATION
----
constants: con_tab value cl_abap_char_utilities=>horizontal_tab.
----
*CALLING FUNCTION MODULE 'F4_DXFILENAME_TOPRECURSION'
----
call function 'F4_DXFILENAME_TOPRECURSION'
exporting
i_location_flag = 'A'
i_server = ''
i_path = sr_dir
filemask = '.'
fileoperation = 'R'
importing
o_path = file1
exceptions
rfc_error = 1
error_with_gui = 2
others = 3
.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
----
*OPEN DATASET
----
open dataset file1 for input in text mode encoding default.
do.
read dataset file1 into str.
if sy-subrc ne 0.
exit.
else.
split str at con_tab into itab1-zcustid itab1-zcustname itab1-zaddr itab1-zcity itab1-zstate itab1-zcountry
itab1-zphone itab1-zemail itab1-zfax itab1-zstat.
append itab1.
insert zcust_master2 from itab1.
endif.
enddo.
----
*CLOSE DATASET
----
close dataset file1.
Hope this helps u,
Regards,
Arunsri
Bluesky
