mirror of
https://github.com/sasjs/core.git
synced 2025-12-11 06:24:35 +00:00
122 lines
3.8 KiB
SAS
122 lines
3.8 KiB
SAS
/**
|
|
@file
|
|
@brief Streams a file to _webout according to content type
|
|
@details Will set headers using appropriate functions (SAS 9 vs Viya) and send
|
|
content as a binary stream.
|
|
|
|
Usage:
|
|
|
|
filename mc url "https://raw.githubusercontent.com/sasjs/core/main/all.sas";
|
|
%inc mc;
|
|
|
|
%mp_streamfile(contenttype=csv,inloc=/some/where.txt,outname=myfile.txt)
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mf_getplatform.sas
|
|
@li mp_binarycopy.sas
|
|
|
|
@param contenttype= Either TEXT, ZIP, CSV, EXCEL (default TEXT)
|
|
@param inloc= /path/to/file.ext to be sent
|
|
@param inref= fileref of file to be sent (if provided, overrides `inloc`)
|
|
@param outname= the name of the file, as downloaded by the browser
|
|
|
|
@author Allan Bowe
|
|
@source https://github.com/sasjs/core
|
|
|
|
**/
|
|
|
|
%macro mp_streamfile(
|
|
contenttype=TEXT
|
|
,inloc=
|
|
,inref=0
|
|
,outname=
|
|
)/*/STORE SOURCE*/;
|
|
|
|
%let contentype=%upcase(&contenttype);
|
|
%local platform; %let platform=%mf_getplatform();
|
|
|
|
%if &contentype=ZIP %then %do;
|
|
%if &platform=SASMETA %then %do;
|
|
data _null_;
|
|
rc=stpsrv_header('Content-type','application/zip');
|
|
rc=stpsrv_header('Content-disposition',"attachment; filename=&outname");
|
|
run;
|
|
%end;
|
|
%else %if &platform=SASVIYA %then %do;
|
|
filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" name='_webout.zip'
|
|
contenttype='application/zip'
|
|
contentdisp="attachment; filename=&outname";
|
|
%end;
|
|
%end;
|
|
%else %if &contentype=EXCEL %then %do;
|
|
/* suitable for XLS format */
|
|
%if &platform=SASMETA %then %do;
|
|
data _null_;
|
|
rc=stpsrv_header('Content-type','application/vnd.ms-excel');
|
|
rc=stpsrv_header('Content-disposition',"attachment; filename=&outname");
|
|
run;
|
|
%end;
|
|
%else %if &platform=SASVIYA %then %do;
|
|
filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" name='_webout.xls'
|
|
contenttype='application/vnd.ms-excel'
|
|
contentdisp="attachment; filename=&outname";
|
|
%end;
|
|
%end;
|
|
%else %if &contentype=XLSX %then %do;
|
|
%if &platform=SASMETA %then %do;
|
|
data _null_;
|
|
rc=stpsrv_header('Content-type','application/vnd.openxmlformats-officedocument.spreadsheetml.sheet');
|
|
rc=stpsrv_header('Content-disposition',"attachment; filename=&outname");
|
|
run;
|
|
%end;
|
|
%else %if &platform=SASVIYA %then %do;
|
|
filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" name='_webout.xls'
|
|
contenttype='application/vnd.openxmlformats-officedocument.spreadsheetml.sheet'
|
|
contentdisp="attachment; filename=&outname";
|
|
%end;
|
|
%end;
|
|
%else %if &contentype=TEXT %then %do;
|
|
%if &platform=SASMETA %then %do;
|
|
data _null_;
|
|
rc=stpsrv_header('Content-type','application/text');
|
|
rc=stpsrv_header('Content-disposition',"attachment; filename=&outname");
|
|
run;
|
|
%end;
|
|
%else %if &platform=SASVIYA %then %do;
|
|
filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" name='_webout.txt'
|
|
contenttype='application/text'
|
|
contentdisp="attachment; filename=&outname";
|
|
%end;
|
|
%end;
|
|
%else %if &contentype=CSV %then %do;
|
|
%if &platform=SASMETA %then %do;
|
|
data _null_;
|
|
rc=stpsrv_header('Content-type','application/csv');
|
|
rc=stpsrv_header('Content-disposition',"attachment; filename=&outname");
|
|
run;
|
|
%end;
|
|
%else %if &platform=SASVIYA %then %do;
|
|
filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" name='_webout.txt'
|
|
contenttype='application/csv'
|
|
contentdisp="attachment; filename=&outname";
|
|
%end;
|
|
%end;
|
|
%else %if &contentype=HTML %then %do;
|
|
%if &platform=SASVIYA %then %do;
|
|
filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" name="_webout.json"
|
|
contenttype="text/html";
|
|
%end;
|
|
%end;
|
|
%else %do;
|
|
%put %str(ERR)OR: Content Type &contenttype NOT SUPPORTED by &sysmacroname!;
|
|
%return;
|
|
%end;
|
|
|
|
%if &inref ne 0 %then %do;
|
|
%mp_binarycopy(inref=&inref,outref=_webout)
|
|
%end;
|
|
%else %do;
|
|
%mp_binarycopy(inloc="&inloc",outref=_webout)
|
|
%end;
|
|
|
|
%mend; |