看看行不行，和之前那个类似嘛。。。

貌似以前问过一样的吧

我的问题和以前的一样，你怎么保证选出来的ID不重复？

对不起，我没看到生成的标示需要唯一。
以上代码生成comp(21,4)的所有取法
抽样2400个......
希望有好办法

Here is Macro for Combination to generate all cases by choosing R out of any list with length >= R.
Reference: http://support.sas.com/techsup/technote/ts498.html

%MACRO COMBINATION(R) / PARMBUFF; /* the PARMBUFFf option assigns the invocation parameter list to the macro variable &SYSPBUFF */

%LET M = 2;
%LET LIST = ;
%DO %WHILE (%QSCAN(&SYSPBUFF, &M, %STR(,%))) NE );
        %LET ELEMENT = "%QSCAN(&SYSPBUFF, &M, %STR(,%)))";
        %IF &M = 2 %THEN %LET LIST = &ELEMENT;
        %ELSE %LET LIST = &LIST, &ELEMENT;
        %LET M = %EVAL(&M + 1);
%END;
%LET K = %EVAL(&M - 2);

%PUT &LIST;
%PUT &R;
%PUT &K;

DATA COMBINATION;
        KEEP V1 - V&R;
        ARRAY L{&K} $ 1 (&LIST);
    DO i1 = 1 TO DIM(L);
    %DO S = 2 %TO &R;
                DO i&S = i%EVAL(&S - 1) + 1 TO DIM(L);
        %END;
                %DO S = 1 %TO &R;                 
                        V&S = L{i&S};
                %END;
                OUTPUT;
        %DO S = 1 %TO &R;                 
                END;
        %END;
RUN;

%MEND COMBINATION;

%COMBINATION(4,A,B,C,D,E,F,H,K,L,M,N,P,R,S,T,U,V,W,X,Y,Z);