DECLARE
   htree   ITEM;
   rg_data RECORDGROUP;
BEGIN
   -- Find the tree itself.
   htree := Find_Item('tree1');
 
   -- Find the record group.
   rg_data := FIND_GROUP('RG1');
 
   -- Add the new node at the top level and children.
   Ftree.Add_Tree_Data(htree,
                     Ftree.ROOT_NODE,
                     Ftree.PARENT_OFFSET,
                     Ftree.LAST_CHILD,
                     Ftree.RECORD_GROUP,
                     rg_data);
          
END;