It was very easy for IML if they are all character variables.
data have;
input (x x1-x3 y y1-y3 z z1-z3) ($);
cards;
A 10 20 30 B 40 50 60 C 70 80 90
;
run;
proc iml;
use have;
read all var _ALL_ into x;
close;
y=shape(x,0,4);
name=repeat(y[,1],1,3);
col1=colvec(name);
col2=colvec(y[,2:4]);
create want var{col1 col2};
append;
close;
quit;
... View more
