Befolkning af træelement med rekordgruppe i Oracle-formularer

DECLARE
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
BEGIN
-- Find selve træet.
htree :=Find_Item('treeblock. htree1');
-- Tjek om rekordgruppen findes.
rg_emps :=Find_Group('emps');
HVIS IKKE Id_Null(rg_emps) SÅ
DELETE_GROUP( rg_emps);
END IF;
-- Opret rekordgruppen.
rg_emps :=Create_Group_From_Query('rg_emps',
'vælg 1, niveau, ename, NULL, to_char( empno) ' ||
'fra emp ' ||
'tilslut ved tidligere empno =mgr ' ||
'start med job =''PRESIDENT''');
-- Udfyld postgruppen med data.
v_ignore :=Populate_Group(rg_emps);
-- Overfør dataene fra postgruppen til det hierarkiske
-- træ og få det vist.
Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
END;