Performance problem in This program

Question

Hi friends ,
              Below is the one of the perform in my program which is taking more time .. Can you please suggest me to find a solution to take less time for execution.
Thanks in Adv .
Varma ..
DATA: l_count TYPE i.
  SELECT m~customer
         m~name
         m~payer
         t~txtmd
    INTO TABLE gt_cust2
    FROM /bi0/pcustomer AS m
    JOIN /bi0/tcustomer AS t
      ON mcustomer EQ tcustomer
   WHERE m~objvers   EQ 'A'
     AND m~accnt_grp NE space.
  SORT gt_cust2 BY customer.
  SELECT m~customer
         m~name
         m~payer
         t~txtmd
    INTO TABLE gt_cust
    FROM /bi0/pcustomer AS m
    JOIN /bi0/tcustomer AS t
      ON mcustomer EQ tcustomer
   WHERE m~objvers   EQ 'A'
     AND m~accnt_grp IN s_ktokd
     AND m~payer     NE space.
  IF sy-subrc = 0.
    SORT gt_cust BY customer.
    LOOP AT gt_cust.
      CLEAR l_count.
      LOOP AT gt_cust2 WHERE payer = gt_cust-payer.
        ADD 1 TO l_count.
        IF l_count > 1.
          EXIT.
        ENDIF.
      ENDLOOP.
      gt_soldto-customer = gt_cust-customer.
      gt_soldto-payer    = gt_payer-payer = gt_cust-payer.
      IF l_count > 1.
Payer found
        CLEAR gt_cust2.
        READ TABLE gt_cust2 WITH KEY customer = gt_cust-payer
                            BINARY SEARCH.
        IF NOT gt_cust2-name IS INITIAL.
          gt_payer-name  = gt_cust2-name.
        ELSE.
          gt_payer-name  = gt_cust2-txtmd.
        ENDIF.
      ELSE.
Stand alone customer
        gt_soldto-payer = gt_payer-payer = p_nonpyr.
        gt_payer-name   = p_nonpnm.
      ENDIF.
      COLLECT: gt_soldto,
               gt_payer.
    ENDLOOP.
    SORT: gt_soldto,
          gt_payer.
  ENDIF.

Answer 1

hi,
just remove joins and use for all entries.
if sy-subrc = 0.
use delete adjacent duplicates from itab comparing key fields.(it will increase performance)
then write another select statement.
endif.
some tips:
Always check the driver internal tables is not empty, while using FOR ALL ENTRIES
Avoid for all entries in JOINS
Try to avoid joins and use FOR ALL ENTRIES.
Try to restrict the joins to 1 level only ie only for tables
Avoid using Select *.
Avoid having multiple Selects from the same table in the same object.
Try to minimize the number of variables to save memory.
The sequence of fields in 'where clause' must be as per primary/secondary index ( if any)
Avoid creation of index as far as possible
Avoid operators like <>, > , < & like % in where clause conditions
Avoid select/select single statements in loops.
Try to use 'binary search' in READ internal table. Ensure table is sorted before using BINARY SEARCH.
Avoid using aggregate functions (SUM, MAX etc) in selects ( GROUP BY , HAVING,)
Avoid using ORDER BY in selects
Avoid Nested Selects
Avoid Nested Loops of Internal Tables
Try to use FIELD SYMBOLS.
Try to avoid into Corresponding Fields of
Avoid using Select Distinct, Use DELETE ADJACENT
Go through the following Document
Check the following Links
Re: performance tuning
Re: Performance tuning of program
http://www.sapgenie.com/abap/performance.htm
http://www.thespot4sap.com/Articles/SAPABAPPerformanceTunin