%macro test(n);
    data test;
            %do i=1 %to &n;
                    do v&i =1 to &n;
                    %if &i=1 %then %do;
                           tmp&i=cats("*",v&i,"*");
                        %end;
                        %else %do;
                            if index(tmp%eval(&i-1), cats("*",v&i,"*")) then continue;
                                else tmp&i="*"||catx("*",of v1-v&i)||"*";
                        %end;
                        %if &i=&n %then output;;
                 %end;
                 %do i=1 %to &n;
                end;
          %end;
                  drop tmp:;
        run;
%mend;

%test(4)
%test(6)

%macro perm(r) / parmbuff;   
      %let i=2;               
      %let things=;                     
      %do %while (%scan(&syspbuff,&i) ne );     
        %let p&i="%scan(&syspbuff,&i)";         
        %if &i=2 %then %let things=&&p&i;   
        %else %let things=&things,&&p&i;        
        %let i=%eval(&i+1);
      %end;
      %let n=%eval(&i-2);
      data perm;
         drop i j copy;
         array check (*) $ 10 r1-r&r;        
          %do m=1 %to &r;                 
            do r&m = &things;
          %end;
          copy=0;
            do i=2 to &r;               
              do j=1 to i-1;            
                if check(j)=check(i) then copy+1;
              end;
            end;
          if copy = 0 then output;        
          if copy = 0 then put r1-r&r;      
          %do m=1 %to &r;
            end;                             
          %end;
        run;
   %mend perm;
%perm(5,1,2,3,4,5);

感谢您的回答！看了您的代码查了一下才知道了allperm这个功能的存在。
不知道有没有什么办法可以不依靠allperm这个功能来实现。

感谢您的回答！有些地方看的一知半解。
最大的问题在于呼出宏时只能给出一个数值而非给定一串数据。