Skip to Content
0
Former Member
Dec 28, 2007 at 05:02 AM

regarding splitting

29 Views

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.