程序求助

贸易数据格式举例如下（为贸易数据）：
有不同的进口方，不同的出口方，不同的商品。年份连续或者不连续。
同时进口方为多个，出口方为多个，产品类别多个。
相同进口出口方和商品的，归为同一组。其中年份连续的各项（即相同进口方、出口方以及相同商品的并且年份连续的）归为同一段。
进口方 出口方 产品类别 年份 分段 分组
001 0024 01010101 1990 1 1
001 0024 01010101 1991 1 1
001 0024 01010101 1994 2 1
001 0024 01010101 1995 2 1
001 0024 01010101 1996 2 1
001 0024 02020220 1993 3 2
001 0024 02020220 1994 3 2
001 0024 02020220 1995 3 2
001 0036 01010101 1996 4 3
001 0036 01010101 1997 4 3
001 0036 02020220 1998 5 4
001 0036 02020220 2001 6 4
002 0024 01010101 1991 7 5
002 0024 01010101 1994 8 5
002 0035 01010101 1995 9 6
002 0035 02000000 1993 10 7
002 0035 02000000 1994 10 7
002 0035 02000000 1998 11 7
002 0038 02020220 1993 12 8
002 0038 02020220 1994 12 8
002 0038 02020220 1995 12 9
003 0024 01010101 1996 13 10
003 0036 02020220 1993 14 11
003 0036 02020220 1994 14 11
003 0038 02020220 1995 15 12
.
.
.


另外我有发生银行危机数据（多个出口方，多个年份）
出口方 年份
0024 1994
0035 1996
0036 1998
0038 1995
。。。

我需要生成两个状态变量。STATUS和TREAT
出口方每段贸易数据年份区间不包括银行危机年份的，每段的最后年份不等于银行危机年份的（比如分段=1的），STATUS=0 TREAT=0；最后年份等于银行危机年份的 STATUS=1 TREAT=0.出口方每段贸易数据年份区间包括银行危机年份的, 每段的最后年份等于银行危机年份的（比如分段=12） STATUS=1 TREAT=1
每段的最后年份不等于银行危机年份的（比如分段=2） STATUS=0 TREAT=1

希望我描述清楚了。谢谢高手！

额，我试着编了一下，可能我把它改得比较复杂了，代码比较长一点，你试试看

1. data test1;
   
2. input in $ out $ size $ year fenduan group;
   
3. cards;
   
4. 001 0024 01010101 1990 1 1
   
5. 001 0024 01010101 1991 1 1
   
6. 001 0024 01010101 1994 2 1
   
7. 001 0024 01010101 1995 2 1
   
8. 001 0024 01010101 1996 2 1
   
9. 001 0024 02020220 1993 3 2
   
10. 001 0024 02020220 1994 3 2
    
11. 001 0024 02020220 1995 3 2
    
12. 001 0036 01010101 1996 4 3
    
13. 001 0036 01010101 1997 4 3
    
14. 001 0036 02020220 1998 5 4
    
15. 001 0036 02020220 2001 6 4
    
16. 002 0024 01010101 1991 7 5
    
17. 002 0024 01010101 1994 8 5
    
18. 002 0035 01010101 1995 9 6
    
19. 002 0035 02000000 1993 10 7
    
20. 002 0035 02000000 1994 10 7
    
21. 002 0035 02000000 1998 11 7
    
22. 002 0038 02020220 1993 12 8
    
23. 002 0038 02020220 1994 12 8
    
24. 002 0038 02020220 1995 12 9
    
25. 003 0024 01010101 1996 13 10
    
26. 003 0036 02020220 1993 14 11
    
27. 003 0036 02020220 1994 14 11
    
28. 003 0038 02020220 1995 15 12
    
29. ;
    
30. data test2;
    
31. input out $ time;
    
32. cards;
    
33. 0024 1994
    
34. 0024 1996
    
35. 0035 1996
    
36. 0035 1998
    
37. 0036 1991
    
38. 0036 1993
    
39. 0036 1998
    
40. 0038 1995
    
41. ;
    
42. 
    
43. data _null_;
    
44.         set test2 nobs=m;
    
45.         id=_n_;
    
46.         call symputx("out"||left(id),out);
    
47.         call symputx("time"||left(id),time);
    
48.         call symputx("n",m);
    
49. run;
    
50. 
    
51. %macro test;
    
52. data test3;
    
53.         %do i=1 %to &n.;
    
54.                 sum&i.=0;
    
55.     %end;
    
56.         do until(last.fenduan);
    
57.                 set test1;
    
58.                 by fenduan;
    
59.                         %do i=1 %to &n.;
    
60.                 if out=&&out&i. then do;
    
61.                                         if year=&&time&i. then x&i.=1;/*判断每一个年份是否与银行发生危机的年份相同*/
    
62.                                else x&i.=0;
    
63.                     sum&i.+x&i.;/*求出每一分段数据里面是否有与银行发生危机的年份相同，若没有则sum=0，若有则sum^=0*/
    
64.                             end;
    
65.             %end;
    
66.                             sum=sum(of sum1-sum&n.);
    
67.                             x=sum(of x1-x&n.);
    
68.                         %do j=1 %to &n.;
    
69.                 if last.fenduan then do;
    
70.                         if sum^=0 then do; /*如果有与银行发生危机的年份相同*/
    
