fast execution

Hi experts,

m sending u a part of code that i have created but it is taking a lot of time that makes the executin very slow..Can u plz tell me some other alternatives that can improve its performance..

select * into corresponding fields of table customer
                                              from kna1
*                                              AS A INNER JOIN KNVP AS B ON A~KUNNR = B~KUNN2
                                              where regio in regio.
*                                              AND PARVW = 'ZA'.
    clear del.
    del =  sy-subrc .
    sort customer by kunnr.
    delete adjacent duplicates from customer.

*    IF DEL = 0.

      select a~bukrs a~gjahr a~belnr  a~budat a~gjahr a~blart b~kunnr b~buzei b~shkzg b~sgtxt b~bldat b~zuonr b~dmbtr b~pswsl b~zterm b~vbeln
                                     into corresponding fields of table itab_bsid
                                     from bkpf as a inner join bsid as b on a~belnr = b~belnr and a~gjahr eq b~gjahr
                                       and a~mandt = b~mandt and a~bukrs = b~bukrs
                                       for all entries in customer
                                       where  a~budat le p_date
                                       and   a~bukrs eq p_bukrs
                                       and   ( b~umskz eq space or b~umskz eq 'A')
                                       and   b~kunnr eq customer-kunnr.


      select  a~bukrs a~gjahr a~belnr  a~budat a~gjahr a~blart b~kunnr  b~buzei b~shkzg b~sgtxt b~bldat b~zuonr b~dmbtr b~pswsl b~zterm b~vbeln
                                                  into corresponding fields of table itab_bsad
                                                  from bkpf as a inner join bsad as b on a~belnr = b~belnr and a~gjahr eq b~gjahr
                                                    and a~mandt = b~mandt and a~bukrs = b~bukrs
                                                    for all entries in customer
                                                    where  a~budat le p_date
                                                    and   a~bukrs eq p_bukrs
                                                    and   ( b~umskz eq space or b~umskz eq 'A')
                                                    and   b~kunnr eq customer-kunnr.

thanks,

Raman

Added code tags and moved to the correct forum

Edited by: Rob Burbank on Mar 9, 2009 9:23 AM