Hi,
It's a Very starnge problem.We are trying to extract data(using Function Module) from a source database table XXXX which has millions of records to BW.The Problem is FM takes 3-4 hours to extract the records.The Code is:
if not l_r_tdname is initial.
OPEN CURSOR WITH HOLD S_CURSOR FOR
SELECT TDOBJECT TDNAME TDID TDSPRAS TDLDATE
FROM XXXX
WHERE TDNAME IN L_R_TDNAME
and TDOBJECT EQ 'VBBK'
and TDID EQ 'Z139'
and TDSPRAS EQ 'EN'.
else.
OPEN CURSOR WITH HOLD S_CURSOR FOR
SELECT TDOBJECT TDNAME TDID TDSPRAS TDLDATE
FROM XXXX
WHERE TDLDATE IN L_R_TDLDATE
and TDOBJECT EQ 'VBBK'
and TDID EQ 'Z139'
and TDSPRAS EQ 'EN'
and ( TDMACODE1 EQ 'VA01SAPMV45A' OR
TDMACODE1 EQ 'VA02SAPMV45A' ).
endif.
ENDIF. "First data package ?
FETCH NEXT CURSOR S_CURSOR
APPENDING CORRESPONDING FIELDS
OF TABLE E_T_DATA
PACKAGE SIZE S_S_IF-MAXSIZE.
IF SY-SUBRC 0.
CLOSE CURSOR S_CURSOR.
RAISE NO_MORE_DATA.
ENDIF.
loop at e_t_data.
CALL FUNCTION 'READ_TEXT'
EXPORTING
ID = e_t_data-tdid " Site type
LANGUAGE = e_t_data-tdspras " language
NAME = e_t_data-tdname " sales order
OBJECT = e_t_data-tdobject " text object
TABLES
LINES = it_tline
.
IF SY-SUBRC 0.
ENDIF.
As you see in the FM,
Problem-1->
In the beginning of FM,data is fetched from database table XXXX and loaded to CURSOR and then to an internal table E_T_DATA.It takes lot of time(2 hours e.g for 1 million records).Now if during this time(while fetching of data happens) some user deletes some entries in database table XXXX.Then the data records of internal table E_T_DATA and database table XXXX (for same selection) does not match.So it gives an error. Can you please provide any solution for this so that we may stop error?
Problem-2>
Can anyone provide a modified code to reduce the data fetching time from data base XXXX?
I will really be thankful for the responses and provide proper credit.
Bluesky
