Skip to Content
0
Former Member
May 14, 2008 at 02:56 PM

Performance Issue

52 Views

Hi All,

please check and give the best to change the code for performance of the below code.

LOOP AT ITAB.

PERFORM GET_IR_AMTS_FOR_PO_LINE.

PERFORM FIGURE_COMMITMENTS_COOI.

APPEND ITAB.

ENDLOOP.

FORM GET_IR_AMTS_FOR_PO_LINE.

SELECT * FROM EKBE WHERE EBELN = ITAB-PO_NO

AND EBELP = ITAB-LINE

AND VGABE EQ '2'

AND ZEKKN EQ ITAB-ZEKKN.

IF EKBE-SHKZG = 'H'. "Credit

EKBE-MENGE = EKBE-MENGE * -1.

EKBE-DMBTR = EKBE-DMBTR * -1.

EKBE-WRBTR = EKBE-WRBTR * -1.

ENDIF.

ENDSELECT.

ENDFORM.

FORM FIGURE_COMMITMENTS_COOI.

SELECT * FROM COOI WHERE REFBT = '020'

AND REFBN = ITAB-PO_NO

AND RFPOS = ITAB-LINE

AND RFKNT = ITAB-ZEKKN.

ITAB-COMMIT_CO = ITAB-COMMIT_CO + COOI-WKGBTR.

ITAB-COMMIT_DOC = ITAB-COMMIT_DOC + COOI-WTGBTR.

ENDSELECT.

ENDFORM.

Thanks,