create or replace function rdot(str in varchar2) 
return integer 
is
  Result integer;
  I int;
begin
  for I in 1..5 
  loop
    if I>length(str) or substr(str,length(str)-I,1)='.' then exit; 
    end if;
  end loop;
  if I<length(str)-1 then
   Result:=I+1;
  else 
   Result:=0;
   end if;
  return (Result);
end rdot;
/