data _null_;
a=3;
b=put(3,binary.);
c=length(b);
put a b c;
call symputx('c',c);
i=1;
array x{&c};
do while (i<=c);
x(i)=substr(b,1,i);
put x1-x8;
i+1;
end;

run;

%put &c;