- data a;
- input a b c d e f g h;
- cards;
- 10 20 30 40 50 60 70 80
- 11 21 31 41 51 61 71 81
- 12 22 32 42 52 62 72 82
- ;
- run;
- %let var_list=a b c d e f g h;
- %macro tmp;
- %let m=1;
- %do i=1 %to 7;
- %do j=&i+1 %to 8;
- data b&m.;
- set a;
- keep a1-a6;
- %let x=1;
- %do y=1 %to 8;
- %let a3=%scan(&var_list,&y," ");
- %if &y.~=&i. & &y.~=&j. %then %do;
- a&x.=&a3.;;
- %let x=%eval(&x.+1);
- %end;
- %end;
- run;
- %let m=%eval(&m.+1);
- %end;
- %end;
- %mend;
- %tmp;


雷达卡





京公网安备 11010802022788号







