Skip to Content
0
Former Member
Feb 16, 2009 at 08:04 AM

Recursive call

42 Views

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