Рекурсивная работа с деревьями

[Guardian777]

Использую Firebird 1.5
Windows Xp Prof
Написал процедуру которая делает выборку конкретной ветки из дерева, но почему то результатом выполнения является только 2 уровня вложения.
Вот ее код

Код: Выделить всё

create procedure LOAD_TREE (
    KODGR integer) 
returns (
    KOD_GROUP integer,
    NAMEGROUP varchar(60) character set WIN1251,
    VHOD integer) 
as
begin
  Select kodgroup,namegroup,vhod from group where kodgroup = :kodgr
   into  :kod_group,:namegroup,:vhod;
      suspend;

    for select kodgroup,namegroup,vhod from group where (vhod = :kodgr)
        into  :kod_group,:namegroup,:vhod do
      begin
        execute procedure load_tree(:kod_group) returning_values  :kod_group,:namegroup,:vhod;
        suspend;
      end

end

Вот таблица

Код: Выделить всё

 TABLE GROUP (
    KODGROUP  INTEGER NOT NULL,
    NAMEGROUP      VARCHAR(100),
    VHOD           INTEGER )

При просмотре ее работы через отладчик в IBExperte видно что она заходит в дочернии но их в конечном запросе не появляется.
В чем может быть проблема ?
Заранее благодарю за ответ

[Guardian777]

Вопрос снят.
Продерура отрабатывает вот в таком исполнении:

Код: Выделить всё

create procedure LOAD_TREE (
    KODGR integer) 
returns (
    KOD_GROUP integer,
    NAMEGROUP varchar(60) character set WIN1251,
    VHOD integer) 
as
begin
  Select kodgroup,namegroup,vhod from group where kodgroup = :kodgr
   into  :kod_group,:namegroup,:vhod;
      suspend;

    for select kodgroup from group where (vhod = :kodgr)
        into  :kod_group do
      begin
      for select * from load_tree(:kod_group) Into  :kod_group,:namegroup,:vhod do suspend;
      end
end

[kdv]

ага.
www.ibase.ru/devinfo/sp_call.htm