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;