Urgent - I have written select query between loop and endloop, Ple help out

Question

Can any one help out me on this select query. I have written select query between loop and endloop. When I execute the program it will take too much time in this query. Please help me out. Its very urgent.
LOOP AT l_i_invoices ASSIGNING <l_invoices>.
      CLEAR alv_wa.
      alv_wa-bukrs = <l_invoices>-bukrs.
      alv_wa-gsber = <l_invoices>-gsber.
      CLEAR l_instid.
      CONCATENATE <l_invoices>-belnr <l_invoices>-gjahr INTO l_instid.
      SELECT top_wi_id FROM sww_wi2obj INTO TABLE l_i_swwwihead
              WHERE catid   = c_catid_business_object
                AND instid  = l_instid
                AND typeid  = c_typeid_invoice
                AND removed = space
                AND ( wi_rh_task = c_task_buyer_message
                   OR wi_rh_task = c_task_buyer_message2 ).
      IF sy-subrc = 0.
        <l_invoices>-flag = 'X'.
      ELSE.
        <l_invoices>-flag = ' '.
      ENDIF.
      MODIFY l_i_invoices FROM <l_invoices> TRANSPORTING flag
                            WHERE belnr = <l_invoices>-belnr
                               AND gjahr = <l_invoices>-gjahr.
      APPEND alv_wa TO i_alv.
    ENDLOOP.
Thanks in advance.

Answer 1

Here is a way to solve this problem.
Choose somewhere before this loop processing to use that select. Therefore, you'll need use FOR ALL ENTRIES <that_loop_table> clause, and in the WHERE condition you need to specify that same fields.
This way, you will have an internal table with all data you'll need to check.
Then, inside your loop statement, use the READ TABLE command with the clause WITH KEY field = value, to read that record and use the value found.
Like this sample:
  SELECT bukrs lifnr umsks umskz augdt augbl zuonr gjahr belnr buzei
         waers xblnr blart gsber ebeln zfbdt zbd1t zlsch
  INTO TABLE tg_bsak
  FROM bsak
  FOR ALL ENTRIES IN tl_bkpf_sel
  WHERE bukrs EQ tl_bkpf_sel-bukrs AND
        lifnr IN s_lifnr AND
        augbl EQ tl_bkpf_sel-belnr.
LOOP AT tg_bseg INTO wa_bseg.
    READ TABLE tg_bsak INTO wa_bsak WITH KEY bukrs = wa_bseg-bukrs
                                             gjahr = wa_bseg-gjahr
                                             belnr = wa_bseg-belnr
                                             BINARY SEARCH.
if sy-subrc = 0.
* do something
endif.
ENDLOOP.