请教个程序

1. data test;
   
2. infile cards dlm='09'x;
   
3. input id stk year qtr;
   
4. cards;
   
5. 1        2        1996        3
   
6. 1        2        1996        4
   
7. 1        2        1997        1
   
8. 1        3        1995        1
   
9. 1        3        1995        2
   
10. 1        3        1998        2
    
11. 1        3        1998        3
    
12. 1        3        1999        3
    
13. 2        3        1995        1
    
14. 2        3        1995        2
    
15. 2        3        1995        3
    
16. 2        3        1998        1
    
17. 3        3        1995        2
    
18. 3        3        1995        3
    
19. 3        3        1998        2
    
20. 3        3        2000        1
    
21. 3        4        1996        1
    
22. 3        4        1996        2
    
23. 3        2        1997        1
    
24. ;
    
25. 
    
26. data c;
    
27. do year=1995 to 2000;
    
28. do qtr=1 to 4;
    
29.         t+1;
    
30.         output;
    
31. end;
    
32. end;
    
33. run;
    
34. 
    
35. proc sql;
    
36. create table test1 as
    
37. select A.*, C.t
    
38. from test A left join C
    
39. on A.year=C.year and A.qtr=C.qtr
    
40. order by 1, 2, 3, 4;
    
41. quit;

复制代码

teqel 发表于 2015-9-14 06:33

您写这个的意思是？？？

小鳄鱼a 发表于 2015-9-14 08:50
您写这个的意思是？？？

1. proc sql;
   
2. create table id_num as
   
3. select stk, year, qtr, t, count(id) as id_num
   
4. from test1
   
5. group by stk, year, qtr, t
   
6. order by 1, 4;
   
7. quit;
   
8. 
   
9. data stk_first_t;
   
10. set id_num;
    
11. by stk t;
    
12. if first.stk then output;
    
13. else do;
    
14.         if t-lag(t)>1 then output;
    
15. end;
    
16. run;

复制代码

第一次出现的股票

teqel 发表于 2015-9-14 11:36
第一次出现的股票

不好意思    您这个程序跟我的需求差的太多了

不写程序了，这个网站老是通不过

好像不支持代码了~~，添加在附件。应该是你要的功能。

jeozu 发表于 2015-9-20 19:48
好像不支持代码了~~，添加在附件。应该是你要的功能。

谢谢   我先试试   

帮顶下

jeozu 发表于 2015-9-20 19:48
好像不支持代码了~~，添加在附件。应该是你要的功能。

153  proc datasets library=work nowarn noprint;
                                       -------
                                       22
                                       202
NOTE: 输入 RUN; 继续，或输入 QUIT; 结束过程。
ERROR 22-322: 语法错误，期望下列之一: ;, ALTER, DD, DDNAME, DETAILS, FORCE, GENNUM, KILL, LIB, LIBRARY,
              MEMTYPE, MT, MTYPE, NODETAILS, NOFS, NOLIST, NOWARN, PROTECT, PW, READ.
ERROR 202-322: 该选项或参数不可识别，将被忽略。
154  delete b1 b2 master xx;
155  run;