求教：宏里面怎么使用数组的维数？

shiyiming

%macro aaaa();
data a;
array new{4} score1-score4;
%do i=1 %to dim(new) %by 1;
   new{i}=10;
%end;

proc print data=a;
run;
%mend aaaa;
%aaaa();

输出错误：
MPRINT(AAAA):   array new{4} score1-score4;
[color=#FF0000:a1essc2e][color=#FF0000]ERROR: Required operator not found in expression: dim(new)
ERROR: The %TO value of the %DO I loop is invalid.
ERROR: The macro AAAA will stop executing.[/color:a1essc2e][/color]

shiyiming

建议把%do loop的%去掉,按上下文来看这只是一个base language下的do loop
%do i=1 %to dim(new) %by 1;
new{i}=10;
%end;

shiyiming

这不是原始问题，这是原始问题的简化版本，dim函数必须在一个宏里面使用，那应该怎么做呢？

shiyiming

建议不要用数组了。直接使用宏变量序列，然后计算得出宏变量个数之后，再进行宏循环。例如下例，注意这也只是个解决方案的例子，希望对你有帮助。
[code:16mwj2o8]data raw(drop=i);
        do i=1 to 5;
                score1=1;
                score2=2;
                score3=3;
                score4=4;
                output;
        end;
run;

%macro example;

proc contents data=raw out=raw_var noprint;
run;
proc sort data=raw_var;
by varnum;
run;

data _NULL_;
        set raw_var end=eof;
        call symput('var'||trim(left(put(_N_,best.))),trim(left(name)));
        if eof then call symput('varno',trim(left(put(_N_,best.))));
run;
%put &&var&varno;

data tmp;
        set raw;
        %do j=1 %to &varno;
                &&var&j=10;
        %end;
        output;
run;
       
%mend example;

%example
[/code:16mwj2o8]

shiyiming

不了解你的应用,但是如果能写score1-score4,是不是可以考虑把4做为宏参数
[code:k4obl111]%macro aaaa(array_n);
        data a;
                array new{*} score1-score&array_n;
                %do i=1 %to &array_n %by 1;
                        new{&i}=10;
                %end;
        run;

        proc print data=a;
        run;
%mend aaaa;

%aaaa(4);[/code:k4obl111]