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

fix: removing usecache option (wasn't used in the end)

Browse Source
This commit is contained in:
4gl
2026-04-28 19:06:29 +01:00
parent f642e35f6b
commit f1ac0bd821
2 changed files with 8 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/viyaonly/mfv_existsashdat.test.sas
+1 -26
View File
@@ -63,37 +63,12 @@ quit;
) )
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
%put TEST 3 - usecache= controls whether the cached dataset is reused; /* Teardown */
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
/* First call: populates the cache dataset work.testcache_&testcaslib */
%let _rc=%mfv_existsashdat(&testcaslib..&tab1,outprefix=work.testcache);
/* Delete the sashdat from the caslib so a fresh scan would return 0 */
proc casutil; proc casutil;
deletesource casdata="&tab1..sashdat" incaslib="&testcaslib" quiet; deletesource casdata="&tab1..sashdat" incaslib="&testcaslib" quiet;
quit; quit;
/* usecache=1 (default): must return 1 from the cached dataset */
%mp_assert(
iftrue=(%mfv_existsashdat(&testcaslib..&tab1,outprefix=work.testcache)=1),
desc=Check returns 1 from cache even after source file is deleted
)
/* usecache=0: forces rescan and reflects the deletion */
%mp_assert(
iftrue=(
%mfv_existsashdat(&testcaslib..&tab1,usecache=0,outprefix=work.testcache)=0
),
desc=Check returns 0 when usecache=0 forces a rescan after source file deleted
)
%let syscc=0;
/* ------------------------------------------------------------------------ */
/* Teardown: terminate CAS session (sashdat already removed in TEST 4) */
/* ------------------------------------------------------------------------ */
cas mysess terminate; cas mysess terminate;
%let syscc=0; %let syscc=0;
viya/mfv_existsashdat.sas
+7 -11
View File
@@ -8,15 +8,12 @@
The function uses `dosubl()` to run the `table.fileinfo` action, for the The function uses `dosubl()` to run the `table.fileinfo` action, for the
specified library, filtering for `*.sashdat` tables. specified library, filtering for `*.sashdat` tables.
IMPORTANT NOTE - The results are cached in a WORK table (&outprefix._&lib). Results are cached in a WORK table (&outprefix._&lib). If that table
If that table already exists, it is queried instead, to avoid the already exists it is queried directly to avoid the dosubl() overhead.
dosubl() performance hit. To force a rescan, use a new `&outprefix` value or delete the cache
table before calling.
To force a rescan, just use a new `&outprefix` value, or delete the table(s)
before running the function.
@param [in] libds library.dataset @param [in] libds library.dataset
@param [in] usecache= (1) Set to 0 to rebuild the cache
@param [out] outprefix= (work.mfv_existsashdat) @param [out] outprefix= (work.mfv_existsashdat)
Used to store current HDATA tables to improve subsequent query performance. Used to store current HDATA tables to improve subsequent query performance.
This reference is a prefix and is converted to `&prefix._{libref}` This reference is a prefix and is converted to `&prefix._{libref}`
@@ -27,14 +24,13 @@
@author Mathieu Blauw @author Mathieu Blauw
**/ **/
%macro mfv_existsashdat(libds,usecache=1,outprefix=work.mfv_existsashdat %macro mfv_existsashdat(libds,outprefix=work.mfv_existsashdat);
);
%local rc dsid name lib ds; %local rc dsid name lib ds;
%let lib=%upcase(%scan(&libds,1,'.')); %let lib=%upcase(%scan(&libds,1,'.'));
%let ds=%upcase(%scan(&libds,-1,'.')); %let ds=%upcase(%scan(&libds,-1,'.'));
/* if table does not exist, create it */ /* if cache table does not exist, build it */
%if &usecache ne 1 or %sysfunc(exist(&outprefix._&lib)) ne 1 %then %do; %if %sysfunc(exist(&outprefix._&lib)) ne 1 %then %do;
%let rc=%sysfunc(dosubl(%nrstr( %let rc=%sysfunc(dosubl(%nrstr(
/* Read in table list (once per &lib per session) */ /* Read in table list (once per &lib per session) */
proc cas; proc cas;