sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-15 04:20:05 +00:00
Code Issues Projects Releases Wiki Activity

fix: removing unnecessary cond flags in mf_abort, adding abort logic in mp_csv2ds

Browse Source
This commit is contained in:
Allan
2020-11-08 22:04:25 +01:00
parent d51be73017
commit f6cec012da
3 changed files with 92 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
all.sas
View File

@@ -399,7 +399,7 @@ options noquotelenmax;
@version 9.2 @version 9.2
@author Allan Bowe @author Allan Bowe
**/ /** \cond */ **/
%macro mf_getengine(libref %macro mf_getengine(libref
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
@@ -419,9 +419,7 @@ options noquotelenmax;
&engine &engine
%mend; %mend;/**
/** \endcond *//**
@file @file
@brief Returns the size of a file in bytes. @brief Returns the size of a file in bytes.
@details Provide full path/filename.extension to the file, eg: @details Provide full path/filename.extension to the file, eg:
@@ -1933,29 +1931,50 @@ Usage:
@version 9.2 @version 9.2
@author Allan Bowe @author Allan Bowe
<h4> Dependencies </h4>
@li mp_abort.sas
@li mf_existds.sas
**/ **/
%macro mp_csv2ds(inref=0,outds=0,baseds=0,view=NO); %macro mp_csv2ds(inref=0,outds=0,baseds=0,view=NO);
%if &inref=0 %then %do;
%put %str(ERR)OR: the INREF variable must be provided; %mp_abort(iftrue=( &inref=0 )
%let syscc=4; ,mac=&sysmacroname
%abort; ,msg=%str(the INREF variable must be provided)
%end; )
%if %superq(outds)=0 %then %do; %mp_abort(iftrue=( %superq(outds)=0 )
%put %str(ERR)OR: the OUTDS variable must be provided; ,mac=&sysmacroname
%let syscc=4; ,msg=%str(the OUTDS variable must be provided)
%return; )
%end; %mp_abort(iftrue=( &baseds=0 )
%if &baseds=0 %then %do; ,mac=&sysmacroname
%put %str(ERR)OR: the BASEDS variable must be provided; ,msg=%str(the BASEDS variable must be provided)
%let syscc=4; )
%return; %mp_abort(iftrue=( &baseds=0 )
%end; ,mac=&sysmacroname
%if %sysfunc(exist(&BASEDS)) ne 1 & %sysfunc(exist(&BASEDS,VIEW)) ne 1 %then %do; ,msg=%str(the BASEDS variable must be provided)
%put %str(ERR)OR: the BASEDS dataset (&baseds) needs to be assigned, and to exist; )
%let syscc=4; %mp_abort(iftrue=( %mf_existds(&baseds)=0 )
%return; ,mac=&sysmacroname
%end; ,msg=%str(the BASEDS dataset (&baseds) needs to be assigned, and to exist)
)
/* count rows */
%local hasheader; %let hasheader=0;
data _null_;
if _N_ > 1 then do;
call symputx('hasheader',1,'l');
stop;
end;
infile &inref;
input;
run;
%mp_abort(iftrue=( &hasheader=0 )
,mac=&sysmacroname
,msg=%str(No header row in &inref)
)
/* get the variables in the CSV */ /* get the variables in the CSV */
data _data_; data _data_;
@@ -2020,7 +2039,9 @@ data &outds
; ;
infile &inref dsd firstobs=2; infile &inref dsd firstobs=2;
input &instat; input &instat;
drop &dropvars; %if %length(&dropvars)>0 %then %do;
drop &dropvars;
%end;
run; run;
%mend;/** %mend;/**

6
base/mf_getengine.sas
View File

@@ -22,7 +22,7 @@
@version 9.2 @version 9.2
@author Allan Bowe @author Allan Bowe
**/ /** \cond */ **/
%macro mf_getengine(libref %macro mf_getengine(libref
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
@@ -42,6 +42,4 @@
&engine &engine
%mend; %mend;
/** \endcond */

65
base/mp_csv2ds.sas
View File

@@ -28,29 +28,50 @@
@version 9.2 @version 9.2
@author Allan Bowe @author Allan Bowe
<h4> Dependencies </h4>
@li mp_abort.sas
@li mf_existds.sas
**/ **/
%macro mp_csv2ds(inref=0,outds=0,baseds=0,view=NO); %macro mp_csv2ds(inref=0,outds=0,baseds=0,view=NO);
%if &inref=0 %then %do;
%put %str(ERR)OR: the INREF variable must be provided; %mp_abort(iftrue=( &inref=0 )
%let syscc=4; ,mac=&sysmacroname
%abort; ,msg=%str(the INREF variable must be provided)
%end; )
%if %superq(outds)=0 %then %do; %mp_abort(iftrue=( %superq(outds)=0 )
%put %str(ERR)OR: the OUTDS variable must be provided; ,mac=&sysmacroname
%let syscc=4; ,msg=%str(the OUTDS variable must be provided)
%return; )
%end; %mp_abort(iftrue=( &baseds=0 )
%if &baseds=0 %then %do; ,mac=&sysmacroname
%put %str(ERR)OR: the BASEDS variable must be provided; ,msg=%str(the BASEDS variable must be provided)
%let syscc=4; )
%return; %mp_abort(iftrue=( &baseds=0 )
%end; ,mac=&sysmacroname
%if %sysfunc(exist(&BASEDS)) ne 1 & %sysfunc(exist(&BASEDS,VIEW)) ne 1 %then %do; ,msg=%str(the BASEDS variable must be provided)
%put %str(ERR)OR: the BASEDS dataset (&baseds) needs to be assigned, and to exist; )
%let syscc=4; %mp_abort(iftrue=( %mf_existds(&baseds)=0 )
%return; ,mac=&sysmacroname
%end; ,msg=%str(the BASEDS dataset (&baseds) needs to be assigned, and to exist)
)
/* count rows */
%local hasheader; %let hasheader=0;
data _null_;
if _N_ > 1 then do;
call symputx('hasheader',1,'l');
stop;
end;
infile &inref;
input;
run;
%mp_abort(iftrue=( &hasheader=0 )
,mac=&sysmacroname
,msg=%str(No header row in &inref)
)
/* get the variables in the CSV */ /* get the variables in the CSV */
data _data_; data _data_;
@@ -115,7 +136,9 @@ data &outds
; ;
infile &inref dsd firstobs=2; infile &inref dsd firstobs=2;
input &instat; input &instat;
drop &dropvars; %if %length(&dropvars)>0 %then %do;
drop &dropvars;
%end;
run; run;
%mend; %mend;