Untitled

begin
 for i in 1..20 loop
 insert into T2(cislo1) values(i);
 end loop;
commit;  commit bude jednou v rámci programu než 20x výhodnější 
end;



declare
x float;
begin
 select dmbs_random.value into x from dual;
x:=x*100;
dmbs_output.put_line(round(x,0));
end;

begin
 dbms_output.put_line(round(dmbs_random.value*100,0));
end;

 select round(dbms_random.value*100,0)
from dual;


declare
 p_cislo number;
 cursor k1 is select cislo1 from T2;
begin
 open k1;
 loop
  fetch k1 into p_cislo;
  exit when k1% notfound;
  dbms_output.put_line(p_cislo);
 end loop;
 close k1;
end;


update T2 set cislo2=cislo1+100;
commit;


update T2 set cislo1=null, cislo2=null where mod(cislo1,2)=0;

create table Zamestnanec2(os_cislo number, jmeno varchar2(15), prijmeni varchar2(15), datum_narozeni date)
Alter table zamestnanec2 ADD CONSTRAINT zamestnanec2_pk PRIMARY KEY (os_cislo);
insert into Zamestnanec2 values(1,'Vojtěch','Troll','12-24-2000')
insert into Zamestnanec2 values(2,'David','Smutný','10-30-2001')
insert into Zamestnanec2 values(3,'Frodo','Pytlík','07-15-2002')
insert into Zamestnanec2 values(4,'Gandalf','Nesmělý','12-08-2003')
insert into Zamestnanec2 values(5,'Elrond','Necitlivý','05-05-2004')






declare
 datum date;
 p_jmeno varchar2(15);
 p_prijmeni varchar2(15);
 vek number;
 cursor k is select jmeno, prijmeni, datum_narozeni from zamestnanec2;
begin
 open k;
 loop
 fetch k into p_jmeno, p_prijmeni, datum;
 exit when k%notfound;
 vek:=round((sysdate-datum)/365,0);
 dbms_output.put_line(p_jmeno||' '||p_prijmeni||' '||vek);
 end loop;
end;




declare
 datum date;
 p_jmeno varchar2(15);
 p_prijmeni varchar2(15);
 vek number;
 cursor k is select jmeno, prijmeni, datum_narozeni from 

zamestnanec2;
begin
 open k;
 loop
 fetch k into p_jmeno, p_prijmeni, datum;
 exit when k%notfound;
 if p_jmeno=:Jmeno_zamestnance and p_prijmeni=:Prijmeni_zamestnance then
  vek:=round((sysdate-datum)/365,0);
  dbms_output.put_line(p_jmeno||' '||p_prijmeni||' '||vek);
 end if;
 end loop;
end;








create table Zamestnanec_senior(os_cislo number, jmeno varchar2(15), prijmeni varchar2(15), datum_narozeni date)


declare 
	datum date;
P_Os_cislo number;
P_jmeno varchar2(15);
P_prijmeni varchar2(15);
	cursor k is select os_cislo, jmeno, prijmeni, datum_narozeni from zamestnanec2;
begin
	open k;
	loop
	fetch k into p_os_cislo, p_jmeno, p_prijmeni, datum;
	exit when k%notfound;
	if datum < to_date(' 11.21.1952') then
		insert into zamestnanec_senior values (p_os_cislo, p_jmeno, p_prijmeni, datum);
	end if;
	end loop;
	delete from zamestnanec2 where datum_narozeni< =' 11.21.1952' ; 
	commit;
end;