/*PROC IMPORT OUT= WORK.Demographics 
            DATATABLE= "Demographics" 
            DBMS=ACCESS2000 REPLACE;
     DATABASE="C:\DataWarehousing05f\SASDataQuality.mdb"; 
RUN;
Proc Contents Data= Demographics;
Run;*/
Data NameCheck Demographics2;
length fname firstname lname lastname $25.;
format fname firstname lname lastname $25.;
Set Demographics;
firstname= tranwrd(firstname, ".", "");
fname= scan(name,1);
If fname= "ms" or fname= "Ms" or fname= "Mr" or fname= "mr" then fname= scan(name, 2);
lname= scan(name,-1);
If trim(lname)~= Trim(lastname) or trimn(fname) ~= Trim(firstname) then output NameCheck;
Output Demographics2;

Proc print data= namecheck (obs= 100) noobs;
format fname firstname lname lastname $20.;
var ID fname firstname lname lastname;
run;




/*
Data Test;
Set demographics;
State= trim(state);
Select;
	When (state in ('OK', 'TX', 'AR', 'CA')) REGION= 'SW   ';
	OTHERWISE REGION= 'OTHER';
	END;
*/
Data Test;
Set demographics;
State= trim(state);
If (state in ('OK', 'TX', 'AR', 'CA')) then REGION= 'SW   ';
	Else REGION= 'OTHER';


Proc Freq Data= Test;
Tables region;
Run;