呵呵，刚才没看明白，抱歉，上面的不对

data ty;
input x1 $ x2 $ x3 $;
cards;
A1  B1 C1
A2  B2 C2
A3  B3 C3
A4  B4 C4
;
run;
data a;
set ty;
keep x1;
run;
data b;
set ty;
keep x2;
run;
data c;
set ty;
keep x3;
run;
data ty4;
set a;
do j=1 to m;
set b point=j nobs=m;
do i=1 to n;
set ty2 point=i nobs=n;
output;
end;
end;
run;
又写了个，不过感觉太麻烦了，还请高人写个简单的。

data crackman;
input a $ b $ c$ @;
call symput("A"||left(_n_),a);
call symput("B"||left(_n_),b);
call symput("C"||left(_n_),c);
cards;
A1  B1 C1
A2  B2 C2
A3  B3 C3
A4  B4 C4
;
run;
%macro crackman;
data crackman;
%do i=1 %to 4;
a="&&A&i.";
       %do j=1 %to 4;
          b="&&B&j.";
            %do k=1 %to 4;
            c="&&C&k.";
            output;
            %end;
          output;
       %end;
output;
%end;
run;
%mend crackman;
%crackman;

o ,shi biancheng a

5# xiaosanmao
遍历到B4

哦，看到了，后边有些很小小的省略号，呵呵

It seems you want to have a Cartesian Joint. Note the joint size grows VERY fast.

Here is an example.


data tmp;
input (a b c) (: $2.) ;
cards;
A1  B1 C1
A2  B2 C2
A3  B3 C3
A4  B4 C4
;

proc sql;
select t1.a, t2.b, t3.c
from tmp t1,tmp t2, tmp t3
order by 1, 2, 3
;
quit;

data test;
input a $ b $ c$ @;
cards;
A1  B1 C1
A2  B2 C2
A3  B3 C3
A4  B4 C4
;
run;

proc sql;
    create table result as
          select *
       from (select distinct a from test)
                ,(select distinct b from test)
                        ,(select distinct c from test)
           order by a,b,c;
quit;

谢谢以上各位的帮助!!!!!!!!!!!!!

try this:
data a;
input a $ b $ c $;
cards;
A1  B1 C1
A2  B2 C2
A3  B3 C3
A4  B4 C4
;
data s;
if 0 then set a  nobs=nn;
do until(lastt);
set a(keep=a) end=lastt;
by a;
   do i=1 to nn;
   set a(keep=b) point=i;
      do j=1 to nn;
          set a(keep=c) point=j;
          output;
          end;
        end;
end;
run;