非常感谢!

非常感谢!

you can leverage the proc plan to do it.


proc format ;
value trmt
   1='a'
   2='b'
   3='c'
   other=' '
   ;
run;

proc plan;
   factors Block=3 ordered
           Treat= 1 of 3 perm;
   ods output Plan=Combinations1;
run;

proc plan;
   factors Block=6 ordered
           Treat= 2 of 3 perm;
   ods output Plan=Combinations2;
run;

proc plan;
   factors Block=6 ordered
           Treat= 3 of 3 perm;
   ods output Plan=Combinations3;
run;

data all;
  length new_var $3;
  set Combinations1
  Combinations2
  Combinations3
  ;
  new_var=catt(put(Treat1,trmt.),put(Treat2,trmt.),put(Treat3,trmt.));

  keep new_var;
  run;

  proc print;run;

...表示 macro 的技术不到家，虽然知道要做什么，但完全不知道怎么改（因为 select * from 子块的数量是递增的）==...

能否给点提示和帮助，谢谢！

if you use SAS 9.4,  call lexperk routine will make it easy.

data a;
   length new_var $3;
   array x[3] $3 ('a' 'b' 'c' );
   n=dim(x);

   k=1;
   nperm=perm(n, k);
   do j=1 to nperm;
      call lexperk(j, k, of x[*]);
      new_var=x[1];
          output;
   end;

   k=2;
   nperm=perm(n, k);
   do j=1 to nperm;
      call lexperk(j, k, of x[*]);
      new_var=catt(x[1],x[2]);
          output;
   end;

   k=3;
   nperm=perm(n, k);
   do j=1 to nperm;
      call lexperk(j, k, of x[*]);
      new_var=catt(x[1],x[2],x[3]);
          output;
   end;
   
   keep new_var;
run;

proc print;run;

Sorry, but I'm currently using SAS 9.3 ^^

我重新了写了一下，改成通用版本了。例如：计算a、b、c、d。
你仔细看看递归，找到规律。
看明白了，就好写宏了。