Want to Incerese the performence for below code.

Question

Hi everyone.
Please can anyone help me in improving the perfoemence for this below code.
  LOOP AT IT_EBAN INTO WA_EBAN.
MOVE WA_EBAN-TXZ01 TO WA_ZTOBI_PUR_RQ_LD-TXZ01.
                MOVE WA_EBAN-MATKL TO WA_ZTOBI_PUR_RQ_LD-MATKL.
                IF WA_EBAN-BADAT > WA_EBAN-ERDAT.
                  MOVE WA_EBAN-BADAT TO WA_ZTOBI_PUR_RQ_LD-CHANGED_DATE.
                  WA_ZTOBI_PUR_RQ_LD-CHNGIND = LC_I.
                ELSEIF WA_EBAN-BADAT <= WA_EBAN-ERDAT.
                  MOVE WA_EBAN-ERDAT TO WA_ZTOBI_PUR_RQ_LD-CHANGED_DATE.
                  IF WA_EBAN-LOEKZ = SPACE.
                    WA_ZTOBI_PUR_RQ_LD-CHNGIND = LC_U.
                  ELSEIF WA_EBAN-LOEKZ = LC_X.
                    WA_ZTOBI_PUR_RQ_LD-CHNGIND = LC_D.
                  ENDIF.
                ENDIF.
        IF WA_EBAN-BSMNG NE 0.
        SELECT EBELN LOEKZ EBELP FROM EKPO INTO TABLE IT_EKPO WHERE BANFN = WA_EBAN-BANFN AND BNFPO = WA_EBAN-BNFPO.
*If Purchase Orders found
        IF NOT IT_EKPO[] IS INITIAL.
          LOOP AT IT_EKPO INTO WA_EKPO.
            SELECT BEDAT FRGRL PROCSTAT FROM EKKO INTO TABLE IT_EKKO WHERE EBELN = WA_EKPO-EBELN.
            READ TABLE IT_EKKO INTO WA_EKKO INDEX 1.
            IF WA_EKPO-LOEKZ = ''                                 
                ENDloop.
Edited by: kumar.p.D on Jan 15, 2010 6:02 AM
Edited by: kumar.p.D on Jan 15, 2010 6:05 AM
Moderator message - You have violated at least two forum rules. Please see Please read "The Forum Rules of Engagement" before posting!  HOT NEWS!! and Please Read before Posting in the Performance and Tuning Forum before posting - post locked
Edited by: Rob Burbank on Jan 15, 2010 9:15 AM

Answer 1

In pseudocode:
1.-  Declare it_ekpo as sorted table with key banfn bnfpo, and add the others fields you need.
      Declare it_ekko as sorted table with key ebeln, and add the others fields you need.
      Declare an internal table like it_eban, ie: it_eban2.
      Declare field-symbol like line of it_eban.
      Declare field-symbol like line ot it_ekpo and other like line it_ekko.
  2.-   it_eban2[]= it_eban[].
        delete it_eban2 where bsmng = 0.
        use it_eban2 in select for all entries to ekpo filling it_ekpo.
        use it_ekpo in select for all entries to ekko.
        free it_eban2.
   3.-  sort it_eban by banfn and bnfpo.
         loop at it_eban assigning the field-symbol instead of into.
         if bsmng <> 0.
          loop it_ekpo assigning field symbol where banfn and bnfpo.
             at new ebeln.
                  read table it_ekko assigning field symbol with key ebeln.
             endat
          endloop.
         endif.
         endloop.
  I hope it works  ...
Edited by: Diego Alvarez on Jan 15, 2010 10:21 AM
Edited by: Diego Alvarez on Jan 15, 2010 10:27 AM
Edited by: Diego Alvarez on Jan 15, 2010 10:30 AM