【求大佬翻牌】ERROR: The variable n was referenced but not given a value.

我想用sas的proc ga程序步写ga-pls，在自定义函数中用run_macro()运行自定义宏函数，这样在设想中可以同时在proc ga程序步中嵌入其他模型的程序步，当然pls也是。但是，按照网上查的资料写出来的测试程序未返回相关值，提示错误：ERROR: The variable n was referenced but not given a value.ERROR: Compilation error.
ERROR: Execution terminating because of previous errors.

测试的数据集如下：
ga1        ga2        ga3        ga4        ga5
1        1        1        1        1
1        1        1        1        1
1        1        1        1        1
1        1        1        1        1
1        1        1        1        1

1. /*导入测试数据ga*/
   
2. PROC IMPORT OUT= a
   
3.             DATAFILE= "C:\Users\Administrator\Desktop\ga.xlsx"
   
4.             DBMS=EXCEL REPLACE;
   
5.      RANGE="Sheet1$";
   
6.      GETNAMES=YES;
   
7.      MIXED=NO;
   
8.      SCANTEXT=YES;
   
9.      USEDATE=YES;
   
10.      SCANTIME=YES;
    
11. RUN;
    
12. 
    
13. /*自定义的宏函数*/
    
14. %macro add;
    
15. data b;
    
16. u=&y;
    
17. run;
    
18. data b(drop=u i);
    
19. set b;
    
20. array y[5];
    
21. do i = 2 to 6;
    
22. y[i-1]=substr(strip(u),i,1)+0;
    
23. end;
    
24. run;
    
25. proc transpose data = a name = RowName1 out=d1;
    
26. run;
    
27. proc transpose data = b name = RowName2 out=d2;
    
28. run;
    
29. data c(drop=rowname1 rowname2 _label_ col1);
    
30. merge d1 d2;
    
31. if col1=1;
    
32. run;
    
33. proc transpose data = c out=d;
    
34. run;
    
35. data e;
    
36. set d;
    
37. drop _name_;
    
38. run;
    
39. DATA _NULL_;
    
40. SET c NOBS=NOBS;
    
41. CALL SYMPUTX('NUM',NOBS);
    
42. RUN;
    
43. data f;
    
44. set e;
    
45. c=sum(of col1-col&num.);
    
46. n+c;
    
47. run;
    
48. data g(keep=n);
    
49. set f nobs=nobs ;
    
50. if _n_=nobs;
    
51. data _null_;
    
52. set g;
    
53. call symputx('n', n);
    
54. run;
    
55. %mend;
    
56. 
    
57. /*proc ga主体程序*/
    
58. proc ga seed = 2333 maxiter = 10;
    
59. function shubert(selected[*]);
    
60.    array bv[5] /nosym;
    
61.    call ReadMember(selected,1,bv);
    
62.    y=8;
    
63.    do i=1 to 5;
    
64.        y=cats(y,bv[i]);
    
65.    end;
    
66.    re=run_macro('add',y,n);
    
67.    return(n);
    
68. endsub;
    
69. call SetEncoding('B5');
    
70. call SetObjFunc('shubert',0);
    
71. call SetCrossProb(0.65);
    
72. call SetCross('Uniform');
    
73. call SetMutProb(0.15);
    
74. call SetMut('uniform', 'pchange', 0.05);
    
75. call SetSel('tournament','size', 2);
    
76. call SetElite(2);
    
77. call Initialize('_uniform_',20);
    
78. run;

复制代码

测试的宏函数主要是求相加和最小的列变量，即最后的编码组合应是10000（五个数字只有一个是1）。
已经卡在这儿好多天了，也找不到原因，还重感冒中~求大佬翻牌！为什么会出现这个错误？以及接下来我该如何解决？

随笔阿玛 发表于 2019-12-7 14:49
我想用sas的proc ga程序步写ga-pls，在自定义函数中用run_macro()运行自定义宏函数，这样在设想中可以同时在 ...

谢谢分享

你在run proc ga之前有没有run你定义的add macro？
从你贴的code里没看到你run那个macro。而你的n的值来自于你的这个macro，如果不run的话自然就没有给n赋值。

popodan 发表于 2019-12-8 10:30
你在run proc ga之前有没有run你定义的add macro？
从你贴的code里没看到你run那个macro。而你的n的值来自 ...

当然run了，这种错误我是不会犯的。。。

随笔阿玛 发表于 2019-12-8 17:32
当然run了，这种错误我是不会犯的。。。

那re的值是多少？macro run成功没？

popodan 发表于 2019-12-9 06:49
那re的值是多少？macro run成功没？

re值返回不成功，会提示上述错误。将参数n去掉的话倒是能成功，re值返回0，但是也就没有意义了