Umwandlung einer Dezimalzahl in eine Binärzahl

Für jeden der mal eine Dezimalzahl in eine Binärzahl innerhalb eines Select oder PL/SQL Programms umwandeln will hier eine kleine PL/SQL-Function (funktioniert nach der Restwertmethode):

create or replace function dec2bin(p_nr in number) return varchar2 is
   v_erg  number;
   v_rest number;
 begin
   v_erg  := trunc(p_nr/2);
   v_rest := mod(p_nr,2);
   if v_erg > 0 then
     return(dec2bin(v_erg)||v_rest);
   else
     return(v_rest);
   end if;
 end dec2bin;
 /