data have;
array test{*}p_5_1-p_5_10;
do k=1 to 100;
do i=1 to dim(test);
test{i}=ceil(ranuni(-1)*68);
end;
output;
end;
drop i k;
run;
data want; set have;
array test{*}p_5_1--p_5_10;
array _ind{*} ind1-ind68;
do i=1 to dim(test);
_ind{test{i}}=1;
end;
drop i;
run;