用SAS读取大智慧分笔交易数据（SAS完整程序）.docx

调用程序： ***********************设置日期**********************************************************; %let date=b090717; %let date2=z090717; %let date3=090717; ****************建立逻辑库;******************************************************; libname radata E:\我的数据库\radata; libname result E:\我的数据库\Dayresult; *****************读取分笔数据****************************************************************; options mstored sasmstore=radata compress=yes mprint error=10; %DzhFBSJ(D:\Program Files\dzh2\data\sh\report.dat,sh,radata.hqmb090717); %DzhFBSJ(D:\Program Files\dzh2\data\sz\report.dat,sz,radata.hqmbsz090717); %comput； 主程序： options nosource nonumber nodate nonotes nomprint nomlogic noxwait mstored sasmstore=radata compress=yes mprint error=10; %macro DzhFBSJ(filename,code,dsname)/store; %put %sysfunc(putn(%sysfunc(time()),time.)) 开始读取,请稍候...; %let code=%upcase(code); %local market; %if code ne SH and code ne SZ and code ne HK %then %do; %let market=%sysfunc(substr(code,1,2)); %let findcode=1; %end; %else %do; %let market=code; %let findcode=0; %end; /*判断文件是否被占用开始*/ %let PrpTempFile = %sysget(temp)\dzhFileBySas.tmp; %if %sysfunc(fileexist(filename))=0 %then %do; %put 文件 filename 不存在!;%return;%abort ABEND; %end; %let rc=%sysfunc(filename(FileRef,filename)); %let fid=%sysfunc(fopen(FileRef)); %if fid=0 %then %do; %put . filename.已被大智慧2占用,正在备份该文件并从备份文件读取数据(不要关闭复制窗口)...; filename prppipe pipe copy /y filename. PrpTempFile.; data _null_; infile prppipe; input copymsg $; put copymsg; call symput(filename,PrpTempFile); run; filename prppipe; %end; %else %do;%let rc=%sysfunc(fclose(fid));%end; %let rc=%sysfunc(filename(FileRef)); /*判断文件是否被占用结束*/ /*开始读取数据...*/ filename DzhFile filename; data dsname; attrib dm format=$8. label=代码 rq format=datetime. label=时间 zjcj label=最近成交价 zss label=总手数 je label=金额 xss label=现手数 bs label=总笔数 mm format=$2. label=内外盘 mr1jg label=买一价 mr1sl label=买一量 mr2jg label=买二价 mr2sl label=买二量 mr3j