* Illustrating dates  
*  Julian date is 4 (or 2) digits for year 
   and 3 digits (001-366) for day of year; 

Data dates; 
input date1 $  @1 date2 date9. sales; 
jul = juldate7(date2);  * juldate gives 2 digit years ; 
extra = 1000*floor(jul/1000); 
doy = jul-extra; 
cards; 
05feb2006  10876
22apr1956  52753
15may1956  28456
 ; 
proc print;
proc sort; by date1;  
proc print; format date2 worddate.; 
proc plot; plot sales*date1 sales*date2; format date2 monyy.;
run;