How to improve the performance of one program in one select query

Question

Hi,
I am facing performance issue in one program. I have given some part of the code of the program.
it is taking much time below select query. How to improve the performance.
Quick response is highly appreciated.
Program code
DATA: BEGIN OF t_dels_tvpod OCCURS 100,
vbeln LIKE tvpod-vbeln,
posnr LIKE tvpod-posnr,
lfimg_diff LIKE tvpod-lfimg_diff,
calcu LIKE tvpod-calcu,
podmg LIKE tvpod-podmg,
uecha LIKE lips-uecha,
pstyv LIKE lips-pstyv,
xchar LIKE lips-xchar,
grund LIKE tvpod-grund,
END OF t_dels_tvpod,
DATA: l_tabix LIKE sy-tabix,
lt_dels_tvpod LIKE t_dels_tvpod OCCURS 10 WITH HEADER LINE,
ls_dels_tvpod LIKE t_dels_tvpod.
SELECT vbeln INTO TABLE lt_dels_tvpod FROM likp
FOR ALL ENTRIES IN t_dels_tvpod
WHERE vbeln = t_dels_tvpod-vbeln
AND erdat IN s_erdat
AND bldat IN s_bldat
AND podat IN s_podat
AND ernam IN s_ernam
AND kunnr IN s_kunnr
AND vkorg IN s_vkorg
AND vstel IN s_vstel
AND lfart NOT IN r_del_types_exclude.
Waiting for quick response.
Best regards,
BDP

Answer 1

Bansidhar,
1) You need to add a check to make sure that internal table t_dels_tvpod (used in the FOR ALL ENTRIES clause) is not blank. If it is blank skip the SELECt statement.
2)  Check the performance with and without clause 'AND lfart NOT IN r_del_types_exclude'. Sometimes NOT causes the select statement to not use the index. Instead of 'lfart NOT IN r_del_types_exclude' use 'lfart IN r_del_types_exclude' and build r_del_types_exclude by using r_del_types_exclude-sign = 'E' instead of 'I'.
3) Make sure that the table used in the FOR ALL ENTRIES clause has unique delivery numbers.
Try doing something like this.
TYPES: BEGIN OF ty_del_types_exclude,
         sign(1)   TYPE c,
         option(2) TYPE c,
         low       TYPE likp-lfart,
         high      TYPE likp-lfart,
       END OF ty_del_types_exclude.
DATA: w_del_types_exclude TYPE          ty_del_types_exclude,
      t_del_types_exclude TYPE TABLE OF ty_del_types_exclude,
      t_dels_tvpod_tmp    LIKE TABLE OF t_dels_tvpod        .
IF NOT t_dels_tvpod[] IS INITIAL.
* Assuming that I would like to exclude delivery types 'LP' and 'LPP'
  CLEAR w_del_types_exclude.
  REFRESH t_del_types_exclude.
  w_del_types_exclude-sign = 'E'.
  w_del_types_exclude-option = 'EQ'.
  w_del_types_exclude-low = 'LP'.
  APPEND w_del_types_exclude TO t_del_types_exclude.
  w_del_types_exclude-low = 'LPP'.
  APPEND w_del_types_exclude TO t_del_types_exclude.
  t_dels_tvpod_tmp[] = t_dels_tvpod[].
  SORT t_dels_tvpod_tmp BY vbeln.
  DELETE ADJACENT DUPLICATES FROM t_dels_tvpod_tmp
    COMPARING
      vbeln.
  SELECT vbeln
    FROM likp
    INTO TABLE lt_dels_tvpod
    FOR ALL ENTRIES IN t_dels_tvpod_tmp
    WHERE vbeln EQ t_dels_tvpod_tmp-vbeln
    AND erdat IN s_erdat
    AND bldat IN s_bldat
    AND podat IN s_podat
    AND ernam IN s_ernam
    AND kunnr IN s_kunnr
    AND vkorg IN s_vkorg
    AND vstel IN s_vstel
    AND lfart IN t_del_types_exclude.
ENDIF.