Fine tuning of the report

Question

Hi Friends,
1)I have thousands of production order in my internal table list.
2)Now for each production order I have more than 40 operations .
3)I have to take the latest operations from this 40 operations.
4)the latest operation and the corresponding work Center I have to take from the S022 among this 40 opearation
5) this work center I have to pass to CRHD and take objectid (OBJID)
6) now I have to pass this object id (OBJID) to CRCO and take the cost center
ie the crco-kostl.
Actually this is a specific client requirement where the same logic I have to follow. when iam running the following code the report is taking long time . I can say the situation is like report hanging.
Iam using the following code .
loop at list.
if list-BWART eq '261' or list-BWART eq '262'.
select max( VORNR )  into  bet   from S022
        where AUFNR  = list-AUFNR and
        werks = list-werks.
SELECT SINGLE ARBPL FROM  S022  INTO ARBPL
        where AUFNR  = list-AUFNR and
        werks = list-werks
        and vornr = bet .
select single KOSTL from CRCO into list-KOSTL where OBJID = OBJID.
clear CARBPL.
clear OBJID.
modify list.
clear list.
clear bet.
endif.
endloop.
Please help me to fine tune this scenario .

Answer 1

Hi,
IMP:  Never use select single in loop!! instead use for all entries in option using second itab and as ur data is too high process ur data in itabs using BINARY SEARCH.
select aufnr max( vornr ) ARBPL into table itab2
for all entries in list
group by aufnr "(and ARBPL, this will reduce second select stmt..)
where aufnr = list-aufnr and....
"same for third select stmt.
All above stmts are not in loop , now u can process itabs and get desired o/p.
use BINARY SEARCH for read itabs.
Abvoe logic will improve ur code perfromance..
Jogdand M B