drop table testovaci;
drop table nanic;
drop table osoby
/
create table nanic (
  a char(1)
)
/
create table osoby (
  jmeno     varchar2(30),
  prijmeni  varchar2(30),
  naroz     date,
  plat      number(7,2)
)
/
insert into osoby values ('Jarda', 'Kabrnak',  '01-JAN-70', 1234.50);
insert into osoby values ('Josef', 'Jiricka',  '01-JAN-75', 2345.60);
insert into osoby values ('Jan',   'Machacek', '01-JAN-80', 3456.70);
commit
/
create or replace package iarith as

  function  add(a in integer, b in integer) return integer;
  procedure inc(a in out integer);

end;
/
create or replace package body iarith as

  function  add(a in integer, b in integer) return integer is
  begin
    return (a + b);
  end;

  procedure inc(a in out integer) is
  begin
    a := a + 1;
  end;

end;
/
