DATA news;
INFILE 'old.txt'
INPUT id years @@;
RUN;

data test;
input a $ @;
do i =1 to 3;
input b $ @@;
output;
end;
drop i;
cards;
a 1990a 1991a 1992a
b 1990b 1991b 1992b
c 1990c 1991c 1992c
;
run;

data test;
input a $ b1 $ b2 $ b3 $;
cards;
a 1990a 1991a 1992a
b 1990b 1991b 1992b
c 1990c 1991c 1992c
;
run;
data b1(keep=a b1 ) b2(keep=a b2) b3(keep=a b3) ;
set test;
run;
proc sql noprint;
create table changjiang as
select * from b1
union
select * from b2
union
select * from b3
quit;

data old;
input id $ v1 $ v2 $ v3 $;
datalines;
a 1990a 1991a 1992a
b 1990b 1991b 1992b
c 1990c 1991c 1992c
;
proc transpose data=old out=new (drop=_name_ rename=(col1=year));
    by id;
    var v1 v2 v3;
run;