Есть древовидня структура таблицы TO_VINOVNIK : (
ID INTEGER DEFAULT 0 NOT NULL,
PARENT_ID INTEGER DEFAULT 0 NOT NULL,
LEVEL_ID INTEGER DEFAULT 0 NOT NULL,
VINOVNIK VARCHAR(30) NOT NULL
)

Есть процедура, которая выдает список всех дочерних элементов, рекурсивная :
(В Interbase)
CREATE PROCEDURE TO_VINOVNIK_GET_CHILDREN (
VINOVNIK_ID INTEGER
) RETURNS (
ID INTEGER
) AS
DECLARE VARIABLE ID1 INTEGER;
DECLARE VARIABLE CHILDCOUNT INTEGER;
BEGIN
SELECT COUNT(*) FROM TO_VINOVNIK
WHERE PARENT_ID=:VINOVNIK_ID
INTO :CHILDCOUNT;
IF (CHILDCOUNT=0) THEN BEGIN
ID=VINOVNIK_ID;
SUSPEND;
END ELSE BEGIN
FOR SELECT ID FROM TO_VINOVNIK
WHERE PARENT_ID=:VINOVNIK_ID
INTO :ID
DO BEGIN
FOR SELECT ID FROM TO_VINOVNIK_GET_CHILDREN(:ID)
INTO :ID1
DO BEGIN
ID=ID1;
SUSPEND;
END
END
END
END

Как написать такую процедуру на Оракле? Уже бьюсь второй день, никак не выходит, помогите...
Вот что написал:

type cd1 is record (id integer);
TYPE CD IS REF CURSOR return cd1;
FUNCTION TO_VINOVNIK_GET_CHILDREN (p_VINOVNIK_ID IN INTEGER) RETURN CD
AS
ID INTEGER;
ID1 INTEGER;
c1 cd;
c2 cd;
CHILDCOUNT INTEGER;
CURSOR v_cur (p_VINOVNIK_ID IN INTEGER) is
select ID from TO_VINOVNIK WHERE PARENT_ID=p_VINOVNIK_ID;

BEGIN
SELECT COUNT(*) INTO CHILDCOUNT
FROM TO_VINOVNIK WHERE PARENT_ID=p_VINOVNIK_ID;
IF (CHILDCOUNT=0) THEN begin
open c1 for select ID from TO_VINOVNIK WHERE ID=p_VINOVNIK_ID;
RETURN C1;
END;
ELSE BEGIN
OPEN V_CUR(p_VINOVNIK_ID);
LOOP
FETCH V_cur INTO ID;
C2:=TO_VINOVNIK_GET_CHILDREN(ID);
EXIT when v_cur%NOTFOUND;
END loop;
RETURN C2;
END;
END IF;
END TO_VINOVNIK_GET_CHILDREN;
Но эта процедура выдает не все значения, а только с последнего прохода.
Но как сделать чтобы выдать весь список?, т.е. добавлять данные в открытый курсор, а потом его вернуть? Буду благодарен за помощь.