/* program pro cteni banky krav H zevnejsek */

filename e1 'c:\šafus\databáze\kzvp87.txt';
data s1; infile e1 lrecl=196;
input	cislo 3-14
/* telesne rozmery */
		vkohr 17-20 vkrizr 22-25 obvhrudr 27-30 deltrupr 32-35 
/* linearni popis */
		telram 37-40 sirhrud 42-45 hltela 47-50  hran 52-55 sklzad 57-60 sirzad 62-65 
		postojzkz 67-70 postojzkb 72-75
		pazneht 77-80 
		prupvem 82-85 rozprstr 87-90 dstruk 92-95
		hlvem 97-100 vyszadupvem 102-105 zavvaz 107-110 rozzadstr 112-115
		sirzadupn 117-120 kvalkost 122-125 chodivost 127-130 
/* celkove hodnoceni */
		mlchar 132-135 kapac 137-140 stavtela 142-145 konc 147-150 vemeno 152-155;
data ddd1; set s1;
file l1 lrecl=196;
put		cislo 3-14
		vkohr 17-20 vkrizr 22-25 obvhrudr 27-30 deltrupr 32-35 
		telram 37-40 sirhrud 42-45 hltela 47-50  hran 52-55 sklzad 57-60 sirzad 62-65 
		postojzkz 67-70 postojzkb 72-75
		pazneht 77-80 
		prupvem 82-85 rozprstr 87-90 dstruk 92-95
		hlvem 97-100 vyszadupvem 102-105 zavvaz 107-110 rozzadstr 112-115
		sirzadupn 117-120 kvalkost 122-125 chodivost 127-130 
		mlchar 132-135 kapac 137-140 stavtela 142-145 konc 147-150 vemeno 152-155;
proc means;
run;