sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-19 22:40:06 +00:00
Code Issues Projects Releases Wiki Activity

fix: dirlist logic

Browse Source
This commit is contained in:
munja
2022-01-11 11:06:38 +01:00
parent 8cfa37ce8b
commit 4bec574011
2 changed files with 30 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
all.sas
View File

@@ -4055,12 +4055,12 @@ run;
* The above transpose can mean that some updates create additional columns.
* This necessitates the occasional use of datastep over proc append.
*/
%local basevars appvars usedatastep;
%if %mf_existds(&outds) %then %do;
%local basevars appvars newvars;
%let basevars=%mf_getvarlist(&outds);
%let appvars=%mf_getvarlist(&out_ds);
%let newvars=%length(%mf_wordsinstr1butnotstr2(Str1=&appvars,Str2=&basevars));
%if %mf_existds(&outds) and &newvars>0 %then %do;
%if &newvars>0 %then %do;
data &outds;
set &outds &out_ds;
run;
@@ -4069,6 +4069,11 @@ run;
proc append base=&outds data=&out_ds force nowarn;
run;
%end;
%end;
%else %do;
proc append base=&outds data=&out_ds;
run;
%end;
/* recursive call */
%if &maxdepth>&level or &maxdepth=MAX %then %do;

11
base/mp_dirlist.sas
View File

@@ -198,12 +198,12 @@ run;
* The above transpose can mean that some updates create additional columns.
* This necessitates the occasional use of datastep over proc append.
*/
%local basevars appvars usedatastep;
%if %mf_existds(&outds) %then %do;
%local basevars appvars newvars;
%let basevars=%mf_getvarlist(&outds);
%let appvars=%mf_getvarlist(&out_ds);
%let newvars=%length(%mf_wordsinstr1butnotstr2(Str1=&appvars,Str2=&basevars));
%if %mf_existds(&outds) and &newvars>0 %then %do;
%if &newvars>0 %then %do;
data &outds;
set &outds &out_ds;
run;
@@ -212,6 +212,11 @@ run;
proc append base=&outds data=&out_ds force nowarn;
run;
%end;
%end;
%else %do;
proc append base=&outds data=&out_ds;
run;
%end;
/* recursive call */
%if &maxdepth>&level or &maxdepth=MAX %then %do;