data haya;
input a$ x1 x2 x3 x4 x5 x6 x7 x8 ;
cards;
a 0 0 1 0 1 0 0 0
b 0 0 0 1 1 0 0 0
c 0 0 1 0 0 0 0 0
d 0 0 0 1 1 0 0 0
e 0 0 0 1 0 0 0 0
;
run;

data  haya;
set  haya;
cat_x=cat(of x1-x8);

*********转化为字符串;
index=index(cat_x,'1');
drop cat_x;
run;