data sample;
array dates [10] ('1jan2001'd,'1may2009'd,'1may2010'd,'1apr1906'd,'1feb2010'd,
'1aug2001'd,'1may2012'd,'1may1935'd,'1apr1840'd,'1feb1999'd);
seed=534;
do idnub=1 to 2400;
n=rantbl(seed,0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1);
date=dates[n];
output;
end;
format date yymmdd10.;
run;