每日股价数据转换为年日结构处理方法.pdfVIP

4.일별로받은주가를(옆으로정렬됨)firm-year-day

형태로회전하기

PROCIMPORTOUT=WORK.A1

DATAFILE=I:\조사벙법론내발표것\SASfabiao34문제\고친후4문제\2001주가.xls

DBMS=EXCELRECE;

RANGE=Sheet1$

GETNAMES=YES;

MIXED=NO;

SCANTEXT=YES;

USEDATE=YES;

SC=YES;

RUN;

DATAA1;SETA1;

IFSTOCK=THENDELETE;

RUN;

%MACROX(A);

DATABA;SETA1;

YR2001;

DAY=A;

PRICE=Y2001DA;

KEEPSTOCKYRDAYPRICE;

%MEND;

%MACROB;

%DOA1%TO246;

%X(A);

%END;

%MEND;

%B;

RUN;

PROCSORTDATA=B1;BYSTOCKYRDAY;

RUN;

DATAD;SETB1;

RUN;

%MACROX(A);

PROCSORTDATA=BA;BYSTOCKYRDAY;

DATAD;SETDBA;

%MEND;

%MACROB;

%DOA=2%TO246;

%X(A);

%END;

%MEND;

%B;

RUN;

PROCSORTDATA=D;BYSTOCKYRDAY;

RUN;

DATAD;SETD;

4.일별로받은주і를(옆으로정렬됨)公司年日형태로회전하

기

PROCIMPORTOUT=WORK.A1DATAFILE=I:\조사벙법론내발표것\SASfabiao34문제\고친

후4문제\2001주і.xlsDBMSEXCELRECE;范围表1$;GETNAMES是；混合不;

SCANTEXT是；使用日期是；扫描时间是；跑步;

数据A1；设置A1；如果有库存

则删除；跑步;

％宏X（A）；数据BA；设置

A1；YR2001；白天A;价格

Y2001DA；保留当天的库存

价格；％修补;%宏B；%DO

A1%TO246;%X(A);％结

尾;％修补;%B；跑步;

过程数据排序B1；按年份；跑步;

数据D；设置B1；跑步;

％宏X（A）；PROC数据排序BA;按年

度计算；数据D;设置DBA;％修补;%宏B；

%DOA=2%TO246;%X(A);％结尾;％修补;

%B；跑步;

处理数据排序D；按年度计算；跑步;

数据D；设置D；

IFPRICE.THENDELETE;

RUN;

2002년데이터를도입하기

PROCIMPORTOUT=WORK.G1

DATAFILE=I:\조사벙법론내발표것\SASfabiao34문제\고친후4문제\2002주가.xls

DBMS=EXCELRECE;

RANGE=Sheet1$

GETNAMES=YES;

MIXED=NO;

SCANTEXT=Y