Hello @smend,
Try this:
/* Set array dimensions */
%let d1=3;
%let d2=5;
/* Compute minima and prepare a RENAME statement */
data minima(keep=i m);
set have;
length renlist $8000;
array t[&d2] _temporary_;
array l[&d1,&d2] l:;
do i=1 to &d1;
do j=1 to &d2;
t[j]=l[i,j];
end;
m=min(of t[*]);
renlist=catx(' ',renlist,cats('k',i,'_1-k',i,"_&d2=r",i,'_1-r',i,"_&d2 l",
i,'_1-l',i,"_&d2=s",i,'_1-s',i,"_&d2"));
output;
end;
call symputx('renlist',renlist);
run;
proc sort data=minima;
by m;
run;
/* Create new dataset with rearranged array values */
data want(keep=r: s:);
set have;
set have(rename=(&renlist));
array k[&d1,&d2] k:;
array l[&d1,&d2] l:;
array r[&d1,&d2] r:;
array s[&d1,&d2] s:;
do a=1 to &d1;
set minima;
do j=1 to &d2;
r[a,j]=k[i,j];
s[a,j]=l[i,j];
end;
end;
run;
... View more