本次重点：data步循环与控制
涉及：if/then/else语句，select语句，do语句，continue语句，leave语句
1.if then else 语句
高效率的if应用：
1）
If x=1 then y=1;
Else if x=2 then y=2;
Else y=3;
对于每一个数据集的观测，if-then-else只会判断一次，为真则执行
2）
If status=1 then
If status=5 then
If status=9 then output;
高效率：包含一个序列if-then语句，只要其中有一个if为假，则程序将不再执行下面的if语句
If status=1 and status=5
andstatus=9 then output;则无效率，需要判断所有的条件
3）
If status in (1,5,8,9) then newstat="single";
Else newstat=‘not single‘
高效率：对于在in算符里面的表达式，只要有一个为真，则sas就执行后面的语句
如果用or语句的形式，则需要判断所有的条件是否为真，效率则低
2.select语句
libname chapt6 ‘f:\data_model\book_data\chapt6‘;
data fishdata4;
set chapt6.fishlength(keep=location date _name_ measurement);
by location date;
array tr[1:4] length1-length4;
retain length1-length4;
if first.date then do i=1 to 4;
tr(i)=0;
end;
select(_name_);
when (‘length1‘) length1=measurement;
when (‘length2‘) length2=measurement;
when (‘length3‘) length3=measurement;
when (‘length4‘) length4=measurement;
otherwise;
end;
if last.date;
keep location date length1-length4;
run;
拉直数据，相当于行转列；
中间黄色部分也可以用select的另一种方式：
select;
when (_name_=‘length1‘)
length1=measurement;
when (_name_=‘length2‘)
length2=measurement;
when (_name_=‘length3‘)
length3=measurement;
when (_name_=‘length4‘)
length4=measurement;
otherwise;
end;
3.do语句
1） do组语句
Do;
执行程序块；
end；
常用于和if then/else语句中
2）do循环语句
Do i=1 to 10;
Do i=1 to exit;
Do i=1 to n-1;
Do i=1 to 100 by 10; --规定步长
Do i=1 to 20 by 2 until (x>y); --每次循环后被计算
Do i=10 to 0 by -1 while(month=‘JAN‘); --每次循环前计算
3）do
while语句 循环前判断条件
n=0;
Do while (n<5);
Put n=;
n 1;
End;
4)do until 语句 在循环后计算，故循环至少被执行一次
n=0;
Do until(n>=5);
Put n=;
n 1;
End;
商业实战;
libname ch7 ‘f:\data_model\book_data\chapt7‘;
proc sort data=ch7.smooth;by cid month;run;
data smooth;
set ch7.smooth;
by cid;
array lags(12);
lags(1)=lag(balance);
do i=2 to 12;
lags(i)=lag(lags(i-1));
end;
do j=12 to 2 by -1;
if j gt cns then lags(j)=.;
put j=;
end;
if first.cid then do
cns=0;
do i=1 to 12;lags(i)=.;
end;
end;
cns 1;
mean6=mean(of lags1-lags6);
mean12=mean(of lags1 - lags12);
run;
计算每个客户在每个月前6个月和前12个月移动平均余额；
4.控制语句
continue语句和leave语句
data a;
do i=1 to 20;
sumx i;
if sumx le 15 then continue;
output;
end;run;
当sumx<15时跳出本次循环，因而最后返回的是最后的15条数据
data a;
do i=1 to 10;
sumx i;
if sumx gt 15 then leave;
output;
end;
run;
当sumx大于15时，结束循环，故只输出前5条数据
注：
continue停止当前循环继续下一次循环；
leave跳出当前循环，执行下一个sas语句；
continue值能在do循环中；
leave语句可以同do循环活select语句共同使用。