create procedure isDigit (val varchar(100))
returns (digit int)
as
declare variable i int;
begin
   digit = 1;
   begin
     i = cast(val as int);
     when any do
       digit = 0;
   end
   suspend;
end

-- 
Сергей Смирнов.

Ответить