dc/dc
6
1
Fork 0
Code Issues 19 Pull Requests 1 Actions Packages Projects Releases 71 Wiki Activity

fix: output values to intended macro variables
All checks were successful
Build / Build-and-ng-test (pull_request) Successful in 3m33s
Details
Build / Build-and-test-development (pull_request) Successful in 8m19s
Details
Lighthouse Checks / lighthouse (20.15.1) (pull_request) Successful in 19m13s
Details

Browse Source
This commit is contained in:
Trevor Moody
2025-12-08 16:55:22 +00:00
parent e57a0de8a9
commit 43ae73c5f3
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
sas/sasjs/macros/mpe_checkrestore.sas
View File

@@ -55,8 +55,8 @@
where &dc_dttmtfmt. lt tx_to
and libref="%scan(&libds,1,.)" and dsn="%scan(&libds,2,.)";
%if "&audtab"="0" %then %do;
%let allow_restore=NO;
%let reason= &libds has no audit table configured;
%let &outresult=NO;
%let &outreason= &libds has no audit table configured;
%return;
%end;
@@ -66,8 +66,8 @@
select count(*) into: chk from &audtab
where load_ref="&load_ref";
%if &chk=0 %then %do;
%let allow_restore=NO;
%let reason=No entry for &load_ref in &audtab;
%let &outresult=NO;
%let &outreason=No entry for &load_ref in &audtab;
%return;
%end;
@@ -84,8 +84,8 @@
where groupname="&dc_admin_group";
%if &is_admin>0 %then %do;
%let allow_restore=YES;
%let reason=IS ADMIN;
%let &outresult=YES;
%let &outreason=IS ADMIN;
%return;
%end;
@@ -95,8 +95,8 @@
,access_level=EDIT
)
%if %mf_nobs(access_check)=0 %then %do;
%let allow_restore=NO;
%let reason=No access in MPE_TABLES;
%let &outresult=NO;
%let &outreason=No access in MPE_TABLES;
%return;
%end;
@@ -112,8 +112,8 @@
and CLS_LIBREF="%upcase(&base_lib)"
and CLS_TABLE="%upcase(&base_ds)";
%if %mf_nobs(work.cls_rules)>0 %then %do;
%let allow_restore=NO;
%let reason=User has restrictions in MPE_COLUMN_LEVEL_SECURITY;
%let &outresult=NO;
%let &outreason=User has restrictions in MPE_COLUMN_LEVEL_SECURITY;
data _null_;
set work.cls_rules;
putlog (_all_)(=);
@@ -134,8 +134,8 @@
and rls_table="&base_ds"
and rls_active=1;
%if %mf_nobs(work.rls_rules)>0 %then %do;
%let allow_restore=NO;
%let reason=User has restrictions in MPE_ROW_LEVEL_SECURITY;
%let &outresult=NO;
%let &outreason=User has restrictions in MPE_ROW_LEVEL_SECURITY;
data _null_;
set work.rls_rules;
putlog (_all_)(=);
@@ -144,7 +144,7 @@
%return;
%end;
%else %do;
%let allow_restore=YES;
%let reason=CHECKS PASSED;
%let &outresult=YES;
%let &outreason=CHECKS PASSED;
%end;
%mend mpe_checkrestore;
%mend mpe_checkrestore;