diff --git a/all.sas b/all.sas index 8186e58..a909be9 100644 --- a/all.sas +++ b/all.sas @@ -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; diff --git a/base/mp_getddl.sas b/base/mp_getddl.sas index 4b7d400..7c0be9e 100644 --- a/base/mp_getddl.sas +++ b/base/mp_getddl.sas @@ -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; diff --git a/tests/base/mp_getddl.test.sas b/tests/base/mp_getddl.test.sas new file mode 100644 index 0000000..022e67e --- /dev/null +++ b/tests/base/mp_getddl.test.sas @@ -0,0 +1,23 @@ +/** + @file + @brief Testing mp_getddl.sas macro + +

SAS Macros

+ @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 +) \ No newline at end of file