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;