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(in=c);
by x3;
if c=1;
run;
data xin2;
merge xin1(in=a) b4;
by x3;
if a=1;
run;
proc sort data=xin2;
by x1 x3;
run;
proc print data=xin2;
run;
data xin3;
set xin2;
label x9='课时费';
if x1='教授' then x9=x7*40;
if x1='副教授' then x9=x7*30;
if x1='讲师' then x9=x7*20;
if x1='助教' then x9=x7*15;
if 'e10'<=x6<='e20' then do; x9=x9*0.8; end;
else do; x9=x9; end;
proc print data=xin3;
label;
run;
data xin4;
set xin3;
proc print data=xin4 label;
run;
这是程序,怎么删除中多余的列向量和对列向量排序!!?
谢谢了~~



雷达卡


京公网安备 11010802022788号







