请教大家，如何简化如下这个命令？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请教大家，如何简化如下这个命令？

data tmp9;set tmp8;
if 2000=<year<=2002 then p2002=1;
if 2001=<year<=2003 then p2003=1;
if 2002=<year<=2004 then p2004=1;
if 2003=<year<=2005 then p2005=1;
if 2004=<year<=2006 then p2006=1;
if 2005=<year<=2007 then p2007=1;
if 2006=<year<=2008 then p2008=1;
if 2007=<year<=2009 then p2009=1;
if 2008=<year<=2010 then p2010=1;
if 2009=<year<=2011 then p2011=1;
if 2010=<year<=2012 then p2012=1;
if 2011=<year<=2013 then p2013=1;
if 2012=<year<=2014 then p2014=1;
if 2013=<year<=2015 then p2015=1;
if 2014=<year<=2016 then p2016=1;
run;

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Data tmp Set 2011

用宏

1. %macro a();
   
2.         data tmp9;set tmp8;
   
3.                 %do i = 2000 %to 2014;
   
4.                         if &i.=<year<=%eval(&i.+2) then p%eval(&i.+2)=1;
   
5.                 %end;
   
6.         run;
   
7. %mend;
   
8. %a();

复制代码

除了宏，也可以考虑用数组。

start= 1999;
array myar(*) p2002-p2016;
do i = 1 to dim(myar);
    myar(i) = 0;
   if (start + i) <= year <= (start +2 + i) then myar(i) =1;
end;   

Strive、 发表于 2017-4-24 18:50
用宏

非常感谢您的帮助！

foocares 发表于 2017-4-24 21:52
除了宏，也可以考虑用数组。

start= 1999;

谢谢您的程序！挺好用！