Proc means data=work.eakadat ;
run ;
proc univariate data=eakadat ;
histograms ;
run ;
data x;
merge eakadat(in=a where=(ev=2008) )
eaktorzs(drop=megye);
by kujszam;
if a;
select(teljtip);
when ('B') bm=teljmenny;
when ('V') vm=teljmenny;
when ('H') hm=teljmenny;
when ('R') do;
hm=teljmenny;
km=teljmenny;
end;
otherwise ;
end;
run;
  
  
proc sort data=eaktorzs;
by kujszam;
run;

proc sort data=eakadat;
by kujszam;
run;

data x;
  merge eakadat(in=a where=(ev=2008) )
        eaktorzs(drop=megye);
  by kujszam;
  if a;

  select(teljtip);
    when ('B') bm=teljmenny;
    when ('V') vm=teljmenny;
    when ('H') hm=teljmenny;
    when ('R') do;  
        hm=teljmenny;
        km=teljmenny; 
    end;
    otherwise ;
  end;
  
run;

proc sort data=x out=eatermtip ;
by regio ;
proc freq data=eatermtip;
tables regio / out=gy;
run ;
 
proc gchart data=gy;
   vbar regio / sumvar=count ;
run;
quit;  

proc tabulate data=x ;
  class regio termtip;
  var forgmenny bm vm hm km;
  table regio all,
        termtip,
        forgmenny bm vm hm km;
run;


proc format;
 value $regio 	
        '1'  =  'Közép-Dunántúl'
		'2'  =  'Észak-Alföld'
		'3'  =  'Dél-Dunántúl'
		'4'  =  'Észak-Magyarország'
		'5'  =  'Nyugat-Dunántúl'
		'6'  =  'Közöp-Magyarország'
		'7'  =  'Dél-Alföld'
		'9'  =  'Külföld';
 value termtip 1  =  'Hordozható elemek és akkumulátorok' 
		       2  =  'Ipari elemek és akkumulátorok'
		       3  =  'Gépjármű elemek és akkumulátorok';
 picture ertek  low-high='0,000,000,000' ;

run;

title 'A 2008. évben forgalmazott és teljesített mennyiségek';

proc tabulate data=x format=ertek.;
  class regio termtip;
  var forgmenny bm vm hm km;
 table     regio=' ' all='Összesen',
           termtip=' ' all='Termék típus összesen', 
        forgmenny='Összes forgalmazott mennyiség' 
        bm='Összes begyűjtött mennyiség' 
        vm='Összes visszavett mennyiség'  
        hm='Összes hasznosított mennyiség'  
        km='Külföldön hasznosított mennyiség'
        /box='Termék típus';
 format regio $regio. termtip termtip.;
 keylabel sum=' ';
run;


title 'A 2008. évben forgalmazott és teljesített mennyiségek százalékos megoszlása';
proc tabulate data=x format=6.2;
 class regio termtip;
 var forgmenny bm vm hm km;
 table     regio=' ' all='Összesen',
           termtip=' ' all='Termék típus összesen', 
       ( forgmenny='Összes forgalmazott mennyiség' 
        bm='Összes begyűjtött mennyiség' 
        vm='Összes visszavett mennyiség'  
        hm='Összes hasznosított mennyiség'  
        km='Külföldön hasznosított mennyiség')*pctsum
        /box='Termék típus';
 format regio $regio. termtip termtip.;
 keylabel pctsum=' ';
run;