Dear Firends,
this report needs almost 3 hours in the Batch Mode .
Do you see any possibility to optimize it bacause of the Performance in order
to get it faster.
Thanks
Ilhan Ertas
TYPES: BEGIN OF ty_purchase_dat.
INCLUDE STRUCTURE ebkn.
TYPES: preis TYPE bp_wpl,
waers TYPE waers,
ername TYPE ernam.
TYPES: END OF ty_purchase_dat.
TABLES: eban, zupdpreq, aufk, ebkn .
DATA: lt_eban TYPE TABLE OF eban,
ls_eban TYPE eban,
lt_zupdpreq TYPE TABLE OF zupdpreq,
ls_zupdpreq TYPE zupdpreq,
lt_aufk TYPE TABLE OF aufk,
ls_aufk TYPE aufk,
lt_ebkn TYPE TABLE OF ebkn,
ls_ebkn TYPE ebkn,
lt_purhdat TYPE TABLE OF ty_purchase_dat,
ls_purhdat TYPE ty_purchase_dat,
ls_pur TYPE ty_purchase_dat,
lv_obj TYPE bp_objekt.
*SELECT * INTO TABLE lt_eban FROM eban
* WHERE knttp EQ 'F'.
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_purhdat
FROM ebkn AS a
INNER JOIN eban AS b ON
a~banfn = b~banfn AND
a~bnfpo = b~bnfpo
WHERE b~knttp EQ 'F'.
SELECT * INTO TABLE lt_zupdpreq FROM zupdpreq.
LOOP AT lt_purhdat INTO ls_purhdat.
READ TABLE lt_zupdpreq INTO ls_zupdpreq
WITH KEY banfn = ls_purhdat-banfn
bnfpo = ls_purhdat-bnfpo.
IF sy-subrc EQ 4.
IF NOT ls_purhdat-aufnr IS INITIAL.
lv_obj = ls_purhdat-aufnr.
CALL FUNCTION 'Z_PM_SRM'
EXPORTING
wrt = ls_purhdat-preis
objnr = lv_obj
waers = ls_purhdat-waers.
*
ls_zupdpreq-banfn = ls_purhdat-banfn.
ls_zupdpreq-bnfpo = ls_purhdat-bnfpo.
ls_zupdpreq-aufnr = ls_purhdat-aufnr.
ls_zupdpreq-erdat = sy-datum.
ls_zupdpreq-ernam = sy-uname.
ls_zupdpreq-preis = ls_purhdat-preis.
INSERT INTO zupdpreq VALUES ls_zupdpreq.
ENDIF.
ENDIF.
ENDLOOP.
Please provide a more informative subject.
Moving to the correct forum.
Edited by: Rob Burbank on Feb 24, 2009 10:25 AM