* testdtck.sas Daniel Brockman 070721 test dtchk ;

options ls=80 symbolgen mprint mlogic ;

%let dir=C:/b/SAS-X405.5 ;          
%let subdir=&dir/sub ;
%include "&subdir/dtchk.sas" ;


data mydataset ;
   
   input somekindadate ;
   
   yr = int(somekindadate/10000) ;
   mo = int((somekindadate - 10000*yr)/100) ;
   dy = somekindadate - 10000*yr -100*mo ;
 
 cards;
 19000229
 19000228
 20000229
 20000228
 000229
 000228
 14921012
 920431
 August 15, 1914
 920430
 920230
 920229
 920228
 570712
 580712
 560712
 5
 25
 225
 1225
 01225
 101225
 101225.5678
 0101225
 20101225
 220101225
 .
 0
 notanumber
 -88
 3.1416
 11:15
 20070132
 20070229
 20070332
 20070431
 20070532
 20070631
 20070732
 20070832
 20070931
 20071032
 20071131
 20071232
 20070131
 20070228
 20070331
 20070430
 20070531
 20070630
 20070731
 20070831
 20070930
 20071031
 20071130
 20071231

 run;

 %dtchk(mydataset,yr,mo,dy);

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