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

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

