options ls=76 nodate; 
title "Time Series Example 1";
data A;  
input date $ Y @@; 
cards; 
Jan82 10     Apr82 30     Jul82 60    Oct82  40  
Jan83 50     Feb83 20     Mar83 35
  ;
proc plot;
plot Y*date/vpos=20 hpos=50; run; 

data B; 
Diff = '01jan80'D-'13nov1979'd; 
dec1919='31dec1919'd; 
dec19='31dec19'D; jan20='01jan20'D;
date1 = 18; date2=18; date3=18; 
format date1 monyy.; format date2 date9.; 
format date3 mmddyy.;
proc print; 
run; 

data c; array date(3); 
input x date7. ;  
do i=1 to 3; twoi=2*i; 
date(i) = intnx('month','01jan1912'd,twoi); end;
cards; 
01feb60 
 ;
proc print; 
proc print; format date1-date3 mmddyy.;
data next; set a; newdate= input(date, monyy.); 
newdate2 = newdate; format newdate2 monyy.; 
proc sort; by date; proc print; 
proc sort; by newdate2; proc print;
run;