topic infinite loop in Application Development and Automation Discussions

infinite loop

Former Member — Tue, 23 Sep 2014 09:35:05 GMT

Hello ABAPers

while debugging t_vbrk[ ] contains 98 rows and t_vbrp contains 33 rows still this loop is going infinite.any idea?

*==============================================

loop at t_vbrk.
if t_vbrk-fkart = 'ZRE'.
      loop at t_vbrp .
              if t_vbrk-vbeln eq t_vbrp-vbeln .

                     t_vbrp-ntgew = t_vbrp-ntgew * ( -1 ).
                     t_vbrp-netwr = t_vbrp-netwr * ( -1 ) .

                    APPEND T_VBRP.
           endif.

      endloop.       " LOOP AT T_VBRP.
    endif.

endloop.

*==============================================

thanks

Re: infinite loop

Former Member — Tue, 23 Sep 2014 09:41:56 GMT

Hi Faizur,

Add where condition to loop it will reduce some iteration.

YOu can also append the records into some temp internanal table.If you want to modify the T_VBRP use modify statement.

The belwo code will resolve your issue.

*==============================================

loop at t_vbrk.
if t_vbrk-fkart = 'ZRE'.
      loop at t_vbrp where vbeln = t_vbrp-vbeln .
                     t_vbrp-ntgew = t_vbrp-ntgew * ( -1 ).
                     t_vbrp-netwr = t_vbrp-netwr * ( -1 ) .
                MODIFY T_VBRP INDEX SY-TABIX TRANSPORTING ntgew netwr.

endloop. " LOOP AT T_VBRP.
endif.

endloop.

*==============================================

Regards,

Pravin

Re: infinite loop

former_member188724 — Tue, 23 Sep 2014 09:42:31 GMT

Hi,

I guess you are appending t_vbrp again inside t_vbrp Loop which can be the issue.

Rgeards,

K.S.

Re: infinite loop

Former Member — Tue, 23 Sep 2014 09:46:01 GMT

Hi,

AS KS pointed you are appending T_vbrp again and again which is causing loop to be end less, as each pass a new record is appended in same table.

Re: infinite loop

Former Member — Tue, 23 Sep 2014 09:52:20 GMT

As the guys have written above you're APPENDing a new record in T_VBRP, I suppone you want to change a value, so you should use MODIFY:


loop at t_vbrk.
  if t_vbrk-fkart = 'ZRE'.
      loop at t_vbrp .
              if t_vbrk-vbeln eq t_vbrp-vbeln .


                     t_vbrp-ntgew =  t_vbrp-ntgew * ( -1 ).
                     t_vbrp-netwr =  t_vbrp-netwr * ( -1 ) .


                    APPEND T_VBRP.
                    MODIFY T_VBRP.
           endif.


      endloop.       "  LOOP AT T_VBRP.
    endif.
endloop.

For the performance, you should use WHERE condition instead of IF into the LOOP:


loop at t_vbrk WHERE FKART = 'ZRE'.
  if t_vbrk-fkart = 'ZRE'.
      loop at t_vbrp  WHERE VBELN = T_VBRK-VBELN.
              if t_vbrk-vbeln eq t_vbrp-vbeln .


                     t_vbrp-ntgew =  t_vbrp-ntgew * ( -1 ).
                     t_vbrp-netwr =  t_vbrp-netwr * ( -1 ) .


                    APPEND T_VBRP.
                    MODIFY T_VBRP.
           endif.


      endloop.       "  LOOP AT T_VBRP.
    endif.
endloop.

Max