SET TERM ^ ;
CREATE PROCEDURE P_CZYTELNICY(dataur DATE)
RETURNS(WYNIK INTEGER)
AS 
BEGIN FOR 
   select count(*)
   from osoby
   where dataur >= :DATAUR
   INTO :WYNIK
   
   DO SUSPEND;
END
^
SET TERM ; ^

select * from P_CZYTELNICY('01/01/1965');

