可能在同一存储过程中的Excel和HTML输出？

Question

我有一个存储过程，它将Excel作为下载返回（由于数据量很大，加载时间很长）。这是正确的，但下载后会留下一个空白页。所以我想在空白页面中放置一些html文本，最好是之前的加载图标，以及下载excel后的“完成”信息。但是当我在excel输出之后/之前使用ods html时，不是下载excel而是将excel作为HTML-TextOutput，那么有没有办法在一个进程中完成两个输出？

代码示例：

/* something like:*/

ods html body=_webout; 
data _null_;
file _webout;
put '<img src="loading.gif" />';
run;
ods html close;
/*here is the Exceloutput which i use at the moment without htmloutput*/

%let RV=%sysfunc(appsrv_header(Content-type, application/vnd.ms-excel));
%let RV=%sysfunc(appsrv_header(Content-disposition,%str(attachment; filename=myExcel.xls )));


ods tagsets.excelxp file=_webout options(embedded_titles='yes' embedded_footnotes='yes' 
                     sheet_interval='none' sheet_name='Result') ;

 PROC PRINT DATA=AUSDRUCK UNIFORM NOOBS LABEL; 
 OPTIONS DATE NUMBER; 
 TITLE1"myExcel "; 
 VAR var1 var2 var3 var4 var5; 

 RUN; 

ods tagsets.excelxp close;

/*and then something like:*/

ods html body=_webout; 
data _null_;
file _webout;
put 'Excel download finished successfull';
run;
ods html close;