/*
PROC IMPORT OUT= WORK.Catalog 
            DATATABLE= "Catalog_Orders" 
            DBMS=ACCESS2000 REPLACE;
     DATABASE="C:\DataWarehousing05f\SASDataQuality.mdb"; 
RUN;
*/

Proc Contents Data= Catalog;
Run;

Data Dates0;
Keep Date;
Set Catalog;

Data Dates;
Format Date0 mmddyy8.;
Label Date0 = 'Initial Date for SAS DateTime Arithmetic';
Set Dates0;
DatePart= Datepart(date);
TimePart= Timepart(date);
Date0= datepart(0);
Datenum= Date;
DateText= Put(datepart, date9.);
ReadDate= Input(DateText,date10.);

Proc Print Data= Dates (Obs= 200); Run;

Proc contents data= dates; run;

Proc Sort Data= Dates0;
By Date;


Proc Means Data= Dates0 mean;
class Date;
Output out= DateDim0;
Run;

Proc print data= DateDim0; run;

Data DateDim;
Format Weekend 1.;
Set DateDim0;
DatePart= Datepart(Date);
Timepart= Timepart(date);
Year= Year (DatePart);
DayName= Left(Put(DatePart, Downame.));
MonthName= Put(DatePart, monname15.);
Quarter= Put(DatePart,Qtr4.);
DayOfYear= Put(datePart, julday3.);
If DayName= 'Sunday' or DayName= 'Saturday' then Weekend = 1;
	Else Weekend= 0;


Proc Print Data= DateDim; Run;