如何更新数据集，谢谢！

shiyiming

data aaa;
infile cards missover;
input no var$ value$10.;
cards;
1 age 30
2 time 2009/10/03
3 x1 .
4 x2   
5 x3 正常
;
run;

data bbb;
input no age time x1 x2$ x3$;
format time yymmdd6.;
cards;
1 29 510317 1 y 正常
2 30 681224 2 n 异常
3 26 651128 3 y 异常
4 25 651128 4 n 异常
5 24 651128 5 y 异常
;
run;
/*根据数据集aaa更新数据集bbb中相应的变量值*/

shiyiming

[code:3ps8y79l]data bbb(drop=i var value);
  set aaa;set bbb;
  array _num_{1:3} age time x1;
  array _char_{4:5} $ x2 x3;
  do i=1 to 5;
   if var=choosec(i,'age','time','x1','x2','x3') then do;
      if i le 3 then do;
          if var eq 'time' then _num_(i)=input(value,yymmdd10.);
          else _num_(i)=value;
          end;
          else _char_(i)=value;
          leave;
   end;
  end;
  format time yymmdd6.;
run;[/code:3ps8y79l]

shiyiming

数据集中的变量很多！如何能通用啊！

shiyiming

过程比较繁杂，将就下吧...
[code:14f79ceu]proc sql noprint;
create table test as
select name,type
from dictionary.columns
where libname='WORK' and memname='BBB';
quit;

proc sql noprint;
select name
into:num_list separated by ' '
from test
where name ne 'no' and type eq 'num';
select name
into:char_list separated by ' '
from test
where type eq 'char';
select count(name)-1
into:nn
from test
where type eq 'num';
select count(name)
into:nc
from test
where type eq 'num';
select count(name)-1
into:nv
from test;
quit;
%put  &num_list. &char_list. &nn. &nc. &nv.;

proc sort data=test;
by descending type;
run;

data _null_;
set test(firstobs=2);
array v{&nv};
call symputx(vname(v[_n_]), name);
run;

data bb(keep=no age time x1-x3);
  set aaa;set bbb ;
  array v{&nv};
  array _num_{1:&nn.} &num_list;
  array _char_{&nc.:&nv.} $ &char_list;
  do i=1 to &nv.;
     if var=symget(vname(v[i])) then do;
        if i le &nn. then do;
            if var eq 'time' then _num_(i)=input(value,yymmdd10.);
            else _num_(i)=value;
        end;
        else _char_(i)=value;
        leave;
     end;
  end;
  format time yymmdd6.;
run;
[/code:14f79ceu]