diff --git a/sas/sasjs/macros/mpe_checkrestore.sas b/sas/sasjs/macros/mpe_checkrestore.sas index e126136..d32ae82 100644 --- a/sas/sasjs/macros/mpe_checkrestore.sas +++ b/sas/sasjs/macros/mpe_checkrestore.sas @@ -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; \ No newline at end of file +%mend mpe_checkrestore;