data a;
do i=1 to 9;
a1=i;
output;
end;
run;
data a;
        set a;
        b+a1;
        if mod(_n_,3)=0 then do;
                b1=b;
                b=0;
                end;
run;