可以不用retain 的
data y;
  retain dis;
input dis $   num ;
    do i = 1 to num;
        output ;
        end;
        drop i;
cards;
A 20
B 28
C 12
;
run;

data d1 d2 d3;
   set y;
   if dis = 'A' then output d1;
   if dis = 'B'  then output d2;
   if dis = 'C' then output d3;
run;


或者
data dd1 dd2 dd3;
*  retain dis;
input dis $   num ;
   if dis ='A' then do;
                       do i = 1 to num;
                       output  dd1;
                       end;
                       end;
   if dis ='B' then do;
                       do i = 1 to num;
                        output dd2 ;
                       end;
                       end;
   if dis ='C' then do;
                       do i = 1 to num;
                         output dd3;
                       end;
                       end;
        drop i;
cards;
         A 20
         B 28
         C 12
;
run;

这里dis只有三个变量，要是dis有多个（譬如1000个呢）？最近正在纠结怎么批量给数据集命名呢？在论坛里看了一些帖子，挺不错的，交流一下：https://bbs.pinggu.org/thread-1280011-1-1.html