* RAD, 6.26.2001;
* http://www.devenezia.com
* count the number of '1' bits in an integer;

data _null_;
  n = 13;

  nBitsOn = length(compress(put(n,binary32.),'0'));

  put n= n= BINARY32. nBitsOn=;
run;