Skip to Content
0
Nov 07, 2007 at 06:41 AM

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