sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-07-23 15:35:29 +00:00
Code Issues Projects Releases Wiki Activity

fix: allow large numerics in mp_retainedkey

Browse Source
This commit is contained in:
allan
2026-06-25 14:23:43 +01:00
parent f484d10913
commit 3d6b9d0da5
2 changed files with 49 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/mp_retainedkey.sas
+6 -5
View File
@@ -148,7 +148,8 @@
%mp_abort(iftrue=(&iserr=1),mac=mp_retainedkey,msg=%superq(msg)) %mp_abort(iftrue=(&iserr=1),mac=mp_retainedkey,msg=%superq(msg))
proc sql noprint; proc sql noprint;
select sum(max(&retained_key),0) into: maxkey from &base_libds; select sum(max(&retained_key),0) format=32. into: maxkey trimmed
from &base_libds;
/** /**
* get base table RK and bus field values for lookup * get base table RK and bus field values for lookup
@@ -217,19 +218,19 @@ quit;
insert into &maxkeytable insert into &maxkeytable
set keytable="&base_libds" set keytable="&base_libds"
,keycolumn="&retained_key" ,keycolumn="&retained_key"
,max_key=%eval(&maxkey+&newkey_cnt) ,max_key=%sysevalf(&maxkey+&newkey_cnt)
,processed_dttm="%sysfunc(datetime(),%mf_fmtdttm())"dt; ,processed_dttm="%sysfunc(datetime(),%mf_fmtdttm())"dt;
%end; %end;
%else %do; %else %do;
update &maxkeytable update &maxkeytable
set max_key=%eval(&maxkey+&newkey_cnt) set max_key=%sysevalf(&maxkey+&newkey_cnt)
,processed_dttm="%sysfunc(datetime(),%mf_fmtdttm())"dt ,processed_dttm="%sysfunc(datetime(),%mf_fmtdttm())"dt
where keytable="&base_libds"; where keytable="&base_libds";
%end; %end;
%mp_lockanytable(UNLOCK %mp_lockanytable(UNLOCK
,lib=%scan(&maxkeytable,1,.) ,lib=%scan(&maxkeytable,1,.)
,ds=%scan(&maxkeytable,2,.) ,ds=%scan(&maxkeytable,2,.)
,ref=Updating maxkeyvalues with maxkey=%eval(&maxkey+&newkey_cnt) ,ref=Updating maxkeyvalues with maxkey=%sysevalf(&maxkey+&newkey_cnt)
,ctl_ds=&locktable ,ctl_ds=&locktable
) )
%end; %end;
@@ -237,7 +238,7 @@ quit;
/* fill in the missing retained key values */ /* fill in the missing retained key values */
%let tempvar=%mf_getuniquename(); %let tempvar=%mf_getuniquename();
data &outds(drop=&tempvar); data &outds(drop=&tempvar);
retain &tempvar %eval(&maxkey+1); retain &tempvar %sysevalf(&maxkey+1);
set &tempds2; set &tempds2;
if &retained_key =. then &retained_key=&tempvar; if &retained_key =. then &retained_key=&tempvar;
&tempvar=&tempvar+1; &tempvar=&tempvar+1;
tests/base/mp_retainedkey.test.sas
+43
View File
@@ -114,3 +114,46 @@ run;
desc=Checking append records created, desc=Checking append records created,
outds=work.test_results outds=work.test_results
) )
/** Test 3 - large numeric RK values (avoid exponential notation issue) **/
data work.targetds3;
set sashelp.class;
rk_col=_n_+209100000000;
run;
data work.appendtable3;
set sashelp.class;
if mod(_n_,2)=0 then name=cats('New',_n_);
if _n_<7;
run;
%mp_retainedkey(
base_lib=X
,base_dsn=targetds3
,append_lib=X
,append_dsn=APPENDTABLE3
,retained_key=rk_col
,business_key= name
,check_uniqueness=NO
,maxkeytable=0
,locktable=0
,outds=work.APPEND3
,filter_str=
)
%mp_assert(
iftrue=(&syscc=0),
desc=Checking errors in test 3 (large numeric RK),
outds=work.test_results
)
data work.check3;
do val=209100000001,209100000003,209100000005,
209100000020,209100000021,209100000022;
output;
end;
run;
%mp_assertcolvals(work.append3.rk_col,
checkvals=work.check3.val,
desc=All large numeric values have a match,
test=ALLVALS
)