data result;
  set test;
  array a(12) a1-a12;
  if a(1)=0 then aa=0;
  if a(1)=-1 then aa=-1;
  if a(1)=1 then  aa=1;
  do i=2 to 12;
    if a(i)=0 and aa=0 then
       aa=0;
    else if a(i)=-1 and aa=-1 then
       aa=-1;
    else do ;aa=1;leave;end;
  end;
  drop i;
run;