sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-04-11 19:03:13 +00:00
Code Issues Projects Releases Wiki Activity

feat: adding ISLIB validation to mp_validatecol macro

Browse Source
This commit is contained in:
allan
2026-04-02 23:45:09 +01:00
parent b5a76600d6
commit 186ea1cfba
2 changed files with 41 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
base/mp_validatecol.sas
View File

@@ -1,6 +1,6 @@
/** /**
@file @file
@brief Used to validate variables in a dataset @brief Used to validate values in a data step
@details Useful when sanitising inputs, to ensure that they arrive with a @details Useful when sanitising inputs, to ensure that they arrive with a
certain pattern. certain pattern.
Usage: Usage:
@@ -27,6 +27,7 @@
@param [in] incol The column to be validated @param [in] incol The column to be validated
@param [in] rule The rule to apply. Current rules: @param [in] rule The rule to apply. Current rules:
@li ISINT - checks if the variable is an integer @li ISINT - checks if the variable is an integer
@li ISLIB - checks if the value is a valid libref (NOT whether it exists)
@li ISNUM - checks if the variable is numeric @li ISNUM - checks if the variable is numeric
@li LIBDS - matches LIBREF.DATASET format @li LIBDS - matches LIBREF.DATASET format
@li FORMAT - checks if the provided format is syntactically valid @li FORMAT - checks if the provided format is syntactically valid
@@ -65,6 +66,19 @@
else &outcol=1; else &outcol=1;
drop &tempcol; drop &tempcol;
%end; %end;
%else %if &rule=ISLIB %then %do;
if _n_=1 then do;
retain &tempcol;
&tempcol=prxparse('/^[_a-z]\w{0,7}$/i');
if missing(&tempcol) then do;
putlog 'ERR' +(-1) "OR: Invalid expression for ISLIB";
stop;
end;
drop &tempcol;
end;
if prxmatch(&tempcol, trim(&incol)) then &outcol=1;
else &outcol=0;
%end;
%else %if &rule=LIBDS %then %do; %else %if &rule=LIBDS %then %do;
/* match libref.dataset */ /* match libref.dataset */
if _n_=1 then do; if _n_=1 then do;

26
tests/base/mp_validatecol.test.sas
View File

@@ -129,4 +129,30 @@ run;
desc=Test4 - ISFORMAT, desc=Test4 - ISFORMAT,
test=EQUALS 6, test=EQUALS 6,
outds=work.test_results outds=work.test_results
)
/**
* Test 5 - ISLIB
*/
data test5;
infile datalines4 dsd;
input;
inf=_infile_;
%mp_validatecol(inf,ISLIB,islib)
if islib=1;
datalines4;
some
!lib
%abort
definite
2fail
nineletrs
.failalso
_valid
;;;;
run;
%mp_assertdsobs(work.test5,
desc=Testing ISLIB,
test=EQUALS 3,
outds=work.test_results
) )