是出现一次就算一次，会有date3， date4， date5~~~

我只会笨方法....先 求出最大会出现几个,然后再用数组赋值...

proc sql;
create table a;
select num, count(num) as no
from b
group by num;
proc sql;
select max(no) into n
from a;
quit;

do result;
set b;
by num;
retain no;

array date date(1) - date(n);
if first.num then no=0;
no=no+1;
do i = 1 to &n.;
if i = no then date(i) = date;
end;
if last.num;
run;
你试试，我还没调试过

试过了，程序不能运行~~~

do result;
set b;
by num;
retain no;——这一步没看懂

array date date(1) - date(n);——好像不能这么写的吧？

用transpose是最好的理解起来也最方便,给你程序.
data work.a;
        input num $ date yymmdd10.;
        format date yymmdd10.;
        datalines;
600203 2012-01-01
600203 2012-01-15
600204 2012-01-14
600205 2012-01-04
600205 2012-01-19
600206 2012-01-03
600206 2012-01-28
600207 2012-01-05
600208 2012-01-09
;
run;

proc sort data = work.a;
        by num date;
run;

proc transpose data = work.a out = work.c(drop = _NAME_);
        by num;
        var date;
run;

proc sql noprint;
        create table work.b as
                select num,count(date) as count
                from work.a
                group by num;
quit;

data work.d;
        merge work.c work.b;
        by num;
run;

谢谢，不过用transpose 会把重复的算进去的，怎样踢出重复值呢~~~

retain no.  就是保持no 在下一条记录的值与这一条不变。这样能做到每出现一次加一次1

  array date date_1 - date_&n.   这样应该可以， 你试试

data ex;
input num date:$10.;
cards;
    600203                2012-01-01
    600203                2012-01-15
    600204                2012-01-14
    600205                2012-01-04
    600205                2012-01-19
    600206                2012-01-03
    600206                2012-01-28
    600207                2012-01-05
    600208                2012-01-09
        ;
        run;
data _null_;
length char $1000 ;
if _n_=1 then do;
declare hash h();
h.definekey('num');
h.definedata('num','char','cishu');
h.definedone();
end;
set ex;
if h.find() ne 0 then do;
char=date;
cishu=1;
h.add();
end;
else do;
char=compress(char||','||date);
cishu=cishu+1;
h.replace();
end;
h.output(dataset:'ex1');
run;
proc sql noprint;
select max(cishu) into:count from ex1;
quit;
%macro fenge;
%do nn=1 %to &count;
date&nn=scan(char,&nn,',');
%end;
%mend;
data ex2;
set ex1;
length  date1-%sysfunc(compress(date&count)) $10;
%fenge;
run;

程序已解决，多谢各位大牛~~

data a;
input number $ date yymmdd10. @@;
format date yymmdd10.;
cards;
600203 2012-01-01
600203 2012-01-15
600204 2012-01-14
600205 2012-01-04
600205 2012-01-19
600206 2012-01-03
600206 2012-01-28
600207 2012-01-05
600208 2012-01-09
;
run;

proc sort data=a;
by number;
run;

data b;
set a;
by number;
if first.number=1 then cishu=1;
else cishu+1;
run;

data c(rename=(date=date1)) d(rename=(date=date2));
set b;
if cishu=1 then output c;
if cishu=2 then output d;
run;

data e;
retain number date1 date2 cishu;
merge c d;
by number;
run;




data a;
input number $ date yymmdd10. @@;
format date yymmdd10.;
cards;
600203 2012-01-01
600203 2012-01-15
600204 2012-01-14
600205 2012-01-04
600205 2012-01-19
600206 2012-01-03
600206 2012-01-28
600207 2012-01-05
600208 2012-01-09
;
run;

proc sort data=a;
by number;
run;

proc transpose data=a out=b(drop=_NAME_  rename=(COL1=date1 COL2=date2));
by number;
var date;
run;

data c;
set b;
if date1 ne . and   date2 ne .  then cishu=2;
else cishu=1;
run;

呵呵，来晚了。用下面的方法，可以更general一些，随便你有多少date

已解决，多谢~~~

data a;
input number $                date:yymmdd10. ;
cards;
600203                2012-01-01
    600203                2012-01-15
    600204                2012-01-14
    600205                2012-01-04
    600205                2012-01-19
    600206                2012-01-03
    600206                2012-01-28
    600207                2012-01-05
    600208                2012-01-09
;
run;
  
proc transpose data=a out=ta(drop=_name_) prefix=date;  
var date;
by number;
run;
data b;
set ta;
cishu=n(of date:);
run;

data a;
input number $                date:yymmdd10. ;
cards;
600203                2012-01-01
    600203                2012-01-15
    600204                2012-01-14
    600205                2012-01-04
    600205                2012-01-19
    600206                2012-01-03
    600206                2012-01-28
    600207                2012-01-05
    600208                2012-01-09
;
run;
  
proc transpose data=a out=ta(drop=_name_) prefix=date;  var date; by number; run; data b; set ta; cishu=n(of date:); run;

哈哈，我也想了一个，不谋而合

data a;
        input number $10. date $10.;
        datalines;
    600203  20120101
    600203  20120115
    600204  20120114
    600205  20120104
    600205  20120119
    600206  20120103
    600206  20120128
    600207  20120105
    600208  20120109
run;

proc sort data=a;by number date;run;

proc transpose data=a out=a_vt(drop=_: rename=(col1=date1 col2=date2));
        by number;
        var date;
run;

这样就可以了