用proc transpose 简单些, 用 array in data step 也可以做。

data a;
input code  $     date : yymmdd10.    price;
format date yymmdd10.;
cards;
  000001  2007-10-16    15
  000001  2007-10-17    16
  000001  2007-10-18    14
  000001  2007-10-19    15
  000002  2007-10-15    19
  000002  2007-10-16    17
  000002  2007-10-17    19
  000002  2007-10-18    12
  000002  2007-10-19    19
;
run;
proc sort data=a;
by date code;
run;
proc transpose data=a out=b prefix=code;
id code;
by date;
var price;
run;
proc print data=b;
run;

行了，非常感谢！这个论坛真不错，以后就在这里混啦~

接2楼的，我用array做!!大家批评指正!

proc sort data=a;
by date;
data a(drop=n price code);
set a;
by date;
if first.date then n=1;
else n+1;
if first.date=last.date then n=2;
array code00000(2);
retain code000001;
code00000(n)=price;
if last.date;
run;