1、建议用宏；

2、大致程序思路：

libname sample 'd:\sas\data\20090819 tanscation data aot2';
run;


/*分离出每日交易 宏*/
/*把宏单独放处理，不要嵌套宏，免得多次编译*/
%macro sample;
%do k=1 % to 365;
Data sample.F;
        set sample.E;
        where num = &k;
        run;

.../进入处理一天的数据处理， 这里省略*/

/*这里开始对每一日的数据作年加总*/
proc append
        base = sample.trades data = sample.Onedaysellbuy;
        run;

%end;
%mend;

/*统一CSV文件名，从1到199，可以手动修改也可以下个批次修改文件名的小工具*/

%macro Trade;
%local filename;
%do filename=1 %to 199;
data sample.sample;
        informat
        RIC $9.
        date
        date10.
/* $10. ddmmyy10.*/
Time $10./* time10.1 */
type $5.
price 4.
Bidprice 4.
askprice 4.
QUALIFIERS $29.
;
infile
"d:\sas\data\&filename..csv"
firstobs=2
missover
dsd;

input RIC $ DATE $ Time $ type $ PRICE BIDPRICE
Askprice
QUALIFIERS $@;
run;


/*建立空的一天数据加总数据集*/
data sample.trades;
set sample.onedaysellbuy;
delete;
run;

...../* 对数据进行前期处理，这里省略*/

%sample;

proc sort      /*排序后使用FIRST.VAR比较耗时，建议用SQL改写*/
data = sample.trades;
by date;
quit;

data sample.trades;
set sample.trades;
by date;
if first.date=1;
run;

%end;
%mend Trade;

%trade;


文件处理时间比较长，有两个建议：
第一，优化现在的语句；
第二，使用SAS9多线程技术。
   以两个线程处理为例，大概思路：  
  把199个文件分两部分同时处理，
  把SAS程序保存为两个SAS文件trade1.sas和trade2.sas，
  修改%Trade 里面的 %do filename=1 %to 199;
  分别修改为%do filename=1 %to 100;和%do filename=101 %to 199;
  使用命令startsas sysin="SAS文件名""系统选项" 开启两个线程，同时执行trade1.sas和trade2.sas

  仅提供思路参考，没有测试。
  另外因为STARTSAS 是试用功能，可能会导致意外的结果。请谨慎使用~

公司名字不需要改变，统一导入就可以。
你的意思是说想并行处理省时间吧，把199家公司导入一起处理，然后同时一起按照某种统一处理方式处理完数据然后合并
不过看日志的话 即便是使用宏也是需要遍历的
所以可能不会省时间 顶多省步骤
也可能是我不知道 等候高人。。。

宏中宏,里面的宏处理你现在处理的,处理完后清理内存,外面的宏读入数据,
这样可以解决你的问题,也就说所有都是自动化,我记得当时我处理1500图片就是这样处理的,你可以参考我的思维,具体程序我不好给你,因为文章到现在还发表出来,还审稿中

不好意思，昨天有事未回。

sushe1527:  

谢谢。你的建议很可行，但我顾虑程序的通用性，我打算将这个程序作知识管理器。以后看到的新模型就加到这个程序里面，程序也不断的修改以求简练。所以批量倒入还是个手工活。最佳应该最好是开机自动运行，自己接收数据库数据，然后运算，出图。当然这个可能还比较遥远。 但copy- paste总是会有隐患。

无论如何，你的建议确实能解燃眉。感谢！

版主 爱萌：
谢谢你的思路。你帮我进一步确认了宏是方向。进一步请教，你提到："后清理内存“。 我是否要明确写程序清理内存，还是内部宏执行完隐含就会清除内存？ 还有：“外面的宏读入数据”。 是否指的是内部宏处理完了，外部读数据的宏再读入下一个公司对吗？谢谢指导！

先感谢一下，初看有几个未懂得问题。消化后再请教。