6# jlw101065
对的

粗俗的理解了一下楼主的意思，楼主的数据应该是这样的
col0      col1
1990      xx
1991      xx
。。。。。。
2008      xx

要转换成
col0      array1      array2      array3
1990      xxx             .
。。。 xxx              .
2008      xxx              .
2009       .                xxx
。。。    .                xxx  
如果是这样的话，那这个数据步可以这样写
data e;
set d;
array x(3);
do j=0 to 2;
do i=1 to 18;
  if col0=1990+18*j+i  then do;x(j)=col1;output;end;
end;
end;
run;

感觉这个方法不是最好，应该有更好的方法(使用了mod函数，未测试不知道对不对)
data e;
set d;
array x(*);
x(mod(col0-1990,18))=col1;
run;

8# liudeng2005
我没说清楚，我要的数据是这样的
                   x1    x2      x3
A    1991      xxx  xxx  xxx      
A    1992         
……
A    2008
B   1991
B   1992
……
B    2008
按你的命令，结果是错开的
                         x1       x2     x3
A    1991          xxx
A    1992         xxx
……     
A    1991                     xxx
……
A    1991                              xxx

有什么方法可以克服吗

如果是这个意思，那么你的代码稍加改动就可以了。

但是这种方法不可取，每读取一个观测，都要循环3*18次，判断3*18次，效率不高。
我自己写了个
data a1(rename=(col1=x1)) a2(rename=(col1=x2)) a3(rename=(col1=x3));
      set a;
    if _n_<=18 then output a1;
   else if _n_<=36 then output a2;
   else output a3;
run;
proc sql;
           create table test as
           select * from a1
           outer union corr
           select * from a2
           outer union corr
           select * from a3;
quit;
当然如果要批量的话，你可以改成宏， 希望对你有帮助。

尴尬了，回复的时候没看到你的解释。。我再试试。

还是没看明白楼主现有数据和所需数据的格式是什么样的。

如果是每3个观测记录一次
那么
1990 1
1991 2
1992 3
1993 4
1994 5
1995 6
的结果数据是什么样子的？

好方法！

lZ讲清楚点啊

我说的不搞清楚
就是想按股票的编码，将数据写成
                               x            y         z           
000005         91
000005         92
……
00009           91年
00009         92年
……

其实，还有更简单的方法，关键看你的原始数据的格式(是不是所有的组别，所有的年份都有数据，以及缺失的情况)
假设你的数据时这样的
col1  col2      col3
A    1991      xxx        
A    1992         
……
A    2008
B   1991
B   1992
……
B    2008
那么用这个方法吧，我感觉不错！
proc sort data=d ;
by col2 col1;-------------------------col2代表年份，col1代表组别
run;

proc transpose data=d out=e（drop=_name_） prefix=x;
by col2 ;
id col1;
var col3;
run;