数据按客户ID顺序排列还是随机排列的？ 这个很关键

按id，statue,date降序排序，注意字段排序的先后顺序。最后output id.first

/*本程序基于数据顺序排列,账户最初缺省值为开户*/
proc import datafile='e:\text.xls' out=text replace;
run;
data text(drop=a b c);
retain a 0 b 1 c;
set text;
if         custid-b and a=0 then do;
if status then output;
status=a;
date=c;
custid=b;
output;        /*没有销户，显示最大date的观察信息*/
end;
if custid=b and status-a=1 then output;        /*输出销户日期*/
a=status;
b=custid;
c=date;
format date yymmdd10.;
run;