data b;
input x3 $4. x4:$8. x5:yymmdd5.;
format x5 yymmdd5.;
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
;
proc print data=b;
run;