data test(drop=i);
        do i=97 to 122;
                x=byte(i);
                        y=x;
                output;
        end;
run;

data test1(drop=temp x y);
set test;
temp=x;
array z(*) $ z1-z26;
do i=1 to last;
set test point=i nobs=last;
z(i)=cats(y,temp);
end;
run;