Inputs for Fine tuning the program

Question

Hi All,
Following code is taking lot of time... No i need to fine tune the same ,,,
Please give some inputs..
SELECT VBELN INTO VBUK-VBELN FROM VBUK
WHERE ( CMGST EQ 'B' OR CMGST EQ 'C' )
AND VBELN IN S_VBELN.
SELECT * FROM VBAP WHERE VSTEL IN SHP_PT
AND VBELN EQ VBUK-VBELN
AND VKGRU '101'.
SELECT VBELN POSNR EDATU FROM VBEP
INTO (VBEP-VBELN,VBEP-POSNR,VBEP-EDATU)
WHERE VBELN EQ VBAP-VBELN AND POSNR EQ VBAP-POSNR
AND LFREL EQ 'X' AND BMENG GT 0
AND EDATU BETWEEN DATE_LOW
AND DAT_HIGH
ORDER BY EDATU VBELN POSNR.
CLEAR LIPS.
PERFORM APPEND_DATA_TO_ITAB1 TABLES ITAB1
USING VBEP-VBELN VBEP-POSNR
VBEP-EDATU LIPS-VBELN
LIPS-POSNR vbap-VSTEL.
ENDSELECT.
ENDSELECT.
ENDSELECT.
Regards,
Chan
Moderator message: Please Read before Posting in the Performance and Tuning Forum
Edited by: Thomas Zloch on Nov 24, 2010 1:17 PM

Answer 1

HI,
Remove the select endselect the select all the entries into internal table then from tat internal table select by using for all entries into another internal table. for eq -
IF NOT s_vbeln[] IS INITIAL.
  SELECT vbeln cmgst
        INTO TABLE itvbuk
        FROM vbuk
        WHERE vbeln IN s_vbeln.
  DELETE itvbuk WHERE  cmgst NE 'B' AND cmgst NE 'C' .
ENDIF.
IF NOT itvbuk[] IS INITIAL.
  SELECT *
         FROM vbap
         INTO TABLE itvbap
         FOR ALL ENTRIES IN itvbuk
         WHERE vbeln EQ itvbuk-vbeln.
  DELETE itvbap WHERE vkgru NE '101' AND NOT vstel IN shp_pt.
ENDIF.
Like wise modify the logic and check the secondary index is available for the where clause which you will be specifing.
Regards,
Madhukar Shetty