hier mal ein kleines beispiel

DECLARE c1 CURSOR FOR
SELECT baum_id, baum_key, baum_vkey, baum_text FROM libd/baum WHERE baum_id = i_id;

OPEN c1;

REPEAT

FETCH c1 INTO l_baum_id, l_baum_key, l_baum_vkey, l_baum_text;

IF sqlcode <> 0 then
.....
ELSE
.....
END IF;

UNTIL ((l_gefunden = 0) OR (l_angelegt = 1)) END REPEAT;

CLOSE c1;
...
...