朱世武sas编程技术教程第二版书上程序代码.doc

朱世武sas编程技术教程第二版书上程序代码 /* sampbdSASpg 选择2005年发行的部分债券与部分转可换债券作为样本 */ /* 只选择记账式bdmd=1 */ data bdinfo; set resbd.bdinfo; if bdmd=1 and issdt=01jan2005d; run; /* 国债 */ data a1; set bdinfo; if Bdtype=1; run; data a1; set a1 nobs=nobs; if _N_/nobs=0.95; run; /* 央行票据 */ data a2; set bdinfo; if Bdtype=2; run; data a2; set a2 nobs=nobs; if _N_/nobs=0.98; run; /* 金融债 */ data a3; set bdinfo; if Bdtype=3; run; data a3; set a3 nobs=nobs; if _N_/nobs=0.95; run; /* 次级债 */ data a4; set bdinfo; if Bdtype=4; run; data a4; set a4 nobs=nobs; if _N_/nobs=0.9; run; /* 短期融资券(cp) */ data a5; set bdinfo; if Bdtype=5; run; data a5; set a5 nobs=nobs; if _N_/nobs=0.98; run; /* 资产支持证券(ABSMBS) */ data a6; set bdinfo; if Bdtype=6; run; data a6;; set a6 nobs=nobs; if _N_/nobs=0.5; run; /* 企业债 */ data a7; set bdinfo; if Bdtype=7; run; data a7; set a7 nobs=nobs; if _N_/nobs=0.98; run; /* 发行的全部可转换债券 */ data covbd; set bdinfo; where converflg=1; run; /* covbd前面30%的记录 */ data covbd;; set covbd nobs=nobs; if _N_/nobs=0.5; run; /* 合并数据集 */ data ResDat.sampbd; set covbd a1 a2 a3 a4 a5 a6 a7 ; drop innercode; run; /* NOTE: 从数据集 WORK.COVBD 读取了 3 个观测。 NOTE: 从数据集 WORK.A1 读取了 6 个观测。 NOTE: 从数据集 WORK.A2 读取了 5 个观测。 NOTE: 从数据集 WORK.A3 读取了 6 个观测。 NOTE: 从数据集 WORK.A4 读取了 2 个观测。 NOTE: 从数据集 WORK.A5 读取了 6 个观测。 NOTE: 从数据集 WORK.A6 读取了 5 个观测。 NOTE: 从数据集 WORK.A7 读取了 3 个观测。 NOTE: 数据集 ResDat.SAMPBD 有 36 个观测和 31 个变量。 */ /* 全导为excel数据集 */ %MACRO EXPORT(X); data a; set %STR(X); PROC EXPORT DATA=a OUTFILE=D:\resdat\%STR(X).xls DBMS=EXCEL REPLACE; SHEET=sheet; RUN; %MEND EXPORT; %EXPORT(ResDat.sampbd); RUN; /* 以下为各表ResBd表样本数据 */ /* 债券信息|Bdinfo */ data ResDat.Bdinfo (label=债券信息|Bond Information); set ResDat.sampbd; run; /* 银行利率|Bankir */ data ResDat.bankir(label=银行利率|Bank interest rate); set resbd.bankir; run; /* 基准利率|BchmkIr*/ data ResDat.BchmkIr(label=基准利率|Benchmark interest Rate); set resbd.BchmkIr; run; /* 债券标识|BdId */ data ResDat.BdId(label=债券标识|Bond Indetification); set resbd.BdId; drop innercode; run; /* 债券发行与上市|BdI