可以借助循环与数组完成：


调用示例如下：


你或许可以完全改用宏语句实现，就更为方便了。

假设参比ctrl为1 2，
ctrl为1，2 3 4
ctrl为2，3 4      (注2和1已比过)
构成出一个宏变量为：
                          "2 vs 1" -1 1 0 0,
                          "3 vs 1" -1 0 1 0,
                          "4 vs 1" -1 0 0 1，
                          "3 vs 2"  0 -1 1 0,
                          "4 vs 2" 0- 1  0 1

如果是&x为1 2 3 4，&ctrl为1 或2 或1 2。
当ctrl为1时，需得到的宏变量y为1-2!1-3!1-4
当ctrl为2时，需得到的宏变量y为2-1!2-3!2-4
当ctrl为1 2时，需得到的宏变量y为1-2!1-3!1-4!2-3!2-4

参考whymath的code，稍微修改了点code如下，
%macro tri_vs_ctrl(total=,ctrl=);
%local tri;
%global _rst_;
%let tri=&total.;
%let _rst_=;
%do i=1 %to %sysfunc(countw(&ctrl));
  %let num_i = %scan(&ctrl, &i);
  %let tri=%cmpres(%sysfunc(compress(&tri,%sysfunc(compress(&num_i)))));
  %do j=1 %to %sysfunc(countw( &tri ));
    %let num_j = %scan(&tri, &j);
    data _NULL_;
      length text $1024.;
      text=catx('!', "&_rst_.", catx('-', &num_i, &num_j));
      call symputx('_rst_',text);
    run;
  %end;
%end;
%put &=_rst_;
%mend;

结果
%tri_vs_ctrl(total=1 2 3 4,ctrl=1);
output: _RST_=1-2!1-3!1-4

%tri_vs_ctrl(total=1 2 3 4,ctrl=2);
output:_RST_=2-1!2-3!2-4

%tri_vs_ctrl(total=1 2 3 4,ctrl=1 2);
ouptut:_RST_=1-2!1-3!1-4!2-3!2-4