oracle 字元按位或函數

/*
函數名稱:oracle 字元按位或函數
參數約束:p1與p2的長度必須一致
*/
create or replace function F_BITOR(p1 in string, p2 in string) return varchar2 is
  Result varchar2(16);
  t_p number(3);
  r_p varchar2(16);
  p_p number(3);
  c_1 char(1);
  c_2 char(1);
begin 
  t_p := length(p1);
  p_p := 0;
  loop
      --允出準則
      EXIT WHEN  p_p = t_p;
      --按位取值 
      c_1 := SUBSTR(p1,p_p,1);
      c_2 := SUBSTR(p2,p_p,1);
      --比較後賦值
      if   c_1   >   c_2   then  
          r_p := r_p || to_char(c_1);
      elsif   c_1   <   c_2   then 
          r_p := r_p || c_2;
      else --相等
          r_p := r_p || c_1;
      end if; 
      --位移
      p_p := p_p + 1;
  end loop;
  return(r_p);
end F_BITOR;