求教：我想把一个8字符的变量，截取成8个变量，新的变量分别对应原变量的一个位数的值，我写的程序如下，但是出不来……
data li;
input tim $8.;
cards;
01001010
10100101
01100110
;
run;
data li2;
  set li;
  %let i=1;
  k=length(tim);
  do while(&i. le k);
    tim&i=substr(tim,&i.,1);
%let i=%eval(&i+1);
  end;
run;

第一个小程序是新弄一个小数据作试验用。第二个程序也不报错，就是不停的运行，感觉好像是死循环了……