REPORT ZNADAR_BUSCA_INCLUDES .
tables: d010inc.
select-OPTIONS: s_inclu for d010inc-INCLUDE.
data: s_padre like d010inc-INCLUDE.
end-of-SELECTION.
loop at s_inclu.
at first.
s_padre = 'Programa Padre'.
write: / '|', s_padre.
s_padre = 'Include'.
write: '|', s_padre, '|'.
write / sy-uline.
ENDAT.
clear s_padre.
perform busca_include using s_inclu-low
CHANGING s_padre.
write: / '|', s_padre, '|', s_inclu-low, '|'.
endloop.
form busca_include using p_include
CHANGING p_padre.
data: ls_padre like d010inc-INCLUDE.
SELECT SINGLE master into ls_padre FROM D010INC
WHERE INCLUDE = p_include.
if sy-subrc eq 0.
PERFORM busca_include using ls_padre
CHANGING p_padre.
else.
p_padre = p_include.
endif.
endform.