char04SAS金融应用程序举例.doc

《char04SAS金融应用程序举例.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、4.1.2通用计算程序数据集准备：(程序时点设为2000年12月31日)dataa;setcompufin.header_genius(keep=f0001f0002f0003f0004);procsortdata=a;byf0001;run;datab(keep=f0001gb002gb004gb008gb009gb016gb017gb018);setcompufin.shares_genius;procsortdata=b;byf0001gb002;datac;mergeab;byF0001;iff0002=.thendelete;if

2、f0003=’A’;/*只算A股*/run;datac;setc;date=datepart(gb002);ifdate>'31dec2000'dthendelete;/*2000年12月31日，其它时点可修改此处*/run;datac;setc;byf0001;iflast.f0001;run;datac;setc;a_state=gb008+gb009;a_all=gb004-gb017-gb018;/*全部a股股本，求全市场股票比率修改此处*/run;datac_1(keep=suma_statesuma_allsuma_pubrat

3、io_stateratio_pub);setcend=aaa;suma_all+a_all;suma_state+a_state;suma_pub+gb016;ratio_state=100*suma_state/suma_all;ratio_pub=100*Suma_pub/suma_all;Ifaaa=1;putsuma_state/Suma_pub/suma_all/Ratio_state/ratio_pub=;Run;A股计算结果：2000年12月31日:Suma_State=215044425739Suma_Pub=1034008

4、44064Suma_All=346763200649Ratio_State=62.01477704Ratio_Pub=29.81886309520001年8月31日:Suma_State=287393936240Suma_Pub=121828508426Suma_All=438426705492Ratio_State=65.551193082Ratio_Pub=27.787656842Suma_State=287393936240Suma_All=438426705492Ratio=65.5511930824.1.3指数300成份股股本比例

5、计算创建数据集STALL_GENIUS：dataa;setcompufin.header_genius(keep=f0001f0002f0003f0004);procsortdata=a;byf0001;run;datab(keep=f0001gb002gb004gb008gb009gb016gb017gb018);setcompufin.shares_genius;procsortdata=b;byf0001gb002;datastall_genius;mergeab;byf0001;iff0002=.thendelete;iff0003

6、='A';/*只算A股*/run;datacompufin.stall_genius;setstall_genius;date=datepart(gb002);ifdate>='18jan2001'dthendelete;/*2001年1月18日前全部A股*/run;datacompufin.stall_genius;setcompufin.stall_genius;byf0001;iflast.f0001;run;求数据集C_1，股本数据集，包括2001年1月18日前全部A股股票并标识INX300_GENIUS中的股票。datacode3

7、00;setcompufin.inx300_genius;lengthf0002$6.;ifsubstr(hstocd,1,1)='1'thenf0002=substr(hstocd,3,6);ifsubstr(hstocd,1,1)='2'thenf0002=substr(hstocd,5,4);formatf0002$6.;run;procsortdata=code300;byf0002;run;procsortdata=compufin.stall_genius;byf0002;datac_1;mergecompufin.stall_

8、geniuscode300;byf0002;run;全部1127支A股股票的股本计算结果：datac_2;setc_1;a_state=gb008+gb009;a_all=gb0