hi,

Can you tell me please why this procedure returns nothing ???
But when i look at fields (in IB_SQL) it returns good results.


Alter procedure nb_affectation(pilotenum smallint)
returns(pilnb smallint,nb_aff smallint)
as
declare variable tour smallint;
begin

nb_aff=0;
if ((pilotenum is null) OR (not exists (select 1 from pilote where
idpilote=:pilotenum))) then
exception data_error;
else
begin

for select idpilote
from affectation
where
idpilote=:pilotenum
into : piln
do
begin
nb_aff=nb_aff + 1;
end

suspend;

end
end !!
set term; !!


Thanks,
Akim