有一段代码百思不得其解，求各位大神告知错在哪！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

DATA TEST2;
ARRAY X[10] (1:10);
N=DIM(X);
K=6;
NCOMB=COMB(N,K);
    DO CHOICE=1 TO NCOMB;
        CALL ALLCOMB(CHOICE,K, OF X[*]);
        OUTPUT;
    END;
    KEEP CHOICE X1-X6;
RUN;

OPTION SYMBOLGEN MLOGIC;
%MACRO COMBINATION(NUM=);
DATA PROD1_#
SET TEST2(WHERE=(CHOICE=&NUM.));
RUN;

PROC TRANSPOSE DATA=PROD1_&NUM. OUT=PROD2_&NUM.(RENAME=(COL1=COL_&NUM.));
VAR X1-X6;
BY CHOICE;
RUN;

PROC SORT DATA=PROD2_&NUM.;
BY COL_&NUM.;
RUN;

PROC SQL;
SELECT COL_&NUM.
INTO :VAR1-:VAR6
FROM PROD2_&NUM.;
QUIT;

%PUT &VAR1 &VAR2 &VAR3 &VAR4 &VAR5 &VAR6;
%MEND;

DATA _NULL_;
    SET TEST2;
    CALL EXECUTE('%COMBINATION(NUM='||CHOICE||')');
RUN;

以上就是我的代码，但是出来的结果VAR1-VAR6 永远都是一样的3，4，5，6，9，10，而我预想的是CHOICE取值不一样，对应的VAR1-VAR6 是210组不一样的取值； 然而，如果给这段代码定某一个值，比如，num=100，运行下来就完全没问题，真是不知道错在哪里了，求各位大神帮忙看看！拜托了~~拜托了~~[cry]

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：百思不得其解 combination Transpose proc sql EXECUTE

牛逼。其实就是排列组合

运行了你的code，没有问题啊，是不是Test2数据集出问题了，检查一下

楼主，你的代码逻辑都ok，只是使用call execute有点问题。你在跑代码后的log中也能看到，会先执行多个%put，而那些宏变量会是同一个值，还未被sql中into语句赋值。至于原理，是因为call execute会首先执行所有的宏程序，然后才会执行data步和proc步。论坛中对call execute的用法已经有很多讨论了https://bbs.pinggu.org/thread-3240581-1-1.html。所以，我觉得可以编写宏来实现你的需求。

1. DATA TEST2;
   
2.     ARRAY X[10] (1:10);
   
3.     N=DIM(X);
   
4.     K=6;
   
5.     NCOMB=COMB(N,K);
   
6.     Call Symputx('comb_num',NCOMB);
   
7.     DO CHOICE=1 TO NCOMB;
   
8.         CALL ALLCOMB(CHOICE,K, OF X[*]);
   
9.         OUTPUT;
   
10.     END;
    
11.     KEEP CHOICE X1-X6;
    
12. RUN;
    
13. 
    
14. %MACRO list_comb;
    
15. %do i=1 %to &comb_num.;
    
16.       %combination(num=&i)
    
17. %end;
    
18. %MEND;
    
19. %list_comb

复制代码

不过，你通过%put来看这些宏变量，log中会很乱，效果不好，你可以把这些宏变量存储在一个数据集里，再统一print，会清爽很多……