Removing loop from loop.

Question

Can any one help me on this issue,
i have to remove the loop on bseg ans so that i can add .
CLEAR : w_debit  ,
            w_credit .
    LOOP AT wtl_temp ASSIGNING <fs>.
      READ TABLE wtl_prctr WITH KEY bukrs = <fs>-bukrs
                                    belnr = <lfs>-belnr
                                    gjahr = <lfs>-gjahr
                                    prctr = <lfs>-prctr
                                    hkont = <lfs>-hkont           
                                TRANSPORTING NO FIELDS.
      IF sy-subrc NE 0.
        MOVE : <lfs1>-bukrs TO wsl_prctr-bukrs,
               <fs>-belnr TO wsl_prctr-belnr,
               <fs>-gjahr TO wsl_prctr-gjahr,
               <fs>-prctr TO wsl_prctr-prctr,
               <fs>-hkont TO wsl_prctr-hkont.                         
      LOOP AT wt_bseg ASSIGNING <fs2> WHERE bukrs EQ <fs>-bukrs
                                          AND belnr EQ <fs>-belnr
                                          AND gjahr EQ <fs>-gjahr
                                          AND prctr EQ <fs>-prctr
                                          AND hkont EQ <fs>-hkont. 
          CASE <fs2>-shkzg.
            WHEN c_debit .
              w_debit  = w_debit  + <fs2>-dmbtr.
            WHEN c_credit.
              w_credit = w_credit + <fs2>-dmbtr.
          ENDCASE.
        ENDLOOP.
        wsl_prctr-dmbtr = w_credit - w_debit.
        APPEND wsl_prctr TO wtl_prctr.
        CLEAR : wsl_prctr  ,
                w_debit   ,
                w_credit  .
      ELSE.
        CONTINUE.
      ENDIF.
    ENDLOOP.

Answer 1

Hi,
u can use parallel Cursor method here.
if it is compulsory to use nested loops, then we need to go for PARALLEL CURSOR METHOD
this is very efficient method. This decreases the execution time and increases the performance.
here is a sample code for PARALLEL CURSOR METHOD
Nested Loops – This is one of the fear factors for all the ABAP developers as this consumes lot of program execution time. If the number of entries in the internal tables is huge, then the situation would be too worse. The solution for this is to use parallel cursor method whenever there is a need for Nested Loop.
Program using Normal Nested Loop:
REPORT ZNORMAL_NESTEDLOOP.
TABLES:
likp,
lips.
Data:
t_likp type table of likp,
t_lips type TABLE OF lips.
data:
W_RUNTIME1 TYPE I,
W_RUNTIME2 TYPE I.
START-OF-SELECTION.
select *
from likp
into table t_likp.
select *
from lips
into table t_lips.
get RUN TIME FIELD w_runtime1.
loop at t_likp into likp.
loop at t_lips into lips where vbeln eq likp-vbeln.
endloop.
endloop.
get RUN TIME FIELD w_runtime2.
w_runtime2 = w_runtime2 - w_runtime1.
write w_runtime2.
Nested Loop using Parallel Cursor:
REPORT zparallel_cursor2.
TABLES:
likp,
lips.
DATA:
t_likp TYPE TABLE OF likp,
t_lips TYPE TABLE OF lips.
DATA:
w_runtime1 TYPE i,
w_runtime2 TYPE i,
w_index LIKE sy-index.
START-OF-SELECTION.
SELECT *
FROM likp
INTO TABLE t_likp.
SELECT *
FROM lips
INTO TABLE t_lips.
GET RUN TIME FIELD w_runtime1.
SORT t_likp BY vbeln.
SORT t_lips BY vbeln.
LOOP AT t_likp INTO likp.
LOOP AT t_lips INTO lips FROM w_index.
IF likp-vbeln NE lips-vbeln.
w_index = sy-tabix.
EXIT.
ENDIF.
ENDLOOP.
ENDLOOP.
GET RUN TIME FIELD w_runtime2.
w_runtime2 = w_runtime2 - w_runtime1.
WRITE w_runtime2.
Analysis report: Runtime in microseconds:
Iteration No ....._Normal Nest Loop_ ..... Using Parallel Cursor
1 ....................... 34,796,147 ................... 63,829
2 .........................38,534,583 ................... 56,894
3 .........................34,103,426 ................... 50,510
u can check this site for more details
http://www.****************/Tutorials/ABAP/ParallelCursor.htm
reward if helpful
raam