Skip to Content
0
Former Member
Sep 16, 2007 at 11:56 AM

Dump is occuring while executing the loop

38 Views

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]