Hpw to tune the performance of following query?

Question

Hi all,
           I want a particular set of G/L acct nos for the list of billing documents that i have in an internal table ie. pt_vbrk. I am using table BSIS.However ,when i use the following query it is taking  very very long time .I even tried using LOOP...ENDLOOP statement.Can anyone tell me how to enhance the performance of the query?Thanks in advance.
i = 0.
loop at pt_vbrk.
i = i + 1.
endloop.
while j <= i.
read table pt_vbrk index j.
select single hkont  from bsis into  corresponding fields of
pt_vbrk where
( hkont = '0013100000' or hkont = '0013105000'
or hkont = '0013110000' or hkont = '0013112000'
or hkont = '0013115000' or hkont = '0013120000'
or hkont = '0013125000' or hkont = '0013135500'
or hkont = '0013140000' or hkont = '0013145000'
or hkont = '0013155000' or hkont = '0013165000'
or hkont = '0013175000' or hkont = '0013170000' )
and belnr = pt_vbrk-belnr and  gjahr = pt_vbrk-gjahr   . "#EC CI_NOFIRST
modify pt_vbrk from pt_vbrk index j.
j = j + 1.
endwhile.
Moderator message - Moved to the correct forum
Edited by: Rob Burbank on Sep 22, 2009 9:06 AM

Answer 1

Try the following approach.
TYPES: BEGIN OF ty_bsis,
         bukrs TYPE bsis-bukrs,
         hkont TYPE bsis-hkont,
         augdt TYPE bsis-augdt,
         augbl TYPE bsis-augbl,
         zuonr TYPE bsis-zuonr,
         gjahr TYPE bsis-gjahr,
         belnr TYPE bsis-belnr,
         buzei TYPE bsis-buzei,
       END OF ty_bsis.
DATA: w_bsis     TYPE                 ty_bsis ,
      w_index    TYPE                 sy-tabix,
      t_bsis     TYPE SORTED TABLE OF ty_bsis
        WITH NON-UNIQUE KEY bukrs belnr gjahr ,
      t_vbrk_tmp LIKE        TABLE OF pt_vbrk .
RANGES: r_hkont FOR bsis-hkont.
IF NOT pt_vbrk[] IS INITIAL.
  REFRESH r_hkont.
  r_hkont-sign   = 'I'.
  r_hkont-option = 'EQ'.
  r_hkont-low = '0013100000'.
  APPEND r_hkont.
  r_hkont-low = '0013105000'.
  APPEND r_hkont.
  r_hkont-low = '0013110000'.
  APPEND r_hkont.
  r_hkont-low = '0013112000'.
  APPEND r_hkont.
  r_hkont-low = '0013115000'.
  APPEND r_hkont.
  r_hkont-low = '0013120000'.
  APPEND r_hkont.
  r_hkont-low = '0013125000'.
  APPEND r_hkont.
  r_hkont-low = '0013135500'.
  APPEND r_hkont.
  r_hkont-low = '0013140000'.
  APPEND r_hkont.
  r_hkont-low = '0013145000'.
  APPEND r_hkont.
  r_hkont-low = '0013155000'.
  APPEND r_hkont.
  r_hkont-low = '0013165000'.
  APPEND r_hkont.
  r_hkont-low = '0013175000'.
  APPEND r_hkont.
  r_hkont-low = '0013170000'.
  APPEND r_hkont.
  t_vbrk_tmp[] = pt_vbrk[].
  SORT t_vbrk_tmp BY bukrs gjahr belnr.
  DELETE ADJACENT DUPLICATES FROM t_vbrk_tmp
    COMPARING bukrs gjahr belnr.
  SELECT bukrs
         hkont
         augdt
         augbl
         zuonr
         gjahr
         belnr
         buzei
    FROM bsis
    INTO TABLE t_bsis
    FOR ALL ENTRIES IN t_vbrk_tmp
    WHERE bukrs EQ t_vbrk_tmp-bukrs
    AND   hkont IN r_hkont
    AND   gjahr EQ t_vbrk_tmp-gjahr
    AND   belnr EQ t_vbrk_tmp-belnr.
  IF sy-subrc EQ 0.
    LOOP AT pt_vbrk.
      w_index = sy-tabix.
      READ TABLE t_bsis INTO w_bsis
        WITH KEY bukrs = pt_vbrk-bukrs
                 belnr = pt_vbrk-belnr
                 gjahr = pt_vbrk-gjahr
                 TRANSPORTING
                   hkont.
      IF sy-subrc EQ 0.
        pt_vbrk-hkont = w_bsis-hkont.
        MODIFY pt_vbrk INDEX w_index
          TRANSPORTING
            hkont.
      ENDIF.
    ENDIF.
  ENDIF.