hi,
This program is for splitting the data in the application server and loading it in the database...but only the accno is getting copied into the database other fields r blank..
please help me..
DATA: STR(10000).
constants: con_tab(1) type c value '#'.
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 : sr_dir TYPE dxfields-longpath VALUE 'E:\usr\sap\ECC\SYS\gen\dbg'.
data: FILE1 LIKE DXFIELDS-LONGPATH.
CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'
EXPORTING
I_LOCATION_FLAG = 'A'
I_SERVER = ''
I_PATH = sr_dir
FILEMASK = '.'
FILEOPERATION = 'R'
IMPORTING
O_LOCATION_FLAG =
O_SERVER =
O_PATH = FILE1
ABEND_FLAG =
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 FILE1 FOR INPUT IN TEXT MODE ENCODING DEFAULT.
do.
READ DATASET FILE1 INTO str.
if sy-subrc ne 0.
EXIT.
else.
*split str at '#' into itab1-zcustid itab1-zcustname itab1-zaddr itab1-zcity itab1-zstate itab1-zcountry itab1-zphone itab1-zemail itab1-zfax itab1-zstat.
split STR at con_tab into itab1-zcustid str.
split STR at con_tab into itab1-zcustname str.
split STR at con_tab into itab1-zaddr str.
split STR at con_tab into itab1-zcity str.
split STR at con_tab into itab1-zstate str.
split STR at con_tab into itab1-zcountry str.
split STR at con_tab into itab1-zphone str.
split STR at con_tab into itab1-zemail str.
split STR at con_tab into itab1-zfax str.
split STR at con_tab into itab1-zstat str.
append itab1.
insert zcust_master7 from itab1.
endif.
enddo.
CLOSE DATASET FILE1.