data b2;
input x3:$8. x4:$8. x5:yymmn5.;
format x5 yymmd5.;
label x3='工号' x4='姓名' x5='出生年月';
cards;
A004        周雄飞        74-04
A007        章琪        63-03
A008        李朝华        52-03
A009        查文良        80-04
A011        李军        73-02
A013        何伟        75-06
A014        肖德琴        75-11
A015        程正启        70-09
F001        周和平        55-01
F002        戴定兰        51-01
F005        闵清        67-01
F008        欧阳昌汉        75-08
F010        肖兰英        66-09
F011        蔡飞        76-11
F013        余薇        79-08
F014        任平        78-07
F015        李炎坤        76-09
L001        车裕斌        65-01
L004        刘成武        66-01
L006        林祺胜        66-08
L007        黄利民        69-01
L008        钟学斌        67-03
L009        何国松        67-01
L011        柯新利        77-09
N001        明平华        56-01
N002        陈佛敏        56-07
N003        戴文华        70-08
N004        焦翠珍        72-03
N005        唐会伏        71-07
N006        厉阳春        73-01
N007        吴进波        72-01
N008        刘重业        54-12
N009        沈振武        72-09
T001        罗健英        68-07
T002        罗菊英        69-09
T003        李莉        72-01
T004        曹喆        80-01
T004        饶玉霞        79-09
T006        庞红        59-08
T007        孔令磷        82-11
T008        张侠        83-04
T009        汪娟        82-08
T010        张志霞        83-11
T011        邓晶晶        84-03
;
data b3;
input x3:$8. x6:$8. x7;
label x3='工号' x6='课时编号' x7='课时数';
cards;
A004        g12        72
A004        t15        54
A007        e20        10
A007        e12        18
A007        c35        72
A008        s01        108
A009        a01        108
A011        b02        54
A011        b35        36
A013        a02        72
F005        e11        36
F005        e12        54
F008        m01        36
F010        m15        54
F011        n22        108
F013        n10        72
L009        d01        36
L009        e13        18
L011        d29        54
N002        f25        108
N003        e17        36
N003        f27        72
N004        f03        54
T004        e19        10
T004        h21        18
T006        h22        10
T007        h13        16
;
run;
data b4;
input x3:$8. x4:$8. x1:$8. x8:$20.;
label x3='工号' x4='姓名' x1='职称' x8='从事专业';
cards;
A004        周雄飞        讲师        儿科
A007        章琪        副教授        临床教学
A008        李朝华        副教授        神经外科
A009        查文良        讲师        外科
A011        李军        讲师        外科
A013        何伟        讲师        外科
A014        肖德琴        讲师        麻醉
A015        程正启        副教授        泌尿外科
F001        周和平        副教授        药物化学
F002        戴定兰        副教授        寄生虫
F005        闵清        副教授        药理学
F008        欧阳昌汉        副教授        药学
F010        肖兰英        副教授        药理学
F011        蔡飞        助教        药理学
F013        余薇        讲师        药理学
F014        任平        讲师        药理学
F015        李炎坤        讲师        药代动力学
L001        车裕斌        教授        地理与土地管理教学
L004        刘成武        教授        地理教学
L006        林祺胜        副教授        地理与土地管理教学
L007        黄利民        副教授        地理与土地管理教学
L008        钟学斌        副教授        地理教学
L009        何国松        副教授        地理信息系统
L011        柯新利        讲师        地理信息系统
N001        明平华        副教授        数学教学
N002        陈佛敏        副教授        计算机教育
N003        戴文华        副教授        计算机应用
N004        焦翠珍        副教授        计算机应用
N005        唐会伏        讲师        计算机教育
N006        厉阳春        讲师        计算机教育
N007        吴进波        讲师        计算机教学
N008        刘重业        助教        计算机
N009        沈振武        讲师        计算机
T001        罗健英        讲师        妇产科
T002        罗菊英        讲师        护理学
T003        李莉        讲师        教师
T004        曹喆        助教        教师
T004        饶玉霞        讲师        护理
T006        庞红        副教授        护理
T007        孔令磷        助教        护理
T008        张侠        助教        护理
T009        汪娟        助教        护理
T010        张志霞        助教        护理
T011        邓晶晶        助教        护理
;
data xin1;
merge b2 b3;
by x3;
if x6=null then delete;
run;
data xin2;
merge xin1(in=a) b4;
by x3;
if a=1;
run;
proc sort data=xin2;
by x1 x3;
run;
data xin3;
set xin2;
input x9;
label x9='课时费';
if x1='教授' then do;
x9=x7*40;
end;
if x1='副教授' then do;
x9=x7*30;
end;
if x1='讲师' then do;
x9=x7*20;
end;
if x1='助教' then do;
x9=x7*15;
end;
run;
想要在重新建一个数据xin3，在xin2的基础上增加一个新变量x9（课时费），让x9根据不同的职称乘以不同的费用，但是为啥咋都做不来啊~~