/*
PROC IMPORT OUT= WORK.Catalog 
            DATATABLE= "Catalog_Orders" 
            DBMS=ACCESS2000 REPLACE;
		    DATABASE="C:\DataWarehousing05f\SASDataQuality.mdb"; 
     *DATABASE="C:\Documents and Settings\schw0808\Desktop\SASDataQuality.mdb"; 
RUN;
PROC IMPORT OUT= WORK.Products 
            DATATABLE= "Products" 
            DBMS=ACCESS2000 REPLACE;
		    DATABASE="C:\DataWarehousing05f\SASDataQuality.mdb"; 
     *DATABASE="C:\Documents and Settings\schw0808\Desktop\SASDataQuality.mdb"; 
RUN;
Proc Contents Data= catalog;
Proc Contents Data= products;
run;
*/
Data Catalog;
Format catalog pcode custnum $30.;
rename id= catid;
Set Catalog;

Data Products;
Format descrip pcode type supplier $30.;
Rename id= prodid;
Set Products;

Proc Sort Data= catalog;
By pcode;
Proc Sort Data= Products;
By pcode;
Data Both Prodonly CatOnly;
Merge catalog (in= c) products (in= p);
By pcode;
If c and p then output both;
If p and ~c then output prodonly;
If c and ~p then output catonly;

Proc Print Data= both (obs= 24);
Title3 'Both';
Proc Print Data= prodonly (obs= 24);
Title3 'Prodonly';
Proc Print Data= catonly (obs= 24);
Title3 'CatOnly';
run;

Proc Freq Data= Catonly;
Tables pcode*Catalog/norow nocol nopercent;
Run;

Proc Freq Data= Prodonly;
Tables pcode;
run;