SAS以流的方式读取、写入文件

275932488

　　length rec $256 crc $1 rc 8；
　　init：
　　submit continue；
　　filename h url "
　　data crlibm．report_xls（compress=yes）；
　　infile h；
　　input rec $char256．；
　　rpt_id=1；rownum=_n_；
　　run；
　　endsubmit；
　　/*如果crlibm置于spde引擎之下，由于多线程读取的原因，不能保证rownum顺序获得*/
　　submit continue；
　　proc sql；
　　create view v1 as
　　select * from crlibm．report_xls
　　where rpt_id=1
　　order by rownum；
　　endsubmit；
　　'Content-type'，'application/vnd．ms-excel'）；
　　'Content-disposition'，'attachment；filename=t．xls'）；
　　/*IT下，由于data step中无法设定_webout的文件属性，导致xls流不能正确输出*/
　　fid=fopen（'_webout'，'A'，0，'B'）；
　　dsid=open（'v1'）；
　　do while（fetch（dsid）^=-1）；
　　rec=getvarc（dsid，1）；
　　rc=fput（fid，put（rec，$char256．））；
　　rc=fwrite（fid）；
　　end；
　　dsid=close（dsid）；
　　fid=fclose（fid）；
　　return；