SAS筛选字符串变量中的特定变量和删除重复字符

现在的数据结构如下，数据条数有十万多，想问问是否有比较方便的程序可以实现下列3种目的（尤其是第1/2两个问题），万分感谢。
stkcd         year     name               post
000001      2010     a1        总经理、董事长
000001      2011     a1       副总经理
300243       2011    a3       董事长、总经理、财务总监
300243      2012     a3       财务总监、董事长、总经理
300243      2013     a4       财务总监、总经理助理
300244      2014     a5       总经理、董事、总经理
300245      2014     a6       总经理

希望可以在变量post中进行如下两种处理：
1. 筛选出含有“总经理”（精准的，不含副总经理、总经理助理之类）


2. 原数据Post变量中会出现重复字符，如“总经理、董事、总经理”，有没有什么方法，可以把这些重复字符删除，整理为“总经理、董事”这样的格式
3. 调整post 字符内变量顺序，是否有方法使得，如果post变量中字符的顺序调整为：董事长、董事、总经理、...(其他职位）

1. data test;
   
2. input stkcd $8. year  name   $  post : $100.;
   
3. cards;
   
4. 000001      2010     a1       总经理、董事长
   
5. 000001      2011     a1       副总经理
   
6. 300243      2011     a3       董事长、总经理、财务总监
   
7. 300243      2012     a3       财务总监、董事长、总经理
   
8. 300243      2013     a4       财务总监、总经理助理
   
9. 300244      2014     a5       总经理、董事、总经理
   
10. 300245      2014     a6       总经理
    
11. ;
    
12. 
    
13. /*问题 1*/
    
14. 
    
15. data t1;
    
16. set test;
    
17. where indexw(post,"总经理"," 、");
    
18. run;
    
19. 
    
20. /*问题 2, 3*/
    
21. 
    
22. * post 变量顺序;
    
23. 
    
24. proc format;
    
25. invalue ord "董事长"=1
    
26.             "董事"=2
    
27.                         "总经理"=3
    
28.                         "副总经理"=4
    
29.                         "总经理助理"=5
    
30.                         "财务总监"=6;
    
31. run;
    
32. 
    
33. * 处理数据;
    
34. 
    
35. data t21;
    
36. set test;
    
37. i=1;
    
38. do until(scan(post,i,'、')="");
    
39.   _post=scan(post,i,"、");
    
40.    __post=input(_post,ord.);
    
41.   output;
    
42.   i+1;
    
43. end;
    
44. keep stkcd year name _post __post;
    
45. run;
    
46. 
    
47. proc sql;
    
48. create table t22 as
    
49. select distinct * from t21
    
50. order by stkcd, year, name, __post;
    
51. quit;
    
52. 
    
53. proc transpose data=t22 out=t23(drop=_:);
    
54. by stkcd year name;
    
55. var _post;
    
56. run;
    
57. 
    
58. data t2;
    
59. set t23;
    
60. post=catx("、",of col:);
    
61. drop col:;
    
62. run;

复制代码