SAS编程基础

(1) 提取职称为“工人”的观测：
data sy2_9_0; set mylib.sy2_2; if (zc = '工人');
run;
(2) 建立两个数据集：
data sy2_9_1; set sy2_9_0; keep bh xm jbgz;
run; data sy2_9_2;
set sy2_9_0; keep bh sfgz; run;
jbgz='基本工资' glgz='工龄工资' jj='奖金' kk='扣款' sfgz='实发工资';
cards;
3003 王以平 男 1992-8-1 助工
生产
620 300 500 0 1420
3004 林红
女 1993-8-1 助工
供销
620 280 500 200 1200
3005 吕兴良 男 1982-1-30 工程师 技术
代码如下：
data sy2_5; set mylib.sy2_2; drop gzrq; if jbgz < 600 then jbgz = 600;
run;
2. 增加新变量
【实验 2-6】在 mylib.sy2_2 中增加变量 yfgz（应发工资=基本工资+工龄工资+奖金）、生 成新的数据集 work.sy2_6。
data sy2_7_1 sy2_7_2;
4
SAS 软件与统计应用实验
set mylib.sy2_2; select;
when (jbgz<600) output sy2_7_1; when (jbgz>=600) out据集的纵向合并
【实验 2-8】将上述拆分后的两个数据集纵向合并恢复原样，产生新的数据集 work.sy2_8。 代码如下：
3009 赵大强 男 1968-5-10 工人
财务
520 780 500 0 1800
3010 王萍
女 1987-8-1 工程师 技术
1100 400 500 100 1900
;
RUN;
运行完成后，在逻辑库 mylib 中双击数据集名 sy2_2，可以查看结果如图 2-1 所示：
图2-1 数据集mylib.sy2_2
input bh $ xm $ xb $@@;
length gzrq $ 10;
input gzrq $ zc $ bm $ jbgz glgz jj kk sfgz;
run;
注意：文本文件中数据之间用空格隔开，不能使用 Tab 键。 运行完成后，在临时库 work 中双击数据集名 sy2_3，可以查看结果如图 2-3 所示：
SAS 软件与统计应用实验
实验 2 SAS 编程基础
SAS 语言和其它计算机语言一样，也有其专有的词汇（即关键字）和语法。关键字、名 字、特殊字符和运算符等按照语法规则排列组成 SAS 语句，一个 SAS 程序由若干数据步、 过程步组合而成，而每一个程序步通常由若干语句构成。SAS 程序是在 Editor 窗口中进行编 辑，提交运行后可以在 Log 窗口中显示有关信息和提示，在 Output 窗口显示运行的结果。
3007 张学武 男
1967-10-9 工人
保卫 520
800
500 200 1620
3008 冯玉霞 女
1987-8-1 工程师 生产 1100
400
500 250 1750
3009 赵大强 男
1968-5-10 工人
财务 520
780
500 0
1800
3010 王萍
女
1987-8-1 工程师 技术 1100
400
500 100 1900
代码如下：
data mylib.sy2_2;
length gzrq $ 10;
input bh $ xm $ xb $ gzrq $ zc $ bm $ jbgz glgz jj kk sfgz;
label bh='编号' xm='姓名' xb='性别' gzrq='工作日期' zc='职称' bm='部门'
2. 直接输入数据建立数据集
【实验 2-2】将表 2-1(sy2_2.xls)中的数据直接输入建立数据集 sy2_2，并将其存入逻辑库 mylib 中。
表 2-1 职工工资
编号 3003
姓名 王以平
性别 男
工作日期 1992-8-1
职称 助工
部门 生产
基本工资 620
工龄工资 300
奖金 500
扣款 0
/*如果表中第一行为变量名，则删去此行*/
run;
注意：sy2_4.xls 中第 3 至 5 列中的多加的“0”是为了保证导入后字符型变量的长度正确。
二、数据文件的编辑与整理
1. 数据集的复制与修改
【实验 2-5】将 mylib.sy2_2 中的“工作日期”去掉，基本工资小于 600 的改为 600，生成 新的数据集 work.sy2_5。
1100 500 500 100 2000
3006 司马宇 男 1971-2-17 工人
生产
520 720 500 0 1740
3007 张学武 男 1967-10-9 工人
保卫
520 800 500 200 1620
3008 冯玉霞 女 1987-8-1 工程师 生产
1100 400 500 250 1750
2.1 实验目的
通过实验了解 SAS 编程的基本概念，掌握 SAS 编程的基本方法，掌握 SAS 数据步对数 据集的管理和对数据的预处理。
2.2 实验内容
一、建立逻辑库与数据集，包括逻辑库的建立、直接输入数据建立数据集与读取外部数 据文件建立数据集。
二、数据文件的编辑与整理，包括数据集的横向合并与纵向合并、数据集内容的复制、 变量的增加与筛选、数据集的拆分和数据的排序。
(3) 横向合并：
data sy2_9; merge sy2_9_1 sy2_9_2; by bh;
run; proc print; run; /*列表显示数据集 sy2_9*/
6. 数据的排序
【实验 2-10】将 mylib.sy2_2 按 jbgz 升序、sfgz 降序排序后生成新的数据集 work.sy2_10。 代码如下：
图2-3 数据集sy2_3
【实验 2-4】读取 Excel 文件 sy2_2.xls（如表 2-1 所示）建立数据集 work.sy2_4。已知 Excel 文件 sy2_2.xls 存放在文件夹“d:\sas_shiyan\原始数据”中。
首先将表 2-1 修改为如图 2-4 所示的 Excel 表 sy2_4.xls,并存放在 d:\sas_shiyan\原始数据 中。
说明： (1) SAS 变量的基本类型有两种：数值型和字符型。数值型变量在数据集中的存贮一般 使用 8 个字节。SAS 的字符型变量缺省的长度是 8 个英文字符，可以使用 LENGTH 语句指 定变量长度，LENGTH 语句一般应出现在定义变量的 Input 语句之前，格式为：
LENGTH 字符型变量名 $ 长度； 如：
2.3 实验指导
一、建立逻辑库与数据集
1. 建立逻辑库
【实验 2-1】编程建立逻辑库。 (1) 首先在 D 盘创建一个文件夹，如 D:\SAS_SHYAN\SAS 数据集。 (2) 建立逻辑库 mylib，编辑并运行下面程序语句即可。
libname mylib "D:\sas_shiyan\sas 数据集";
3
SAS 软件与统计应用实验
图2-4 Excel表sy2_4.xls
建立数据集 work.sy2_4 代码如下：
proc import out=sy2_4
datafile = "d:\sas_shiyan\原始数据\sy2_4.xls"
dbms = excel2000 replace;
getnames = no;
3. 读取外部数据文件建立数据集
【实验 2-3】读取文本文件 sy2_3.txt（图 2-2）建立数据集 work.sy2_3。假设文本文件存 放在文件夹“D:\SAS_SHYAN\原始数据”中。
代码如下：
图2-2 文本文件sy2_3.txt
data sy2_3; infile 'd:\sas_shiyan\原始数据\sy2_3.txt';
5
SAS 软件与统计应用实验
proc sort data= mylib.sy2_2 out = sy2_10; by jbgz descending sfgz; run;
proc print data= sy2_10; /*列表显示数据集 sy2_10*/ run;
说明：在对两个数据集横向合并时，为了避免因两个数据集观测顺序不同造成混乱，一 般应将两个数据集分别按同一个变量（BY 变量）排序后再合并，如【实验 2-9】中的横向合 并可写成：
代码如下：
data sy2_6; set mylib.sy2_2; yfgz = jbgz + glgz + jj;
run;
3. 数据集的纵向拆分
【实验 2-7】按基本工资是否大于 600 将 mylib.sy2_2 拆分成两个新数据集 work.sy2_7_1 和 work.sy2_7_2。
代码如下：
data sy2_8; set sy2_7_1 sy2_7_2;
run;
5. 数据集的横向合并
【实验 2-9】将 mylib.sy2_2 中职称为“工人”的观测拆分成一个仅含编号、姓名和基本 工资，一个仅含有编号和实发工资的两个新数据集 work.sy2_9_1 和 work.sy2_9_2。然后将 work.sy2_9_1 和 work.sy2_9_2 合并成一个新数据集 sy2_9。