So many loops decreasing the performance

Question

So many loops are in loop, Is there any other statement to improve the performance
LOOP AT p0000 WHERE begda LE pn-endda
                AND   endda GE pn-begda.
    wa_datatab-pernr = p0000-pernr.
    LOOP AT p0001 WHERE begda LE p0000-endda
                  AND   endda GE p0000-begda.
      wa_datatab-werks = p0001-werks.
      wa_datatab-bukrs = p0001-bukrs.
      wa_datatab-persg = p0001-persg.
read technical date of entry and first working day
      CLEAR emp_period.
      LOOP AT p0041.
        CLEAR p41dat.
        DO 12 TIMES
              VARYING p41dat FROM p0041-dar01 NEXT p0041-dar02.
          IF ( p41dat-dar EQ ca_dar01 OR
               p41dat-dar EQ ca_dar04 OR
               p41dat-dar EQ ca_dar40 ) AND
               NOT p41dat-dat IS INITIAL.
            PERFORM employment_period USING p41dat-dat
                                            pn-begda
                                            emp_period.
            CASE p41dat-dar.
              WHEN ca_dar01.
                wa_datatab-dat01 = p41dat-dat.
                wa_datatab-dat01_period = emp_period.
              WHEN ca_dar40.
                wa_datatab-dat40 = p41dat-dat.
                wa_datatab-dat40_period = emp_period.
              WHEN ca_dar04.
                wa_datatab-dat04 = p41dat-dat.
                wa_datatab-dat04_period = emp_period.
            ENDCASE.
          ENDIF.
        ENDDO.
      ENDLOOP.
    ENDLOOP.

Answer 1

hi check this prog how to get the best performance..
report ztest.
tables:pa0002,pa0008,pa0021,pa0041.
data: begin of itab occurs 0,
      pernr like pa0002-pernr,
      vorna like pa0002-vorna,
      nachn like pa0002-nachn,
      end of itab.
data: begin of itab1 occurs 0,
      pernr like pa0008-pernr,
      begda like pa0008-begda,
      stvor like pa0008-stvor,
      ansal like pa0008-ansal,
      end of itab1.
data :begin of itab2 occurs 0,
      pernr like pa0021-pernr,
      favor like pa0021-favor,
      fanam like pa0021-fanam,
      end of itab2.
data:begin of itab3 occurs 0,
     pernr like pa0041-pernr,
     dar01 like pa0041-dar01,
     dat01 like pa0041-dat01,
     end of itab3.
data:begin of final occurs 0,
      pernr like pa0002-pernr,
      vorna like pa0002-vorna,
      nachn like pa0002-nachn,
      begda like pa0008-begda,
      stvor like pa0008-stvor,
      ansal like pa0008-ansal,
       favor like pa0021-favor,
      fanam like pa0021-fanam,
     dar01 like pa0041-dar01,
     dat01 like pa0041-dat01,
     end of final.
select-options:s_pernr for pa0002-pernr,
                     s_date for sy-datum.
select pernr
       vorna
       nachn
       from pa0002
       into table itab
       where pernr in s_pernr
       and begda le s_date-low
       and endda ge s_date-high.
select pernr
       begda
       stvor
       ansal
       from pa0008
       into table itab1
       for all entries in itab
       where pernr = itab-pernr
       and begda le s_date-low
       and endda ge s_date-high.
select pernr
       favor
       fanam
       from pa0021
       into table itab2
       for all entries in itab1
       where pernr = itab1-pernr
      and begda le s_date-low
       and endda ge s_date-high.
select pernr
       dar01
       dat01
       from pa0041
       into table itab3
       for all entries in itab2
       where pernr = itab2-pernr
       and begda le s_date-low
       and endda ge s_date-high.
loop at itab.
final-pernr = itab-pernr.
final-vorna = itab-vorna.
final-nachn = itab-nachn.
read table itab1 with key pernr = itab-pernr.
final-begda = itab1-begda.
final-stvor = itab1-stvor.
final-ansal = itab1-ansal.
read table itab2 with key pernr = itab1-pernr.
final-favor = itab2-favor.
final-fanam = itab2-fanam.
read table itab3 with key pernr = itab2-pernr.
final-dar01 = itab3-dar01 .
final-dat01 = itab3-dat01.
append final.
clear final.
endloop.
   loop at final.
   write:final-pernr ,
final-vorna ,
final-nachn ,
final-begda ,
final-stvor ,
final-ansal ,
final-favor ,
final-fanam ,
final-dar01 ,
final-dat01 .
   endloop.
regards,
venkat.