Skip to Content
0
Former Member
Feb 24, 2009 at 12:25 PM

performance problem

142 Views

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