fix: enabling rollback when the table has formatted values
This commit is contained in:
@@ -5,9 +5,12 @@
|
|||||||
|
|
||||||
<h4> SAS Macros </h4>
|
<h4> SAS Macros </h4>
|
||||||
@li dc_assignlib.sas
|
@li dc_assignlib.sas
|
||||||
|
@li mcf_getfmttype.sas
|
||||||
@li mf_nobs.sas
|
@li mf_nobs.sas
|
||||||
@li mp_abort.sas
|
@li mp_abort.sas
|
||||||
|
@li mp_applyformats.sas
|
||||||
@li mp_ds2csv.sas
|
@li mp_ds2csv.sas
|
||||||
|
@li mp_getcols.sas
|
||||||
@li mp_stripdiffs.sas
|
@li mp_stripdiffs.sas
|
||||||
@li mpeinit.sas
|
@li mpeinit.sas
|
||||||
@li mpe_checkrestore.sas
|
@li mpe_checkrestore.sas
|
||||||
@@ -112,8 +115,26 @@ data approve.jsdset;
|
|||||||
length _____DELETE__THIS__RECORD_____ $3;
|
length _____DELETE__THIS__RECORD_____ $3;
|
||||||
if 0 then call missing(_____DELETE__THIS__RECORD_____);
|
if 0 then call missing(_____DELETE__THIS__RECORD_____);
|
||||||
set work.mp_stripdiffs;
|
set work.mp_stripdiffs;
|
||||||
|
format _all_;
|
||||||
run;
|
run;
|
||||||
|
|
||||||
|
/* find all of the date / datetime / time vars */
|
||||||
|
%mcf_getfmttype(wrap=YES)
|
||||||
|
%mp_getcols(&tgtds,outds=work.cols)
|
||||||
|
|
||||||
|
data work.applydtfmts;
|
||||||
|
set work.cols;
|
||||||
|
lib="APPROVE";
|
||||||
|
ds="JSDSET";
|
||||||
|
var=name;
|
||||||
|
fmt=coalescec(format,'0');
|
||||||
|
fmttype=mcf_getfmttype(fmt);
|
||||||
|
if fmttype in ('DATE','DATETIME','TIME');
|
||||||
|
keep lib ds var fmt;
|
||||||
|
run;
|
||||||
|
%mp_applyformats(work.applydtfmts)
|
||||||
|
|
||||||
|
|
||||||
/* export to csv */
|
/* export to csv */
|
||||||
%mp_ds2csv(approve.jsdset
|
%mp_ds2csv(approve.jsdset
|
||||||
,dlm=COMMA
|
,dlm=COMMA
|
||||||
|
|||||||
Reference in New Issue
Block a user