data a;
array a(1000) $ _temporary_;
do i=1 to 1000;
a(i)=put(i,pib8.);
end;
c=addrlong(a(1));
d=peeklong(c+?,8);
put d= ;
run;

？应该是什么，直接8不行呀