diff --git a/all.sas b/all.sas index a11ca94..2d4e760 100644 --- a/all.sas +++ b/all.sas @@ -975,7 +975,8 @@ https://github.com/yabwon/SAS_PACKAGES/blob/main/packages/baseplus.md#functionex %end; %end; %else %do; - %put dataset &libds not opened! (rc=&dsid); + %put &sysmacroname: dataset &libds not opened! (rc=&dsid); + %put &sysmacroname: %sysfunc(sysmsg()); %return; %end; @@ -1037,7 +1038,11 @@ https://github.com/yabwon/SAS_PACKAGES/blob/main/packages/baseplus.md#functionex %let vlen = %str( ); %end; %end; - %else %put dataset &libds not opened! (rc=&dsid); + %else %do; + %put &sysmacroname: dataset &libds not opened! (rc=&dsid); + %put &sysmacroname: %sysfunc(sysmsg()); + %return; + %end; /* Close dataset */ %let rc = %sysfunc(close(&dsid)); @@ -1161,7 +1166,11 @@ returns: %let vnum = %str( ); %end; %end; - %else %put dataset &ds not opened! (rc=&dsid); + %else %do; + %put &sysmacroname: dataset &libds not opened! (rc=&dsid); + %put &sysmacroname: %sysfunc(sysmsg()); + %return; + %end; /* Close dataset */ %let rc = %sysfunc(close(&dsid)); @@ -1210,7 +1219,11 @@ Usage: %let vtype = %str( ); %end; %end; - %else %put dataset &libds not opened! (rc=&dsid); + %else %do; + %put &sysmacroname: dataset &libds not opened! (rc=&dsid); + %put &sysmacroname: %sysfunc(sysmsg()); + %return; + %end; /* Close dataset */ %let rc = %sysfunc(close(&dsid)); diff --git a/base/mf_getvarformat.sas b/base/mf_getvarformat.sas index 677b305..76c910b 100755 --- a/base/mf_getvarformat.sas +++ b/base/mf_getvarformat.sas @@ -51,7 +51,8 @@ %end; %end; %else %do; - %put dataset &libds not opened! (rc=&dsid); + %put &sysmacroname: dataset &libds not opened! (rc=&dsid); + %put &sysmacroname: %sysfunc(sysmsg()); %return; %end; diff --git a/base/mf_getvarlen.sas b/base/mf_getvarlen.sas index 64f1bb8..e936013 100644 --- a/base/mf_getvarlen.sas +++ b/base/mf_getvarlen.sas @@ -43,7 +43,11 @@ %let vlen = %str( ); %end; %end; - %else %put dataset &libds not opened! (rc=&dsid); + %else %do; + %put &sysmacroname: dataset &libds not opened! (rc=&dsid); + %put &sysmacroname: %sysfunc(sysmsg()); + %return; + %end; /* Close dataset */ %let rc = %sysfunc(close(&dsid)); diff --git a/base/mf_getvarnum.sas b/base/mf_getvarnum.sas index 83fc99f..a449ee6 100755 --- a/base/mf_getvarnum.sas +++ b/base/mf_getvarnum.sas @@ -43,7 +43,11 @@ returns: %let vnum = %str( ); %end; %end; - %else %put dataset &ds not opened! (rc=&dsid); + %else %do; + %put &sysmacroname: dataset &libds not opened! (rc=&dsid); + %put &sysmacroname: %sysfunc(sysmsg()); + %return; + %end; /* Close dataset */ %let rc = %sysfunc(close(&dsid)); diff --git a/base/mf_getvartype.sas b/base/mf_getvartype.sas index 65f0753..7496f68 100755 --- a/base/mf_getvartype.sas +++ b/base/mf_getvartype.sas @@ -39,7 +39,11 @@ Usage: %let vtype = %str( ); %end; %end; - %else %put dataset &libds not opened! (rc=&dsid); + %else %do; + %put &sysmacroname: dataset &libds not opened! (rc=&dsid); + %put &sysmacroname: %sysfunc(sysmsg()); + %return; + %end; /* Close dataset */ %let rc = %sysfunc(close(&dsid));