DB2的函数（实现按位与或）

  CREATE   TABLE  mytab
       (name  varchar ( 30 )  not   null ,
        age   int   not   null ,
        flag1  smallint   NOT   NULL ,      
        flag2  smallint   NOT   NULL ); 
        

select  NAME, AGE, FLAG1, FLAG2
   from  UU.MYTAB;
  
  --转化为二进制
CREATE   FUNCTION  int_to_binary (N1  Integer )
RETURNS   varchar ( 32 )
LANGUAGE SQL
SPECIFIC int2bin
BEGIN  ATOMIC
DECLARE  M1, i,  len    Integer   default   0 ;
DECLARE   temp_str  varchar ( 32 )  default   '   ' ;
DECLARE   result_str  varchar ( 32 )  default   '   ' ;
   SET  M1  =  N1;
   WHILE   M1  >   0   DO
    SET  temp_str  =  temp_str  ||   cast (mod(m1, 2 )  as   char ( 1 ));
    set  m1  =  m1 / 2 ;
   END   WHILE ;
     set   len   =  length (temp_str);
     while  i  <   len  do
        set  result_str  =  result_str  ||  substr(temp_str, len - i, 1 );
        set  i  =  i + 1 ;
     end   while ;
RETURN  result_str;
END  


select  int_to_binary( 8 )  from  mytab;

drop   function  int_to_binary;

--按位与

--按位或
CREATE   FUNCTION  BITOR (N1  Integer , N2  Integer )
RETURNS   Integer
LANGUAGE SQL
SPECIFIC BITORCONV  
BEGIN  ATOMIC
DECLARE  M1, M2, S , temp1  Integer ;
DECLARE  RetVal  Integer   DEFAULT   0 ; 
SET  (M1, M2, S)  =  (N1, N2,  0 );   
WHILE  ( M1  >   0   OR  M2  >    0 )  AND  S  <   32  DO  
       IF  MOD(M1, 2 ) = 0   AND  MOD(M2, 2 ) = 0   THEN
            SET  temp1 =   0 ;
       ELSE
             SET  temp1 = 1 ;
       END   IF ;
   SET  RetVal  =  RetVal  +  temp1 * power ( 2 ,S);
   SET  (M1, M2, S)  =  (M1 / 2 , M2 / 2 , S + 1 );
END   WHILE ;   
RETURN  RetVal;
END  

select  BITAND( 8 , 12 )  from  mytab;

CREATE   FUNCTION  BITAND (N1  Integer , N2  Integer )
RETURNS   Integer
LANGUAGE SQL
SPECIFIC BITANDOracle
CONTAINS  SQL
NO EXTERNAL ACTION
DETERMINISTIC
BEGIN  ATOMIC
DECLARE  M1, M2, S  Integer ;
DECLARE  RetVal  Integer   DEFAULT   0 ;
SET  (M1, M2, S)  =  (N1, N2,  0 );
WHILE  M1  >   0   AND  M2  >   0   AND  S  <   32  DO
    SET  RetVal  =  RetVal  +  MOD(M1, 2 ) * MOD(M2, 2 ) * power ( 2 ,S);
    SET  (M1, M2, S)  =  (M1 / 2 , M2 / 2 , S + 1 );
END   WHILE ;
RETURN  RetVal;
END  

select  BITAND( 8 , 12 )  from  mytab;
select   power ( 2 , 4 )  from  mytab;
       
      
drop   function  BIT_OR;

 

不过现在内存空间大了，像这样巧的按位操作来实现的方法似乎已经过时了，哎~~ 进行途中就放弃了写这样的函数来实现按位的操作。这样的设计大大的影响了索引的效率。