Может кто сталкивался с работой курсоров в этой дивной СУБД
вот пример (написан на основе их хелпа)
CREATE PROCEDURE Del_Risk( IN :DataStop date ) as
Begin
DECLARE c1 CURSOR FOR
select r.RiskID
from Risk r
Inner Join RiskO ro
On ro.RiskID = r.RiskID
Inner Join ContractInsOEx c
On c.ContractID = r.ContractID and
c.StopDate <= :DataStop
where not Exists ( select *
from Loss L
Inner Join LossO Lo
On Lo.LossID = L.LossID
where l.RiskID = r.RiskID) FOR READ ONLY;
Open c1;
START TRANSACTION;
FETCH NEXT FROM c1 INTO :DataStop;
DELETE WHERE CURRENT OF c1;
COMMIT WORK;
CLOSE c1;
End;