create procedure factcursor( in par int)
language sql
result sets  1 
begin
	declare cdn cursor with return to caller for
		select d1,d2,d2,summa 
		from fact
			where d1=factcursor.par
				and d2=factcursor.par
					and d3=factcursor.par with ur;

	open cdn;		

end
@

connect to test@

drop procedure getcur(int,decimal( 17 , 2 ))@

create procedure getcur(in par int,out total decimal( 17 , 2 ))
language sql
result sets  1 
begin

	declare d1 int;
	declare d2 int;
	declare d3 int;
	declare state int;
	declare summa decimal( 17 , 2 );
	declare RESULTSET result_set_locator varying;

	call factcursor(par);

	associate result set locators(RESULTSET) 
		with procedure factcursor;

	allocate rscdn cursor for result set RESULTSET;

	set total= 0 ;
	set state= 0 ;
	begin
		declare continue handler for not found set state=- 1 ;
		l: loop
			fetch rscdn into d1,d2,d3,summa;
			if (state=- 1 ) then 
				leave l; 
			end if;
			set total=total+summa;
		end loop;
	end;
	close rscdn;			

end
@

commit@