DECLARE
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
COMMENCER
-- Trouver l'arbre lui-même.
htree :=Find_Item('treeblock. htree1');
-- Vérifie l'existence du groupe d'enregistrements.
rg_emps :=Find_Group('emps');
IF NOT Id_Null(rg_emps) THEN
DELETE_GROUP( rg_emps);
END IF;
-- Créer le groupe d'enregistrements.
rg_emps :=Create_Group_From_Query('rg_emps',
'select 1, level, ename, NULL, to_char( empno) ' ||
'from emp ' ||
'connecter par prior empno =mgr ' ||
'commencer par job =''PRESIDENT''');
-- Remplir le groupe d'enregistrements avec des données.
v_ignore :=Populate_Group(rg_emps);
-- Transférer les données du groupe d'enregistrements vers l'arborescence
-- hiérarchique et provoquer son affichage.
Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
END;
