LOOP AT l_i_objek INTO l_s_objek.
l_s_recn = l_s_objek(20).
l_s_actn = l_s_objek+20(20).
SELECT SINGLE recnroot
INTO (l_s_recnroot)
FROM estva
WHERE recn = l_s_recn AND actn = l_s_actn.
IF sy-subrc EQ 0.
SELECT SINGLE subid
INTO l_s_subid
FROM estrh
WHERE recn = l_s_recnroot
AND subcat = 'value'.
IF sy-subrc EQ 0.
value = l_s_subid .
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
Thanks successful advance.
ABAP Development