Skip to Content
0
Former Member
Jan 08, 2008 at 08:03 AM

Performance tuning issues........

43 Views

Please guide me alternate option for below set of code:

LOOP AT ITAB1 WHERE DISC LT 0.

SELECT * FROM KONV WHERE KNUMV EQ ITAB1-KNUMV AND

KPOSN EQ ITAB1-POSNR AND

KSTEU EQ 'C'.

IF SY-SUBRC EQ 0.

ITAB1-FREE_INDI = 'Y'.

EXIT.

ENDIF.

ENDSELECT.

MODIFY ITAB1 TRANSPORTING FREE_INDI.

ENDLOOP.

*How to merge into one loop :

LOOP AT ITAB1.

IF ITAB1-FREE_MATL NE ''.

ITAB1-FREE_INDI = 'Y'.

MODIFY ITAB1.

GTEST = ITAB1-POSNR - 10.

READ TABLE ITAB1 WITH KEY SAL_ORD_NUM = ITAB1-SAL_ORD_NUM

POSNR = GTEST.

ITAB1-FREE_MATL = 'X'.

MODIFY ITAB1 TRANSPORTING FREE_MATL WHERE

SAL_ORD_NUM = ITAB1-SAL_ORD_NUM AND POSNR EQ GTEST.

CLEAR GTEST.

ENDIF.

ENDLOOP.

LOOP AT ITAB1 WHERE FREE_INDI EQ 'Y'.

IF ITAB1-UEPOS EQ G_UEPOS.

CLEAR ITAB1-FREE_INDI.

MODIFY ITAB1.

ENDIF.

MOVE ITAB1-UEPOS TO G_UEPOS.

ENDLOOP.

Thanx & Regrds.

Vijay...