* raceprep.sas Daniel Brockman 070721 Prepare dtchk race data;

options ls=80 symbolgen mprint mlogic ;

%let dir=C:/b/SAS-X405.5 ;          
%let subdir=&dir/sub ;
%let datadir=&dir/data ;

libname mydata "&datadir" ;

%include "&subdir/dtchk.sas" ;

%put "start " &sysdate= &systime= ;


data _null_; * a normal distributon of dates with sd=century and m=21Jul2007 ;
  file "&datadir\megadate.txt";
  do i=1 to 1000000;   * produce 1000000 observations;
    sdv = int(36525*rannor(-1)+'21JUL2007'd) ;   
    yr=year(sdv);
    mo=month(sdv);
    dy=day(sdv);
    put yr mo dy ;
  end;  * end do i ;
run;

   

 
 %put "end "  &sysdate= &systime= ;

 run;
 *--------------------------------------------;