1
0
mirror of https://github.com/sasjs/core.git synced 2025-12-28 05:20:06 +00:00

Compare commits

...

1 Commits

Author SHA1 Message Date
Allan Bowe
6d2fc7e265 fix: removing bug introduced to mp_getddl and adding a test to prevent regression 2021-07-29 13:02:58 +03:00
3 changed files with 27 additions and 4 deletions

View File

@@ -4419,8 +4419,8 @@ run;
)/*/STORE SOURCE*/;
/* check fileref is assigned */
%if %mf_existfileref(&outref)=0 %then %do;
filename &outref temp ;
%if %mf_existfileref(&fref)=0 %then %do;
filename &fref temp ;
%end;
%if %length(&libref)=0 %then %let libref=WORK;

View File

@@ -38,8 +38,8 @@
)/*/STORE SOURCE*/;
/* check fileref is assigned */
%if %mf_existfileref(&outref)=0 %then %do;
filename &outref temp ;
%if %mf_existfileref(&fref)=0 %then %do;
filename &fref temp ;
%end;
%if %length(&libref)=0 %then %let libref=WORK;

View File

@@ -0,0 +1,23 @@
/**
@file
@brief Testing mp_getddl.sas macro
<h4> SAS Macros </h4>
@li mp_getddl.sas
@li mp_assert.sas
**/
data test(index=(pk=(x y)/unique /nomiss));
x=1;
y='blah';
label x='blah';
run;
proc sql; describe table &syslast;
%mp_getddl(work,test,flavour=tsql,showlog=YES)
%mp_assert(
iftrue=(&syscc=0),
desc=mp_getddl runs without errors,
outds=work.test_results
)