A function for generate a actual tree select

Question

hi,
i tried to write a function that generate a actual tree select and i think this is very helpful
Create Or Replace Function Generate_Tree_Fun(p_Path Varchar2,
p_Delimiter Varchar2,
p_Level Integer,
p_Tbl_Name Varchar2,
p_Parent_Field Varchar2,
p_Child_Filed Varchar2)
Return Varchar2 Is
v_Txt Varchar2(5000) := '';
v_Row_Num Number;
v_Max_Count Number;
v_Child Varchar2(100);
v_Parent Varchar2(100);
v_Level Number := p_Level;
Begin
If (v_Level = 1) Then
Return '';
End If;
If (v_Level > 1) Then
v_Txt := '|' || Lpad('_', 6, '_');
End If;
If (v_Level > 2) Then
For i In 1 .. p_Level - 2 Loop
v_Level := v_Level - 1;
v_Child := Ltrim(Regexp_Replace(p_Path,
Ltrim(Replace(p_Path,
p_Delimiter,
')(' || p_Delimiter) || ')',
'\' || v_Level),
p_Delimiter);
Execute Immediate 'Select t.' || p_Parent_Field || '
From ' || p_Tbl_Name || ' t
Where t.' || p_Child_Filed || ' = :1'
Into v_Parent
Using v_Child;
Execute Immediate 'Select a, b From (Select Row_Number() Over(Order By t.' ||
p_Child_Filed ||
') a,Count(1) Over(Partition By t.' ||
p_Parent_Field || ') b,t.' || p_Child_Filed ||
',t.' || p_Parent_Field || ' From ' || p_Tbl_Name ||
' t Where t.' || p_Parent_Field ||
' = :1 Order By t.' || p_Child_Filed || ') Where ' ||
p_Child_Filed || ' = :2 '
Into v_Row_Num, v_Max_Count
Using v_Parent, v_Child;
If (v_Row_Num <> v_Max_Count) Then
v_Txt := Rpad('|', 20, ' ') || v_Txt;
Else
v_Txt := Rpad(' ', 20, ' ') || v_Txt;
End If;
End Loop;
End If;
Return v_Txt;
End;
select Generate_Tree_Fun(sys_connect_by_path(e.empno,','),',',level,'emp','mgr','empno') || e.ename
from emp e
start with mgr is null
connect by e.mgr=prior e.empno
enjoy it

Answer 1

Arash wrote:
hi,
i tried to write a function that generate a actual tree select and i think this is very helpful
We are so proud of you!