data a;

set tmp;

if input(id,4.)^=.;

run;

楼上的input很好

提供另一种方法

data b;

set temp;

id=compress(id,compress(id,'0123456789'));

run;

[此贴子已经被作者于2007-5-29 18:50:01编辑过]

Here you go again;

data c;

set tmp;

if length(id) = 4;

run;

data a;
input id $4.;
datalines;
0011
1101
2101
广文
南字
;
run;
data b;
set a;
if length(id)=4;
run;

原来变量长度就是4,if length(id)=4;在此处相当于复制原变量,不能起作用.

感谢各位xdjm的关心,尤其是ltjzzyz和windwater，两位的建议使我圆满的解决了问题；

cxu07的方法有点小问题，但还是感谢你的支持．

谢谢大家