Fórum Firebird existe o first, div, mod ? Como fazer ? #40366

set term ! ;
create procedure sp_distfichas
(
filial integer
)
as
declare variable nrcontrato integer;
declare variable nrcobrador integer;
declare variable nrresto integer;
declare variable i_cont integer;
begin
i_cont= 1;
select count(cod_cob) from cobrador where cod_fil= :filial
into :nrcobrador;
select count(cod_cont) from cliente clien,contrato cont where clien.cod_clien=cont.cod_clien
and cod_cob is null into :nrcontrato;
nrcontrato= div(:nrcontrato,:nrcobrador);
nrresto= mod(:nrcontrato,:nrcobrador);
while (:i_cont<=:nrcontrato) do
begin
update contrato
set cod_cob= (select first 1 skip :i_cont cod_cob from cobrador where cod_fil= :filial)
where cod_cob is null;
i_cont= i_cont+1;
end
end!
set term ; !

Dúvidas :

Dá erro no comando FIRST, ele existe no firebird, se não, como fazer para pegar x registros de uma tabela ?
Esta procedure se refere a distribuição de fichas por cobrador.
Alguém tem uma idéia de como fazer uma procedure que funcione ?
Se não fui bem claro basta postar as perguntas que responda pra facilitar o entendimento.