Decimal To Binary Converting

 CREATE OR REPLACE FUNCTION decimal_to_binary ( ln_num      NUMBER)
  RETURN NUMBER
  IS   
   ln_unit      NUMBER;
   ln_input    NUMBER;
   i               NUMBER  := 0;
   ln_out      NUMBER  := 0;
   BEGIN  
   ln_input := ln_num;       
  WHILE ln_input > 0         
  LOOP
  ln_unit    := MOD( ln_input, 2 );    
  ln_input  := TRUNC(ln_input/2); 
  ln_out := TO_NUMBER(ln_unit * power(10,i) + ln_out);      
  i:= i+1;
  END LOOP;  
  RETURN(ln_out);
  END;
    /

FUNCTION dec_to_bin (decin IN NUMBER)
RETURN VARCHAR2
IS
v_decin NUMBER;
v_next_digit NUMBER;
v_result VARCHAR (2000);
BEGIN
v_decin := decin;
WHILE v_decin > 0
LOOP
v_next_digit := MOD (v_decin, 2);
v_result := TO_CHAR (v_next_digit) || v_result;
v_decin := FLOOR (v_decin / 2);
END LOOP;
RETURN v_result;
END dec_to_bin;