如何批量对数据集进行proc transpose处理

求助各位大神，如何披量对多个数据集进行proc transpose处理。
我有28个构成一模一样的sas格式数据集，数据集名称分别是stock1990，stock1991，stock1992，一直到stock2017.
每个数据集里的变量分别为：
stkcd stkcd1 link
0001  0002    1
0002  0001    1
0002  0003    1
0003  0002    1
现在希望生成这样的3*3矩阵数据：
        0001  0002  0003
0001             1       0
0002    1                 1        
0003     0       1
并将矩阵结果命名为matrix1990，matrix1991，一直到matrix2017输出到excel里。
我大概知道思路是在proc步里调用宏，奈何编程技术太差。还请各位大神赐教，谢谢了。

1. data stock1990;
   
2. input stkcd$ stkcd1$ link;
   
3. cards;
   
4. 0001  0002    1
   
5. 0002  0001    1
   
6. 0002  0003    1
   
7. 0003  0002    1
   
8. ;
   
9. run;
   
10. 
    
11. proc sql;
    
12. create table matrix1990 as
    
13. select a,max(_0001) as _0001,max(_0002) as _0002,max(_0003) as _0003 from
    
14.         (select "0001" as a,(case when stkcd1="0001" then link else . end) as _0001,
    
15.                 (case when stkcd1="0002" then link else . end) as _0002,
    
16.                 (case when stkcd1="0003" then link else . end) as _0003 from stock1990 where stkcd="0001"
    
17.         union
    
18.         select "0002" as a,(case when stkcd1="0001" then link else . end) as _0001,
    
19.                 (case when stkcd1="0002" then link else . end) as _0002,
    
20.                 (case when stkcd1="0003" then link else . end) as _0003 from stock1990 where stkcd="0002"
    
21.         union
    
22.         select "0003" as a,(case when stkcd1="0001" then link else . end) as _0001,
    
23.                 (case when stkcd1="0002" then link else . end) as _0002,
    
24.                 (case when stkcd1="0003" then link else . end) as _0003 from stock1990 where stkcd="0003"
    
25.         )
    
26.         group by a;
    
27. quit;
    
28. 
    
29. data a;
    
30. do i=1 to 28;
    
31.         indat=cats("stock",1989+i);
    
32.         outdat=cats("matrix",1989+i);
    
33.         output;
    
34. end;
    
35. run;
    
36. 
    
37. proc sql;
    
38. select indat into:indat separated by "|" from a;
    
39. select outdat into:outdat separated by "|" from a;
    
40. quit;
    
41. %put &indat. &outdat.;
    
42. 
    
43. %macro loop();
    
44. %do i=1 %to 28;
    
45. proc sql;
    
46. create table %qscan(&outdat.,&i.,"|") as
    
47. select a,max(_0001) as _0001,max(_0002) as _0002,max(_0003) as _0003 from
    
48.         (select "0001" as a,(case when stkcd1="0001" then link else . end) as _0001,
    
49.                 (case when stkcd1="0002" then link else . end) as _0002,
    
50.                 (case when stkcd1="0003" then link else . end) as _0003 from %qscan(&indat.,&i.,"|") where stkcd="0001"
    
51.         union
    
52.         select "0002" as a,(case when stkcd1="0001" then link else . end) as _0001,
    
53.                 (case when stkcd1="0002" then link else . end) as _0002,
    
54.                 (case when stkcd1="0003" then link else . end) as _0003 from %qscan(&indat.,&i.,"|") where stkcd="0002"
    
55.         union
    
56.         select "0003" as a,(case when stkcd1="0001" then link else . end) as _0001,
    
57.                 (case when stkcd1="0002" then link else . end) as _0002,
    
58.                 (case when stkcd1="0003" then link else . end) as _0003 from %qscan(&indat.,&i.,"|") where stkcd="0003"
    
59.         )
    
60.         group by a;
    
61. quit;
    
62. %end;
    
63. %mend;
    
64. 
    
65. %loop();

复制代码

1. data stock1990;
   
2. input stkcd$ stkcd1$ link;
   
3. cards;
   
4. 0001  0002    1
   
5. 0002  0001    1
   
6. 0002  0003    1
   
7. 0003  0002    1
   
8. ;
   
9. run;
   
10. 
    
11. proc sql;
    
12. create table matrix1990 as
    
13. select a,max(_0001) as _0001,max(_0002) as _0002,max(_0003) as _0003 from
    
14.         (select "0001" as a,(case when stkcd1="0001" then link else . end) as _0001,
    
15.                 (case when stkcd1="0002" then link else . end) as _0002,
    
16.                 (case when stkcd1="0003" then link else . end) as _0003 from stock1990 where stkcd="0001"
    
17.         union
    
18.         select "0002" as a,(case when stkcd1="0001" then link else . end) as _0001,
    
19.                 (case when stkcd1="0002" then link else . end) as _0002,
    
20.                 (case when stkcd1="0003" then link else . end) as _0003 from stock1990 where stkcd="0002"
    
21.         union
    
22.         select "0003" as a,(case when stkcd1="0001" then link else . end) as _0001,
    
23.                 (case when stkcd1="0002" then link else . end) as _0002,
    
24.                 (case when stkcd1="0003" then link else . end) as _0003 from stock1990 where stkcd="0003"
    
25.         )
    
26.         group by a;
    
27. quit;

复制代码