Hi Abapers,
I developed one report in FICO Module.
I have written loop but system is taking more amount of time on it.
this program executing in testing client but it is not executing in production.
system showing the dump .
the problem is system taking more amount of time for given loop.
it_vbrp: having 25623 records,
it_vbrk: 30000 records,
it_mara2: having 33258
plese give me the sollution.
below code.
LOOP AT it_vbrp into wa_vbrp.
READ TABLE IT_MARA2 INTO WA_MARA2 WITH KEY matnr = wa_vbrp-matnr BINARY SEARCH.
case WA_MARA2-ismconttype.
when '12'. "Check for Material Type City
READ TABLE it_vbrk INTO wa_vbrk WITH KEY vbeln = wa_vbrp-vbeln BINARY SEARCH.
case wa_vbrk-fkart. "Check for Billing Doc Type
when 'F2'. "Check for Invoice Type
"Check for Invoice
read table it_konv into wa_konv with key knumv = wa_vbrk-knumv kposn = wa_vbrp-posnr kschl = 'PJ01'. "Read for Cover Price
if sy-subrc = 0.
v_city_actual_cprice = v_city_actual_cprice + wa_konv-kwert.
endif.
CLEAR:wa_konv.
read table it_konv into wa_konv with key knumv = wa_vbrk-knumv kposn = wa_vbrp-posnr kschl = 'ZDIS'. "Read for Commission
if sy-subrc = 0.
v_city_actual_comm = v_city_actual_comm + wa_konv-kwert.
endif.
WHEN 'G2'. "Check for Billing Doc Type
v_city_actual_crnotes = v_city_actual_crnotes + wa_vbrp-netwr.
ENDCASE. "Check for Billing Doc Type
when '11'. "Check for Material Type DAK
READ TABLE it_vbrk INTO wa_vbrk WITH KEY vbeln = wa_vbrp-vbeln BINARY SEARCH.
case wa_vbrk-fkart. "Check for Doc Type
when 'F2'. "Check for Invoice Type
read table it_konv into wa_konv with key knumv = wa_vbrk-knumv kposn = wa_vbrp-posnr kschl = 'PJ01'. "Read for Cover Price
if sy-subrc = 0.
v_DAK_actual_cprice = v_DAK_actual_cprice + wa_konv-kwert.
endif.
CLEAR:wa_konv.
read table it_konv into wa_konv with key knumv = wa_vbrk-knumv kposn = wa_vbrp-posnr kschl = 'ZDIS'. "Read for Commission
if sy-subrc = 0.
v_DAK_actual_comm = v_DAK_actual_comm + wa_konv-kwert.
endif.
when 'G2'. "Check for Billing Doc Type
v_DAK_actual_crnotes = v_DAK_actual_crnotes + wa_vbrp-netwr.
endcase. "Check for Doc Type
endcase. "Check for Material Type
CLEAR: wa_vbrk,
wa_vbrp,
wa_konv,
wa_mara2.
ENDLOOP.[/code]