When I call the macro in the source below PROC SCAPROC stops recording and closes the SCA file. I have a simple test step that uses DOSUBL but does not cause the recording to stop. If you are interested in this topic, please run the program below first with %if 0 %then %do;
save a copy of SCA file then with %if 1 %then %do;
and compare the two. You should see that the recording stopped after calling M_EXPAND_VARLIST
options ls=max mprint=1;
proc scaproc;
record '.\dosubl-scaproc-bug-2.sca' expandmacros opentimes;
run;
%macro
m_expand_varlist /*Returns an expanded variable list and optionally creates an indexed data set of variable names*/
(
data = _LAST_, /*[R]Input data*/
var = _ALL_, /*[R]Variable List expanded*/
copy = &var, /*[O]Copy &VARS to the OUT= data set*/
where = 1, /*[R]Where clause to subset OUT=, useful for selecting by a name suffix e.g. where=_name_ like '%_Status'*/
expr = nliteral(&name), /*[R]An expression that can be used to modify the names in the expanded list*/
keep = , /*[O]Keep data set option for DATA=*/
drop = , /*[O]Drop data set option for DATA=*/
rename= , /*[O]Rename data set option for DATA=*/
out = work._deleteme_, /*[O]Output data indexed by _NAME_ and _INDEX_*/
name = _NAME_, /*[R]Name of the variable name variable in the output data set*/
label = _LABEL_, /*[R]Name of the variable label variable in the output data set*/
index = _INDEX_, /*[R]Name of the variable index variable in the output data set*/
dlm = ' ' /*[R]List delimiter*/
);
%local m i;
%let i=&sysindex;
%let m=&sysmacroname._&i;
%do %while(%symexist(&m));
%let i = %eval(&i + 1);
%let m=&sysmacroname._&i;
%end;
%put NOTE: &=m is a unique symbol name;
%local rc &m code1 code2 code3 code4 code5;
%let code1 = %str(options notes=1; proc transpose name=&name label=&label data=&data(obs=0 keep=&keep drop=&drop rename=(&rename)) out=&out(where=(&where)); var &var; copy © run;);
%let code2 = %str(data &out(index=(&index &name)); set &out; &index+1; run;);
%let code3 = %str(proc sql noprint; select &expr into :&m separated by &dlm from &out; quit;);
%if %superq(OUT) eq %str(work._deleteme_) %then %let code4=%str(proc delete data=work._deleteme_; run;);
%let code5 = %str(options notes=1;run;quit;);
%let rc=%qsysfunc(dosubl(&code1 &code2 &code3 &code4 &code5));
%unquote(&&&m)
%mend m_expand_varlist;
data _null_;
rc = dosubl('%trim( proc contents data=sashelp.cars varnum; run;)');
put rc=;
run;
%if 0 %then %do; /*Change 0 to 1 to see SCA file that ends after calling M_EXPAND_VARLIST*/
%global classvars;
%let classvars=%m_expand_varlist(data=sashelp.classfit,var=_CHARACTER_,out=expand);
%put NOTE: &=classvars;
proc print data=expand;
run;
%end;
%put _all_;
data shoes shoes2 shoes3;
set sashelp.shoes;
run;
proc contents varnum;
run;
