data IN;
input rec_ID $ X1 - X5;
cards;
A 34 45 78 54 78
B 89 56 80 37 99
;
run;
proc print;
run;
title2' dataset IN ';

proc transpose data=IN out=tposed; id rec_ID;
var X1-X5;
run;
proc print data=tposed;
title2 ' dataset tposed ';
run;

data tposed;
set tposed;
Time+1;
run;
proc print;
title2 ' dataset tposed with Time';
run;

proc corr data=tposed out=corr_out noprint;with Time;
var A B;
run;

data corr_out1;
set corr_out;
drop _Name_;
if _TYPE_='MEAN' then delete;
if _TYPE_='STD' then delete;
if _TYPE_='N' then delete;
rename _TYPE_ = Coeff_for_ID;
run;

proc print data=corr_out1;
title2 ' Corr. Coeff for rec_IDs ';
run;