求助！在数据步中调用另外一个宏

shiyiming

比如有两个数据集，t1,如下：
r1        r2        r3        r4        r5                                       
1.1        1.4        1.3        1.5        1.9                                       
t2，如下：
s1        s2        s3        s4        s5        s6        s7        s8        s9        s10
1.12        1.34        1.38        1.45        1.69        1.6        1.4        1.2        2.4        2.8


现在要从这两个数据集中计算出一个数，规则是这样的，i从1到11，若i=1,则y=r1对应的数1.1，若i=1.5,则取r1和r2的均值，若i=2.5，则取r2和r3的均值，若i>5，则要从t2中取，规则一样，若i=8.5，则取s8和s9的均值,若i>10,则取0.

我是通过在数据步中调用另一个宏，但总通过不了，请问各位高手，问题出在哪？

程序如下：

%macro aaa;
%do i=1 %to 11 %by 0.5;
data _null_;
set t1;
array r(*) _all_;
do j=1 to dim(r);
if &i.<=dim(r) and j<=&i. and j>(&i.-1) then y=(r(j)+r(j+1))/2;
if &i.>dim(r) then do;
%bbb;
y=&yy.;
end;
run;
call symput("y",y);
%put _user_;
%mend aaa;
%aaa;

%macro bbb;
data _null_;
set t1;
array s(*) _all_;
do j=1 to dim(s);
if &i.<=dim(s) and j<=&i. and j>(&i.-1) then yy=(s(j)+s(j+1))/2;
if &i.>dim(s) then yy=0;
call symput("yy",yy);
end;
run;
%mend bbb;

shiyiming

貌似宏变量yy是局部的，是不是先定义%global yy;

shiyiming

感谢楼上的回复，但是不是问题所在，请各位高手指点一下 <!-- s:) --><img src="{SMILIES_PATH}/icon_smile.gif" alt=":)" title="Smile" /><!-- s:) -->  <!-- s:) --><img src="{SMILIES_PATH}/icon_smile.gif" alt=":)" title="Smile" /><!-- s:) -->

shiyiming

你的错误：

1 宏循环%do 不匹配 少了个%end， 而且宏循环的步长不能为小数；

2 带有宏变量运算的取值应该用%eval(&amp;i.-1)；

3 call symput(&quot;y&quot;,y); 不能在过程步外；

shiyiming

感谢楼上的意见，我按照上述意见进行了修改，程序仍然通不过，显示如下：

NOTE: Line generated by the invoked macro &quot;BBB&quot;.
1     data _null_; set t1; array s(*) _all_; do j=1 to dim(s); if &amp;i.&lt;=dim(s) and j&lt;=&amp;i. and
     -
     117
1  ! j&gt;%eval(&amp;i.-1) then do; yy=(s(j)+s(j+1))/2;end; if &amp;i.&gt;dim(s) then do;yy=0;end; call
1  ! symput(&quot;yy&quot;,yy); end; run;

[color=#FF0000:38365]ERROR 117-185: There were 2 unclosed DO blocks.[/color:38365]


180: LINE and COLUMN cannot be determined.
NOTE: NOSPOOL is on. Rerunning with OPTION SPOOL may allow recovery of the LINE and COLUMN where
      the error has occurred.
[color=#FF0000:38365]ERROR 180-322: Statement is not valid or it is used out of proper order.[/color:38365]


恳请高手指点，或有何其他办法实现！

shiyiming

你应该改macro aaa  而不是bbb

shiyiming

还是找不到解决办法，继续请教高手！ <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->

shiyiming

[code:aa23e]proc delete data=_all_;run;
data a;
do i=1 to 11 by 0&#46;5;output;
end;
run;

data t1;
input r1 r2 r3 r4 r5 ;
cards;
1&#46;1 1&#46;4 1&#46;3 1&#46;5 1&#46;9
;
data t2;
input s1 s2 s3 s4 s5 s6 s7 s8 s9 s10 ;
cards;
1&#46;12 1&#46;34 1&#46;38 1&#46;45 1&#46;69 1&#46;6 1&#46;4 1&#46;2 2&#46;4 2&#46;8
;
proc transpose data=t1 out=t11(drop=_name_) prefix=x;
run;
proc transpose data=t2 out=t22(drop=_name_) prefix=x;
run;
data part1;set t11 t22;
run;

%macro tt;
%do i=1 %to 2;
data tt&amp;i(keep=x1);
set t&amp;i;
array aa(*) _numeric_;
do j=2 to dim(aa);
x1=mean(aa(j),aa(j-1));
output;
end;
proc append base=part2 data=tt&amp;i force;
%end;
run;
%mend;
%tt

data tt1 tt2;
set a;
if scan(i,2)=5 then output tt1;
else output tt2;
run;

data part1_;
set tt2 ; set part1;
run;

data part2_;
set tt1;set part2;
run;

data result;
set part1_ part2_;
if i&gt;10 then x1=0;
proc sort;by i;
run;

[/code:aa23e]

shiyiming

谢谢高手指点！
偶也找到了较笨的解决办法， <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D --> ，学习楼上的算法 <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->

huadi谈到的几点，关于宏变量的计算要使用%eval，实际上并非如此，在宏的赋值语句中，的确是这样的，在%if语句中，可以直接写，但引用到的宏变量似乎只能是整数，四则运算的结果为小数则是被允许的。