abap code in bw start routine

19 Views

Hi

i need to reload the master data with out FM, i putted the comment on fm and relaod the data, now i having a problem, loading process is slow now as compair to before, when i was using with FM.

i checked the mange on data target, it is show 1123455 in transfer column and 0 in added column below is the start routine,

Please help me to fix that problem

IF NOT DATAPAK[] IS INITIAL.

LOOP AT DATAPAK INTO S_DATAPAK.

CLEAR V_INDEX.

V_INDEX = SY-TABIX.

IF S_DATAPAK-/BIC/ABRETPRI CO ' 0123456789.'.
CLEAR: V_AMOUNT, V_PRC.
V_AMOUNT = S_DATAPAK-/BIC/ABRETPRI.
CALL FUNCTION 'RSAR_CURRENCY_CONVERT'
EXPORTING
I_CURRENCY = S_DATAPAK-CURRENCY
CHANGING
C_AMOUNT = V_AMOUNT.
.
V_PRC = V_AMOUNT.
S_DATAPAK-/BIC/ABRETPRI = V_PRC.
ENDIF.

IF S_DATAPAK-/BIC/ABBLNKFLG IS INITIAL.

S_DATAPAK-/BIC/ABBLNKFLG = 'N'.

ENDIF.

TRANSLATE S_DATAPAK-/BIC/ABSZRANGE TO UPPER CASE

IF S_DATAPAK-CURRENCY IS INITIAL.

S_DATAPAK-CURRENCY = S_DATAPAK-WHLPRCCURR.

MODIFY DATAPAK FROM S_DATAPAK INDEX V_INDEX TRANSPORTING

/BIC/ABRETPRI /BIC/ABWHLPRCE /BIC/ABBLNKFLG

ENDIF.

*ENDLOOP.

ENDIF

Thanks