options validvarname=any;

data dolgozat.dolgozok;
input
	név $1-12
	neme 14
	fizetés 16-22
	életkor 24-25
	kezdés yymmdd10.;
format fizetés 7.0;
format kezdés yymmdd10.;
label név = 'a dolgozó neve';
label nem = 'a dolgozó neme';
label fizetés = 'a dolgozó fizetése';
label életkor = 'életkora';
label kezdés = 'kezdés';
datalines;
Asd Khsdf    0 90000   34 20050407
Adg Ksdfg    0 190000  24 19950407
Rik Ouhhh    1 250000  33 19950407
Ets Khuef    1 250000  35 19950407
Ljw Kpiwf    1 150000  36 19510407
Oedo Hsuf    0 160000  37 17030407
;
run;

proc means mean
data = dolgozat.dolgozok;
title 'Átlagbér';
var fizetés;
run;

data dolgozat.ferfiak;
set dolgozat.dolgozok;
if neme = 0;
drop neme;
run;

proc gchart
data=dolgozat.ferfiak;
title 'Fizetések';
vbar fizetés / discrete;
run;

data dolgozat.dolgozok2;
set dolgozat.dolgozok;
if fizetés < 100000 then előleg = 17;
else előleg = 32;
nettó = fizetés - (fizetés * (előleg / 100));
if fizetés < 100000 then fizetésosztály = 'alacsony';
else fizetésosztály = 'magas';
run;

data dolgozat.vetes;
set work.vetes;
if _n_ < 88;
keep ev buza;
run;

data dolgozat.allat;
set work.allat;
keep ev szmarha;
run;

proc sort data = dolgozat.vetes out = dolgozat.vetes;
by ev;
run;

proc sort data = dolgozat.allat out = dolgozat.allat;
by ev;
run;

data dolgozat.ossze;
merge dolgozat.vetes dolgozat.allat;
by ev;
run;

proc gplot data = dolgozat.ossze;
title 'Évenként';
plot buza * ev;
plot szmarha * ev;
run;

proc means mean data = dolgozat.ossze;
title 'Átlagok';
var szmarha;
var buza;
label szmarha = "Szavas-marha";
label buza = "Búza";
run;