/* program pro cteni banky krav C zevnejsek */
filename e2 'c:\šafus\databáze\kzvp88.txt';
data s2; infile e2 lrecl=196;
input	cislo 3-14
/* telesne rozmery */
		vkohr 17-20 vkrizr 22-25 obvhrudr 27-30 deltrupr 32-35 delzadr 37-40
		sirzadr 42-45
/* linearni popis */
		vkriz 47-50 osval 52-55 delzad 57-60 sirzad 62-65 sklzad 67-70 hlstrtrup 72-75
		poszadkon 77-80 charhlezkl 82-85 spenka 87-90 pazpat 92-95
		delvemprn 97-100 nasvemupn 102-105 zavvaz 107-110 zaklvemhl 112-115
		poststr 117-120 dstruk 122-125 tlstruk 127-130 rozmstr 132-135
/* celkove hodnoceni */
		uzittyp 137-140 osval 142-145 konc 147-150 vemeno 152-155;
data ddd2; set s2;
file l2 lrecl=196;
put		cislo 3-14
		vkohr 17-20 vkrizr 22-25 obvhrudr 27-30 deltrupr 32-35 delzadr 37-40
		sirzadr 42-45
		vkriz 47-50 osval 52-55 delzad 57-60 sirzad 62-65 sklzad 67-70 hlstrtrup 72-75
		poszadkon 77-80 charhlezkl 82-85 spenka 87-90 pazpat 92-95
		delvemprn 97-100 nasvemupn 102-105 zavvaz 107-110 zaklvemhl 112-115
		poststr 117-120 dstruk 122-125 tlstruk 127-130 rozmstr 132-135
		uzittyp 137-140 osval 142-145 konc 147-150 vemeno 152-155;
proc means;
run;