可以不用retain 的
data y;
retain dis;
input dis $ num ;
do i = 1 to num;
output ;
end;
drop i;
cards;
A 20
B 28
C 12
;
run;
data d1 d2 d3;
set y;
if dis = 'A' then output d1;
if dis = 'B' then output d2;
if dis = 'C' then output d3;
run;
或者
data dd1 dd2 dd3;
* retain dis;
input dis $ num ;
if dis ='A' then do;
do i = 1 to num;
output dd1;
end;
end;
if dis ='B' then do;
do i = 1 to num;
output dd2 ;
end;
end;
if dis ='C' then do;
do i = 1 to num;
output dd3;
end;
end;
drop i;
cards;
A 20
B 28
C 12
;
run;
|