--drop function bit_string;
--drop function bit_count;
create function bit_string(pValue int) returning char(256);
  define vI int;
  define vX int;
  define vBit smallint;
  define vRes char(300);
  --set debug file to "/tmp/sp.out";
  --trace on;
  let vRes="";
  let vI=0;
  while vI <= 30
    let vX=pow(2,vI);
    let vBit=sysmaster:bitval(pValue,vX);
    let vRes=vBit||trim(vRes);
    let vI=vI+1;
  end while;
  return vRes;
end function
document "Return a string with bit from parameter pValue"
;
grant execute on procedure bit_string to public
;


create function bit_count(pValue int) returning smallint;
  define vI int;
  define vX int;
  define vBit smallint;
  define vRes smallint;
  let vRes=0;
  let vI=0;
  while vI <= 30
    let vX=pow(2,vI);
    let vBit=sysmaster:bitval(pValue,vX);
    let vRes=vBit+vRes;
    let vI=vI+1;
  end while;
  return vRes;
end function
document "Return a number with how much bits are active from parameter pValue"
;
grant execute on procedure bit_count to public
;

execute function bit_count(29);

(expression)

           4

1 row(s) retrieved.

 execute function bit_string(29);


(expression)  0000000000000000000000000011101

1 row(s) retrieved.