data name;
length post $100;
input name $ post $;
cards;
张三 副主任科员、主任科员、副处长
李四 副司长、司长
王五 财务部副总经理、总经理、董事长、助理董事长、常务董事
赵六 副总经理、总经理
马七 业务经理
赵二 副总经理、总经理
;
run;
proc sort data=name;
by name;
run;
data chk;
set name;
by name;
if first.name then sum=1;
do i=1 to length(post)-1;
if substr(post,i,2)="、" then sum+1;
end;
drop i;
run;