
set serveroutput on
Accept m prompt 'foglalkozas'

Declare
x varchar(20);
function atlag(fogl in out varchar) return number
 is
   eredm number;
 begin
   select avg(sal) into eredm from emp where job=fogl;
   return eredm;
end;
begin
x:='&m';
dbms_output.put_line('x='||x);
dbms_output.put_line(x||' foglalkozasuak atlagfizetese: '||atlag(x));
end;
/

-----
   case fogl
   when 'CLERK' then fogl:='Titkár';
   when 'SALESMAN' then fogl:='üzletkötő';
   else fogl:='Egyéb';
   end case;
/
----
Declare
x varchar(20);
function atlag(fogl in out varchar) return number
 is
   eredm number;
 begin
   select avg(sal) into eredm from emp where job=fogl;
   case fogl
   when 'CLERK' then fogl:='Titkár';
   when 'SALESMAN' then fogl:='üzletkötő';
   else fogl:='Egyéb';
   end case;
   return eredm;
end;
begin
x:='&m';
dbms_output.put_line('x='||x);
dbms_output.put_line(x||' foglalkozasuak atlagfizetese: '||atlag(x));
end;
/

