topic Re: Recursive call in Application Development and Automation Discussions

Recursive call

Former Member — Mon, 16 Feb 2009 08:04:52 GMT

Hi Experts,

In my program recursive call was used. that perform will call upto infinite time running,

I am using this is first time can u plz help. I given below code.

LOOP AT i_orgeh INTO wa_orgeh.

PERFORM set_node_level USING wa_orgeh-orgeh 0.

ENDLOOP.

FORM set_node_level USING

fp_orgson TYPE ty_orgeh_rel-orgson

fp_level TYPE ty_orgeh_rel-level.

DATA : l_1levelup TYPE ty_orgeh_rel-level.

LOOP AT i_orgeh_rel INTO wa_orgeh_rel

WHERE orgson = fp_orgson.

IF fp_level < wa_orgeh_rel-level.

wa_orgeh_rel-level = fp_level.

MODIFY i_orgeh_rel FROM wa_orgeh_rel

INDEX sy-tabix

TRANSPORTING level.

ENDIF.

l_1levelup = fp_level + 1.

v_1levelup = l_1levelup.

PERFORM set_node_level USING fp_orgson l_1levelup.

ENDLOOP.

ENDFORM. " SET_NODE_LEVEL

Re: Recursive call

Former Member — Mon, 16 Feb 2009 08:06:37 GMT

Hi,

U are calling form within form defintion also,give a condition to exit.

Re: Recursive call

viquar_iqbal — Mon, 16 Feb 2009 08:08:15 GMT

In the form use if sy-subrc ne 0 .

exit.

endif.

so it will exit.

Thanks

Viquar Iqbal

Re: Recursive call

Former Member — Mon, 16 Feb 2009 08:24:10 GMT

Hi,

LOOP AT i_orgeh INTO wa_orgeh.
PERFORM set_node_level USING wa_orgeh-orgeh 0 sy-tabix.
ENDLOOP.

FORM set_node_level USING
fp_orgson TYPE ty_orgeh_rel-orgson
fp_level TYPE ty_orgeh_rel-level
fp_tabix type sy-tabix.

DATA : l_1levelup TYPE ty_orgeh_rel-level,
l_tabix like sy-tabix.

LOOP AT i_orgeh_rel INTO wa_orgeh_rel FROM fp_tabix
WHERE orgson = fp_orgson.

IF fp_level < wa_orgeh_rel-level.
wa_orgeh_rel-level = fp_level.

MODIFY i_orgeh_rel FROM wa_orgeh_rel
INDEX sy-tabix
TRANSPORTING level.
ENDIF.

l_1levelup = fp_level + 1.
v_1levelup = l_1levelup.

PERFORM set_node_level USING fp_orgson l_1levelup l_tabix.

ENDLOOP.

ENDFORM. " SET_NODE_LEVEL

This should not give an infinite call to recursion... please check.

if its changing the requirement then please do let us know about the requirement.... with example.

Regards,

Siddarth

Re: Recursive call

Former Member — Mon, 16 Feb 2009 08:31:40 GMT

Hi Srinu ,

you please try this -

* LOOP AT i_orgeh INTO wa_orgeh.                       " Comment that
PERFORM set_node_level USING wa_orgeh-orgeh 0.
*ENDLOOP.                                                         " Comment that

FORM set_node_level USING
fp_orgson TYPE ty_orgeh_rel-orgson
fp_level TYPE ty_orgeh_rel-level.

DATA : l_1levelup TYPE ty_orgeh_rel-level.

LOOP AT i_orgeh_rel INTO wa_orgeh_rel
WHERE orgson = fp_orgson.

IF fp_level < wa_orgeh_rel-level.
wa_orgeh_rel-level = fp_level.

MODIFY i_orgeh_rel FROM wa_orgeh_rel
INDEX sy-tabix
TRANSPORTING level.
ENDIF.

l_1levelup = fp_level + 1.
v_1levelup = l_1levelup.

If sy-index = 1.                                      " Add this line
PERFORM set_node_level USING fp_orgson l_1levelup.      
endif.                                                   " Add this line
ENDLOOP.

ENDFORM. " SET_NODE_LEVEL

Thanks and regards

Pinaki

Re: Recursive call

Former Member — Mon, 16 Feb 2009 09:19:40 GMT

Hi siddarth,

As per you send that code also giving same problem. If yuou have any idea plz help me.

Re: Recursive call

Former Member — Mon, 16 Feb 2009 09:33:11 GMT

Hi ,

I am geting problem in " IF fp_level < wa_orgeh_rel-level." this condition.

Thanks

Srinu

Re: Recursive call

Former Member — Mon, 16 Feb 2009 12:31:58 GMT

Hi,

I tried finding out the reason, but unable to as i dont have the table fields and other things,

if possible would you please paste the whole code so that I can look into it and then give you the right solution of it...

Regards,

Siddarth

Re: Recursive call

Former Member — Mon, 16 Feb 2009 13:09:36 GMT

Hi siddarth,

can u give me u r mail id. i will sent code. that is better for us.

Re: Recursive call

Former Member — Mon, 16 Feb 2009 13:14:50 GMT

Any organization has only few levels .. say upto 10 or 20 levels (top or bottom) .. please check how

many levels are there in your org ..

else there is some error in picking up of data in your internal table "i_orgeh"

check as below ..

if l_1levelup > some_number.

exit.

endif.

Re: Recursive call

Former Member — Mon, 16 Feb 2009 13:16:16 GMT

Hi,

I think it would be better if we can do this in forum as it would be against the rule of the sdn forum...

you can paste the code here, or code which ever is necessary to run and get the desired result and also please tell me the exact requirement as well

Regards,

Siddarth

Re: Recursive call

Former Member — Wed, 04 Mar 2009 13:15:31 GMT

thanx