mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 14:04:36 +00:00
45 lines
787 B
SAS
45 lines
787 B
SAS
/**
|
|
@file
|
|
@brief Testing mp_ds2squeeze.sas macro
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mf_getvarlen.sas
|
|
@li mp_assert.sas
|
|
@li mp_assertscope.sas
|
|
@li mp_ds2squeeze.sas
|
|
|
|
**/
|
|
|
|
data big;
|
|
length my big $32000;
|
|
do i=1 to 1e4;
|
|
my=repeat('oh my',100);
|
|
big='dawg';
|
|
special=._;
|
|
missn=.;
|
|
missc='';
|
|
output;
|
|
end;
|
|
run;
|
|
|
|
%mp_assertscope(SNAPSHOT)
|
|
%mp_ds2squeeze(work.big,outds=work.smaller)
|
|
%mp_assertscope(COMPARE)
|
|
|
|
%mp_assert(
|
|
iftrue=(&syscc=0),
|
|
desc=Checking syscc
|
|
)
|
|
%mp_assert(
|
|
iftrue=(%mf_getvarlen(work.smaller,missn)=3),
|
|
desc=Check missing numeric is 3
|
|
)
|
|
%mp_assert(
|
|
iftrue=(%mf_getvarlen(work.smaller,special)=3),
|
|
desc=Check missing special numeric is 3
|
|
)
|
|
%mp_assert(
|
|
iftrue=(%mf_getvarlen(work.smaller,missc)=1),
|
|
desc=Check missing char is 1
|
|
)
|