如何用macro和循环简化这段select代码？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现有一段select statement的代码，想用macro和循环写得更简洁些：
select;
    when (price > midpoint0) sign=1;
    when (price < midpoint0) sign=-1;
    when (symbol ne lagsymbol1) sign=1;
    when (price > lagprice1) sign=1;
    when (price < lagprice1) sign=-1;
    when (symbol ne lagsymbol2) sign=1;
    when (price > lagprice2) sign=1;
    when (price < lagprice2) sign=-1;
    when (symbol ne lagsymbol3) sign=1;
    when (price > lagprice3) sign=1;
    when (price < lagprice3) sign=-1;
    when (symbol ne lagsymbol4) sign=1;
    when (price > lagprice4) sign=1;
    when (price < lagprice4) sign=-1;

（略）
    when (symbol ne lagsymbol50) sign=1;
    when (price > lagprice50) sign=1;
    when (price < lagprice50) sign=-1;
    otherwise sign=0;
  end;


我初步试过这样写：
%macro lr(counter);
    %do d=1 %to &counter;
    when (symbol ne lagsymbol&d ) sign=1;
    when (price > lagprice&d ) sign=1;
    when (price < lagprice&d ) sign=-1;
    %end;
%mend;

select;
    when (price > midpoint0) sign=1;
    when (price < midpoint0) sign=-1;
    %lr(50);
    otherwise sign=0;
  end;
但是总是报错，说%lr(50)那里expecting WHEN, OTHERWISE or END。也就是说在select statement内部无法激活这个macro。那请问各位大大，有没有别的办法来优化我原本的代码呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Select Elect Macro ect Mac 如何

%macro lr(counter);
     %do d=1 %to &counter;
     when (symbol ne lagsymbol&d ) sign=1;
     when (price > lagprice&d ) sign=1;
     when (price < lagprice&d ) sign=-1;
         %end;
         otherwise;end;
%mend;