SAS output 问题求助

shiyiming

SAS的output里有12个月的数据结果 是12个程序依次运行的结果。 我现在想把output里所有的数据结果输出到一个sas文件里，但我在所有程序最后加一个output语句时，只能输出最后一个程序运行的结果。。这是我现在的code，请大家看看改怎么改才行。
data large.aa1983;
set large.a; where year<=1983;run;
data large.aa1983;set large.aa1983;
%macro setvars;
%do i=1 %to 50;
lindlev&i=lag&i(sprtrn);
%end;
%mend;
%setvars;run;

data large.aa1983(drop=lindlev1-lindlev50);
set large.aa1983;
ma1=lindlev1;
ma50=mean(of lindlev1-lindlev50);run;


data large.aa1983;
set large.aa1983;
if ma1>ma50 then vma_signal=1;
else if ma1<ma50 then vma_signal=-1;else  vma_signal=.;run;

data large.aa1983;
set large.aa1983;
if _n_>50;
run;
data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=1;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=work.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=2;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=work.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=3;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=work.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=4;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=work.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=5;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=work.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=6;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=work.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=7;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=work.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=8;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=work.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=9;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=work.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=10;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=work.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=11;run;
proc univariate data=large.aa1983;var sprtrn;run;
proc sort data=lareg.aa1983;by vma_signal;
proc means n mean std t data=large.aa1983;var sprtrn;by vma_signal;run;

data large.aa1983;set large.aa1983;where year=1983;run;
data work.aa1983;set large.aa1983;where month=12;run;
proc univariate data=work.aa1983;var sprtrn;run;
proc sort data=work.aa1983;by vma_signal;
proc means n mean std t data=large.aa1983;var sprtrn;by vma_signal;run;

shiyiming

好像阐述的不大清楚啊。
不很理解你想要的。

shiyiming

我也没太理解,是想用ODS把12个结果放在一个数据集里吗?
[code:2xuris8c]data temp_1 temp_2;
        set sashelp.class;
        if sex='男' then output temp_1;
        else output temp_2;
run;

%macro getproc;
        %do i=1 %to 2;
                proc means n mean std t data=temp_&i;
                        var age;
                run;
                proc univariate data=temp_&i;
                        var age;
                run;
        %end;
%mend;

ods _all_ close;
ods output Summary(persist=proc)=means
                        Moments(persist=proc)=moments
                        BasicMeasures(persist=proc)=basicmeasures;
%getproc
ods _all_ close;
ods listing;[/code:2xuris8c]
为什么where month12次,不用by month呢?

shiyiming

真是非常佩服。周全而敏捷。真是不错。

shiyiming

我想by month来着 但是就会出错
我是想把12个output的结果输出在一个文件里 就是这个文件里能包含我12个月的数据结果。。没说清楚实在抱歉。。

shiyiming

补充一下 最终目的是想把SAS output里的数据结果存为excel文档。

shiyiming

是把PROC的输出存到excel就行了吗?
tagset ExcelXP v1.86下载地址 [url:20qh29r5]http://support.sas.com/rnd/base/ods/odsmarkup/excltags.tpl[/url:20qh29r5]
[code:20qh29r5]proc sort data=sashelp.class out=work.class;
        by sex;
run;

ods _all_ close;
ods tagsets.excelxp path='d:\'
                                        style=Analysis
                                        file='means.xml'
                                        options(sheet_interval='none');
proc means n mean std t data=class;
        var age;
        by sex;
run;
ods tagsets.excelxp file='univariate.xml'
                                        options(sheet_interval='bygroup');
proc univariate data=class;
        var age;
        by sex;
run;
ods _all_ close;
ods listing;[/code:20qh29r5]