为了高金币，写一个

data table;
infile cards;
input OBS ID $ WBC1 WBC2 WBC3 Date1 :date9.  Date2 :date9. Date3 :date9.;
format Date1 mmddyy10.  Date2 mmddyy10.  Date3 mmddyy10. ;
cards;
1 001 6734 7890 5698 23JAN2010 09APR2010 15OCT2010
2 002 4234 6759 4386 15FEB2010 01MAR2010 15MAY2010
3 003 9876 10390 8994 09JUL2010 14AUG2010 01NOV2010
;

proc print data= table ;
run;

data table1;
  set table;
  array datexx date1-date3;
  array wbcxx WBC1-WBC3;
  format date  mmddyy10. ;
  do i= 1 to 3 ;
  date= datexx;
  datevar=vname(datexx);
  WBC=wbcxx;
  WBCvar=vname(WBCxx);
  output;
  end;
  drop date1-date3 WBC1-WBC3 i;
run;