*nacteni rodokmenoveho souboru;

data rod_cely1;
infile 'j:/rodokmen/rodokmen.txt'  lrecl=72;

input
@1      cislo           $char9.	        /*cislo zvirete*/
@11		kod				$char10.		/*kod zvitete*/		
@22     otec            $char6. 		/*cislo otce*/
@29		kod_ot			$char10.		/*kod otce*/
@40		matka			$char9.			/*cislo matky*/
@50		kod_m			$char10.		/*kod matky*/
@61		roknar			3.				/*rok narozeni zvirete*/
@65		mesnar			2.				/*mesic narozeni zvirete*/
@68		dennar			2.              /*den narozeni zvirete*/
@70     rn              $char3.         /*kod roku narozeni*/
;
if matka = 0 then matka = '000000000';
if otec = 0 then otec = '000000000';
run;