请教高手：如何提取某个数值首次出现的位置？

shiyiming

我有一个数据集如下：
data jaccard;
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;

需求如下：我想找到每一行中数值1在变量X1-X8中首次出现的位置，期望结果是：
3
4
3
4
4

显然，可以利用CAT函数和index等函数实现这个需求。代码如下：
data jaccard;
set jaccard;
cat_x=cat(of x1-x8);
index=index(cat_x,'1');
run;

还有比这更好的方法吗？因为如果利用cat函数，最终会受到SAS变量最大字符数的限制（长度不能超过3万多），多谢各位赐教！

shiyiming

谈不上更好,只是个法子
[code:2p9gjofi]data jaccard;
        set jaccard;
        array arr{*} x:;
        do index=1 to dim(arr);
                if arr(index) then leave;
        end;
run;[/code:2p9gjofi]

shiyiming

多谢！果然是个好法子^_^.