|
|
沙发
楼主 |
发表于 2010-3-20 15:53:31
|
只看该作者
Re: 求教一个数据输出的问题，感谢
[code:1s94s4jp]data raw;
input ID $ number;
datalines;
R1 2
R1 3
R2 4
R2 1
R2 6
R1 8
;
proc sort data=raw;
by id number;
run;
data temp(keep=id error);
retain id error;
length error $50;
set raw;
by id;
start=sum(lag(number),1);
if first.id then start=1;
end=number-1;
select;
when (start=end) error=cat('number ',start,' was missing');
when (start<end) error=cat('number ',start,'-',end,' were missing');
otherwise delete;
end;
run;[/code:1s94s4jp] |
|
