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

fix: proc append warnings for file attributes

Browse Source
This commit is contained in:
Ivor Townsend
2022-01-10 16:33:44 +00:00
parent 4307bfb1b5
commit db195a8311
1 changed files with 43 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
base/mp_dirlist.sas
View File

@@ -50,6 +50,9 @@
<h4> SAS Macros </h4> <h4> SAS Macros </h4>
@li mp_dropmembers.sas @li mp_dropmembers.sas
@li mf_existds.sas
@li mf_getvarlist.sas
@li mf_wordsInStr1ButNotStr2.sas
<h4> Related Macros </h4> <h4> Related Macros </h4>
@li mp_dirlist.test.sas @li mp_dirlist.test.sas
@@ -194,8 +197,46 @@ data &out_ds;
run; run;
/* update main table */ /* update main table */
proc append base=&outds data=&out_ds;
run; /* The latest update may not match the base table as the addition of file
attributes is conditional, so cannot always use proc append as warnings may be
generated */
%if %mf_existds(&outds) %then %do;
%if %length(%mf_getvarlist(&outds)) > %length(%mf_getvarlist(&out_ds)) %then
%do;
%let varstr1 = %mf_getvarlist(&outds);
%let varstr2 = %mf_getvarlist(&out_ds);
%end;
%else %do;
%let varstr1 = %mf_getvarlist(&out_ds);
%let varstr2 = %mf_getvarlist(&outds);
%end;
%if "%mf_wordsInStr1ButNotStr2(
Str1=&varstr1
,Str2=&varstr2
)" ne "" %then %do;
data &outds;
set &outds &out_ds;
run;
%end;
%else %do;
proc append base=&outds data=&out_ds;
run;
%end;
%end;
%else %do;
proc append base=&outds data=&out_ds;
run;
%end;
/* recursive call */ /* recursive call */
%if &maxdepth>&level or &maxdepth=MAX %then %do; %if &maxdepth>&level or &maxdepth=MAX %then %do;