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,