71.                                 if x=1 then do;        /*如果是最后一年与银行发生危机的年份相同*/
    
72.                                         STATUS=1;TREAT=1;
    
73.                                 end;
    
74.                                 else do; /*如果不是最后一年与银行发生危机的年份相同*/
    
75.                                         STATUS=0;TREAT=1;
    
76.                                 end;
    
77.                         end;
    
78.                         else do; /*如果没有与银行发生危机的年份相同*/
    
79.                                 STATUS=0;TREAT=0;
    
80.                         end;
    
81.                 end;
    
82.             %end;
    
83.                 output;   /*若注释表示只输出每段最后一条记录*/
    
84.                 end;
    
85. run;
    
86. 
    
87. data test;
    
88.         set test3;
    
89.         keep  in  out  size  year fenduan group STATUS TREAT;
    
90. run;
    
91. %mend;
    
92. %test;

复制代码

自己顶一下！等待高手！

kankan

LZ不知道是不是可以这样理解比较简单点
若出口方每段贸易数据年份区间包括银行危机年份的，则TREAT=1；否则TREAT=0；
若出口方每段贸易数据的最后年份等于银行危机年份的，则STATUS=1；否则STATUS=0；
嗯，还有就是银行危机数据，一个出口方是否有多个年份发生危机（如0024 1994，0024 1995……）
下面这个程序时针对一个出口方只有一个年份发生危机的

1. data test1;
   
2. input in $ out $ size $ year fenduan group;
   
3. cards;
   
4. 001 0024 01010101 1990 1 1
   
5. 001 0024 01010101 1991 1 1
   
6. 001 0024 01010101 1994 2 1
   
7. 001 0024 01010101 1995 2 1
   
8. 001 0024 01010101 1996 2 1
   
9. 001 0024 02020220 1993 3 2
   
10. 001 0024 02020220 1994 3 2
    
11. 001 0024 02020220 1995 3 2
    
12. 001 0036 01010101 1996 4 3
    
13. 001 0036 01010101 1997 4 3
    
14. 001 0036 02020220 1998 5 4
    
15. 001 0036 02020220 2001 6 4
    
16. 002 0024 01010101 1991 7 5
    
17. 002 0024 01010101 1994 8 5
    
18. 002 0035 01010101 1995 9 6
    
19. 002 0035 02000000 1993 10 7
    
20. 002 0035 02000000 1994 10 7
    
21. 002 0035 02000000 1998 11 7
    
22. 002 0038 02020220 1993 12 8
    
23. 002 0038 02020220 1994 12 8
    
24. 002 0038 02020220 1995 12 9
    
25. 003 0024 01010101 1996 13 10
    
26. 003 0036 02020220 1993 14 11
    
27. 003 0036 02020220 1994 14 11
    
28. 003 0038 02020220 1995 15 12
    
29. ;
    
30. data test2;
    
31. input out $ time;
    
32. cards;
    
33. 0024 1994
    
34. 0035 1996
    
35. 0036 1998
    
36. 0038 1995
    
37. ;
    
38. 
    
39. proc sort data=test1;
    
40.         by out;
    
41. run;
    
42. 
    
43. data test;
    
44.         merge test1 test2;
    
45.         by out;
    
46. run;
    
47. 
    
48. proc sort data=test;
    
49.         by in ;
    
50. run;
    
51. 
    
52. data test;
    
53.         sum=0;
    
54.         do until(last.fenduan);
    
55.                 set test;
    
56.                 by fenduan;
    
57.                 if year=time then x=1;/*判断每一个年份是否与银行发生危机的年份相同*/
    
58.                 else x=0;
    
59.                 sum+x;/*求出每一分段数据里面是否有与银行发生危机的年份相同，若没有则sum=0，若有则sum^=0*/
    
60.                 if last.fenduan then do;
    
61.                         if sum^=0 then do; /*如果有与银行发生危机的年份相同*/
    
62.                                 if x=1 then do;        /*如果是最后一年与银行发生危机的年份相同*/
    
63.                                         STATUS=1;TREAT=1;
    
64.                                 end;
    
65.                                 else do; /*如果不是最后一年与银行发生危机的年份相同*/
    
66.                                         STATUS=0;TREAT=1;
    
67.                                 end;
    
68.                         end;
    
69.                         else do; /*如果没有与银行发生危机的年份相同*/
    
70.                                 STATUS=0;TREAT=0;
    
71.                         end;
    
72.                         end;
    
73. /*                output;*/   /*若注释表示只输出每段最后一条记录*/
    
74.                 end;
    
75. run;

复制代码

可~乐 发表于 2011-12-18 13:20
LZ不知道是不是可以这样理解比较简单点
若出口方每段贸易数据年份区间包括银行危机年份的，则TREAT=1；否则 ...

多谢回复！是我发的时候忽略了。银行危机的数据的确是有出口方包含多个危机年份的。如果有包含多个危机年份的，如何修改该程序呢？麻烦了。

可~乐 发表于 2011-12-18 20:59
额，我试着编了一下，可能我把它改得比较复杂了，代码比较长一点，你试试看

多谢你了！

yayacuiliu 发表于 2011-12-19 19:19
多谢你了！

，能帮你解决就好..

同样学学