/* program pro cteni banky krav H */

filename d3 'c:\šafus\databáze\kmrp25.txt';
data b3; infile d3 lrecl=204;
input	zeme $ 1-2 cislo 3-14 plemeno1 77 plemeno2 79 podil2 80-81 
		plemeno3 82 podil3 83-84 plemeno4 85
		mleko 169-173 tukp 174-177 tukkg 178-181 
		bilkp 182-185 bilkkg 186-189 rphpsb 199-201;
data bbb3; set b3;
file k3 lrecl=204;
put		zeme $ 1-2 cislo 3-14 plemeno1 77 plemeno2 79 podil2 80-81 
		plemeno3 82 podil3 83-84 plemeno4 85
		mleko 169-173 tukp 174-177 tukkg 178-181 
		bilkp 182-185 bilkkg 186-189 rphpsb 199-201;
proc means;
run;