sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-07 09:30:06 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #133 from sasjs/fmtname

Browse Source 
fix: adding fmtname to mp_getcols() macro
This commit is contained in:
Allan Bowe
2021-12-28 15:39:07 +02:00
committed by GitHub
parent d302ef266d eac47bd5db
commit c75c169b80
3 changed files with 43 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
all.sas
View File

@@ -5539,11 +5539,11 @@ filename &fref1 clear;
@param ds The dataset from which to obtain column metadata @param ds The dataset from which to obtain column metadata
@param outds= (work.cols) The output dataset to create. Sample data: @param outds= (work.cols) The output dataset to create. Sample data:
|NAME $|LENGTH 8|VARNUM 8|LABEL $|FORMAT $49|TYPE $1 |DDTYPE $| |NAME:$32.|LENGTH:best.|VARNUM:best.|LABEL:$256.|FMTNAME:$32.|FORMAT:$49.|TYPE:$1.|DDTYPE:$9.|
|---|---|---|---|---|---|---| |---|---|---|---|---|---|---|---|
|AIR|8|2|international airline travel (thousands)|8.|N|NUMERIC| |`AIR `|`8 `|`2 `|`international airline travel (thousands) `|` `|`8. `|`N `|`NUMERIC `|
|DATE|8|1|DATE|MONYY.|N|DATE| |`DATE `|`8 `|`1 `|`DATE `|`MONYY `|`MONYY. `|`N `|`DATE `|
|REGION|3|3|REGION|$3.|C|CHARACTER| |`REGION `|`3 `|`3 `|`REGION `|` `|`$3. `|`C `|`CHARACTER `|
<h4> Related Macros </h4> <h4> Related Macros </h4>
@li mf_getvarlist.sas @li mf_getvarlist.sas
@@ -5555,26 +5555,27 @@ filename &fref1 clear;
**/ **/
%macro mp_getcols(ds, outds=work.cols); %macro mp_getcols(ds, outds=work.cols);
%local dropds;
proc contents noprint data=&ds proc contents noprint data=&ds
out=_data_ (keep=name type length label varnum format:); out=_data_ (keep=name type length label varnum format:);
run; run;
data &outds(keep=name type length varnum format label ddtype); %let dropds=&syslast;
set &syslast(rename=(format=format2 type=type2)); data &outds(keep=name type length varnum format label ddtype fmtname);
set &dropds(rename=(format=fmtname type=type2));
name=upcase(name); name=upcase(name);
if type2=2 then do; if type2=2 then do;
length format $49.; length format $49.;
if format2='' then format=cats('$',length,'.'); if fmtname='' then format=cats('$',length,'.');
else if formatl=0 then format=cats(format2,'.'); else if formatl=0 then format=cats(fmtname,'.');
else format=cats(format2,formatl,'.'); else format=cats(fmtname,formatl,'.');
type='C'; type='C';
ddtype='CHARACTER'; ddtype='CHARACTER';
end; end;
else do; else do;
if format2='' then format=cats(length,'.'); if fmtname='' then format=cats(length,'.');
else if formatl=0 then format=cats(format2,'.'); else if formatl=0 then format=cats(fmtname,'.');
else if formatd=0 then format=cats(format2,formatl,'.'); else if formatd=0 then format=cats(fmtname,formatl,'.');
else format=cats(format2,formatl,'.',formatd); else format=cats(fmtname,formatl,'.',formatd);
type='N'; type='N';
if format=:'DATETIME' or format=:'E8601DT' then ddtype='DATETIME'; if format=:'DATETIME' or format=:'E8601DT' then ddtype='DATETIME';
else if format=:'DATE' or format=:'DDMMYY' or format=:'MMDDYY' else if format=:'DATE' or format=:'DDMMYY' or format=:'MMDDYY'
@@ -5586,7 +5587,8 @@ data &outds(keep=name type length varnum format label ddtype);
end; end;
if label='' then label=name; if label='' then label=name;
run; run;
proc sql;
drop table &dropds;
%mend mp_getcols;/** %mend mp_getcols;/**
@file mp_getconstraints.sas @file mp_getconstraints.sas
@brief Get constraint details at column level @brief Get constraint details at column level

34
base/mp_getcols.sas
View File

@@ -14,11 +14,11 @@
@param ds The dataset from which to obtain column metadata @param ds The dataset from which to obtain column metadata
@param outds= (work.cols) The output dataset to create. Sample data: @param outds= (work.cols) The output dataset to create. Sample data:
|NAME $|LENGTH 8|VARNUM 8|LABEL $|FORMAT $49|TYPE $1 |DDTYPE $| |NAME:$32.|LENGTH:best.|VARNUM:best.|LABEL:$256.|FMTNAME:$32.|FORMAT:$49.|TYPE:$1.|DDTYPE:$9.|
|---|---|---|---|---|---|---| |---|---|---|---|---|---|---|---|
|AIR|8|2|international airline travel (thousands)|8.|N|NUMERIC| |`AIR `|`8 `|`2 `|`international airline travel (thousands) `|` `|`8. `|`N `|`NUMERIC `|
|DATE|8|1|DATE|MONYY.|N|DATE| |`DATE `|`8 `|`1 `|`DATE `|`MONYY `|`MONYY. `|`N `|`DATE `|
|REGION|3|3|REGION|$3.|C|CHARACTER| |`REGION `|`3 `|`3 `|`REGION `|` `|`$3. `|`C `|`CHARACTER `|
<h4> Related Macros </h4> <h4> Related Macros </h4>
@li mf_getvarlist.sas @li mf_getvarlist.sas
@@ -30,26 +30,27 @@
**/ **/
%macro mp_getcols(ds, outds=work.cols); %macro mp_getcols(ds, outds=work.cols);
%local dropds;
proc contents noprint data=&ds proc contents noprint data=&ds
out=_data_ (keep=name type length label varnum format:); out=_data_ (keep=name type length label varnum format:);
run; run;
data &outds(keep=name type length varnum format label ddtype); %let dropds=&syslast;
set &syslast(rename=(format=format2 type=type2)); data &outds(keep=name type length varnum format label ddtype fmtname);
set &dropds(rename=(format=fmtname type=type2));
name=upcase(name); name=upcase(name);
if type2=2 then do; if type2=2 then do;
length format $49.; length format $49.;
if format2='' then format=cats('$',length,'.'); if fmtname='' then format=cats('$',length,'.');
else if formatl=0 then format=cats(format2,'.'); else if formatl=0 then format=cats(fmtname,'.');
else format=cats(format2,formatl,'.'); else format=cats(fmtname,formatl,'.');
type='C'; type='C';
ddtype='CHARACTER'; ddtype='CHARACTER';
end; end;
else do; else do;
if format2='' then format=cats(length,'.'); if fmtname='' then format=cats(length,'.');
else if formatl=0 then format=cats(format2,'.'); else if formatl=0 then format=cats(fmtname,'.');
else if formatd=0 then format=cats(format2,formatl,'.'); else if formatd=0 then format=cats(fmtname,formatl,'.');
else format=cats(format2,formatl,'.',formatd); else format=cats(fmtname,formatl,'.',formatd);
type='N'; type='N';
if format=:'DATETIME' or format=:'E8601DT' then ddtype='DATETIME'; if format=:'DATETIME' or format=:'E8601DT' then ddtype='DATETIME';
else if format=:'DATE' or format=:'DDMMYY' or format=:'MMDDYY' else if format=:'DATE' or format=:'DDMMYY' or format=:'MMDDYY'
@@ -61,5 +62,6 @@ data &outds(keep=name type length varnum format label ddtype);
end; end;
if label='' then label=name; if label='' then label=name;
run; run;
proc sql;
drop table &dropds;
%mend mp_getcols; %mend mp_getcols;

7
tests/crossplatform/mp_getcols.test.sas
View File

@@ -4,6 +4,7 @@
<h4> SAS Macros </h4> <h4> SAS Macros </h4>
@li mp_getcols.sas @li mp_getcols.sas
@li mp_assertcols.sas
@li mp_assertcolvals.sas @li mp_assertcolvals.sas
@li mp_assertdsobs.sas @li mp_assertdsobs.sas
@@ -31,3 +32,9 @@ run;
desc=All values have a match, desc=All values have a match,
test=ALLVALS test=ALLVALS
) )
%mp_assertcols(work.info,
cols=name type length varnum format label ddtype fmtname,
test=ALL,
desc=check all columns exist
)