/* program pro cteni banky krav C */

filename d2 'c:\šafus\databáze\kmrp24.txt';
data b2; infile d2 lrecl=204;
input	zeme $ 1-2 cislo 3-14 plemeno1 77 znak 78 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 bbb2; set b2;
file k2 lrecl=204;
put		zeme $ 1-2 cislo 3-14 plemeno1 77 znak 78 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;
data banC; set bbb2;
if plemeno1=0 then delete;
if plemeno1=0 and plemeno2=0 and plemeno3=0 and plemeno4=0 then delete;
if mleko= . then delete;
if tukp= . then delete;
if tukkg= . then delete;
if bilkp= . then delete;
if bilkkg= . then delete;
if rphpsb= . then delete;
run;