/*
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= products;
run;
*/

Data EditPrice;
Set products;
Category= substr(pcode,1,2);
pricecost= price/cost;

proc print data= editprice (obs= 20); run;

Proc Plot data= editprice;
Plot pricecost*category;
Title3 'price/cost by category';
run;

proc sort data= editprice;
by descending pricecost;

Proc Print Data= editprice (where =(category= 'GD') obs= 20); 
format descrip type supplier $15. pcode $10.;
run;

proc sort data= editprice;
by pricecost;

Proc Print Data= editprice (where =(category= 'GD') obs= 20); 
format descrip type supplier $15. pcode $10.;
run;

Proc plot data= editprice;
Plot price*cost;
run;

Proc print data= editprice (where= (cost > 400)); run;