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

fix: mp_stackdiffs.sas - case when base records are missing, plus tests

Browse Source
This commit is contained in:
munja
2022-01-21 12:19:34 +01:00
parent 9cf2cc3c96
commit 67df4dffeb
2 changed files with 71 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
base/mp_stackdiffs.sas
View File

@@ -413,7 +413,7 @@ run;
*/
%let missvars=%mf_wordsinstr1butnotstr2(
Str1=%mf_getvarlist(&outadd),
Str2=%mf_getvarlist(&outbase)
Str2=%mf_getvarlist(&baselibds)
);
%if %length(&missvars)>0 %then %do;
/* add them to the err table */
@@ -470,7 +470,7 @@ select distinct tgtvar_nm into: missvars separated by ' '
where move_type='M' and is_diff=1;
%let missvars=%mf_wordsinstr1butnotstr2(
Str1=&missvars,
Str2=%mf_getvarlist(&outbase)
Str2=%mf_getvarlist(&baselibds)
);
%if %length(&missvars)>0 %then %do;
/* add them to the err table */
@@ -488,7 +488,32 @@ select distinct tgtvar_nm into: missvars separated by ' '
delete * from &outmod;
%end;
%else %do;
/* now check for records that do not exist (therefore cannot be modified) */
proc sql;
create table &modrec as
select a.*
from &outmod a
left join &base b
on &keyjoin
where a.%scan(&key,1) is null
order by &commakey;
data &moderr;
if 0 then set &errds;
set &modrec;
PK_VARS="&key";
PK_VALS=catx('/',&commakey);
ERR_MSG="Rows cannot be modified as they do not exist on the Base dataset";
keep PK_VARS PK_VALS ERR_MSG;
run;
proc append base=&errds data=&moderr;
run;
/* delete the above records from the outmod table */
data &outmod;
merge &outmod (in=a) &modrec (in=b);
by &key;
if not b;
run;
/* now - we can prepare the final MOD table (which is currently PK only) */
%end;
%if &mdebug=0 %then %do;