Oracle प्रपत्रों में रिकॉर्ड समूह के साथ ट्री आइटम को आबाद करना

DECLARE
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
BEGIN
-- ट्री को ही ढूंढें।
htree :=Find_Item('treeblock. htree1');
-- रिकॉर्ड समूह के अस्तित्व की जांच करें।
rg_emps :=Find_Group('emps');
अगर Id_Null(rg_emps) नहीं है तो
DELETE_GROUP( rg_emps);
END IF;
-- रिकॉर्ड समूह बनाएं।
rg_emps :=Create_Group_From_Query('rg_emps',
'select 1, level, ename, NULL, to_char( empno) ' ||
'from emp' ||
'connect by pre empno =mgr' ||
' start with job =''PRESIDENT''');
-- रिकॉर्ड समूह को डेटा से भर दें।
Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
END;