Verify data is all numbers.....

[dherna]

Hi,

How can I verify that the data in an alpha-numeric field is all numbers?

Di--

 

[HerbLR]

I've used the following developed macro's with good success
in the past. Hope this helps.


PROC FORMAT ;
VALUE $XXX '0'-'9' ='NUM' ;
RUN;
...

%*------------- ;
%MACRO NUMCHKS ;
%*------------- ;
CHK_FLAG='N';
DO X=1 TO LENGTH(<fieldname>);
IF PUT(SUBSTR(<fieldname>,X,1),$XXX.) NE 'NUM'
THEN DO;
CHK_FLAG='Y';
X=99;
END;
%*------------- ;
%MEND NUMCHKS ;
%*------------- ;
...
%NUMCHKS(<fieldname>);

/* ------------------- O R ------------------------*/
...
%LET DIGIT = ('0','1','2','3','4','5','6','7','8','9');
...
%*------------- ;
%MACRO VALIDITY ;
%*------------- ;
SIZE=LENGTH(COMPRESS(<fieldname>));
IF (SIZE GT 1)
THEN DO;
VALIDFLG='Y';
DO I = 1 TO SIZE;
IF NOT (SUBSTR(COMPRESS(<fieldname>),I,1)
EQ &DIGIT)
THEN DO;
VALIDFLG='N';
I=99;
END;
END;
ELSE VALIDFLG='N';
DROP I VALIDFLG ;
%*------------- ;
%MEND VALIDITY ;
%*------------- ;
...
%VALIDITY(<fieldname>);
...

 

[dherna]

Thanks!

 

[genis]

DATA test;
set yourdata;
if verify(alpha,'0123456789')=0 then test= 'OK';
RUN;

 

[dolfin013]

Not the intended responder....but Nice

 

[fraaha]

data test;
length x1 $ 7;
x1='12b345';
if x1*1> . then
put &quot;*** OK&quot;;
else put &quot;Nok&quot;;

run;
This program don't post ERROR messages but Notes messages
into the log.