data test;
input series result;
cards;
1 -1
2 3
3 -4
4 1
5 0
;
run;
data want;
array re[5];
do i=1 to n;
set test nobs=n;
do j=1 to 5;
p=i+j-1;
set test(keep=result rename=(result=re0)) point=p;
if p<=n then re[j]=re0;
else call missing(re[j]);
end;
output;
end;
drop i j re0;
run;