sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2025-12-10 22:14:35 +00:00
Code Issues Projects Releases Wiki Activity

fix: setting default to best. over 8. for mf_getformat with force option

Browse Source
This commit is contained in:
Allan Bowe
2021-05-07 11:20:01 +03:00
parent af98909753
commit 298acc4e50
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
all.sas
View File

@@ -932,9 +932,9 @@ options noquotelenmax;
8. 8.
NOTE: Variable renegade does not exist in test NOTE: Variable renegade does not exist in test
@param libds Two part dataset (or view) reference. @param [in] libds Two part dataset (or view) reference.
@param var Variable name for which a format should be returned @param [in] var Variable name for which a format should be returned
@param force Set to 1 to supply a default if the variable has no format @param [in] force=(0) Set to 1 to supply a default if the variable has no format
@returns outputs format @returns outputs format
@author Allan Bowe @author Allan Bowe
@@ -969,7 +969,7 @@ options noquotelenmax;
%let vlen = %sysfunc(varlen(&dsid, &vnum)); %let vlen = %sysfunc(varlen(&dsid, &vnum));
%let vtype = %sysfunc(vartype(&dsid, &vnum.)); %let vtype = %sysfunc(vartype(&dsid, &vnum.));
%if &vtype=C %then %let vformat=$&vlen..; %if &vtype=C %then %let vformat=$&vlen..;
%else %let vformat=8.; %else %let vformat=best.;
%end; %end;
@@ -977,7 +977,7 @@ options noquotelenmax;
%let rc = %sysfunc(close(&dsid)); %let rc = %sysfunc(close(&dsid));
/* Return variable format */ /* Return variable format */
&vformat &vformat
%mend;/** %mend mf_getVarFormat;/**
@file @file
@brief Returns the length of a variable @brief Returns the length of a variable
@details Uses varlen function to identify the length of a particular variable. @details Uses varlen function to identify the length of a particular variable.

10
base/mf_getvarformat.sas
View File

@@ -23,9 +23,9 @@
8. 8.
NOTE: Variable renegade does not exist in test NOTE: Variable renegade does not exist in test
@param libds Two part dataset (or view) reference. @param [in] libds Two part dataset (or view) reference.
@param var Variable name for which a format should be returned @param [in] var Variable name for which a format should be returned
@param force Set to 1 to supply a default if the variable has no format @param [in] force=(0) Set to 1 to supply a default if the variable has no format
@returns outputs format @returns outputs format
@author Allan Bowe @author Allan Bowe
@@ -60,7 +60,7 @@
%let vlen = %sysfunc(varlen(&dsid, &vnum)); %let vlen = %sysfunc(varlen(&dsid, &vnum));
%let vtype = %sysfunc(vartype(&dsid, &vnum.)); %let vtype = %sysfunc(vartype(&dsid, &vnum.));
%if &vtype=C %then %let vformat=$&vlen..; %if &vtype=C %then %let vformat=$&vlen..;
%else %let vformat=8.; %else %let vformat=best.;
%end; %end;
@@ -68,4 +68,4 @@
%let rc = %sysfunc(close(&dsid)); %let rc = %sysfunc(close(&dsid));
/* Return variable format */ /* Return variable format */
&vformat &vformat
%mend; %mend mf_getVarFormat;