declare
    zmienna integer;
begin
    select count(1) into zmienna from emp;
    dbms_output.put_line(zmienna);
end;

declare
    suma integer;
begin
    select count(1) into suma from emp;
    if(suma<16) then
         dbms_output.put_line('mniejsza od 16');
    else
         dbms_output.put_line('wieksza rowna');
    end if;
end;

create or replace procedure zad3(nrdzialu integer, nazwa in varchar, lokalizacja in varchar) as
    sprawdzenie integer;
    begin
    select count(1) into sprawdzenie from dept where deptno=nrdzialu and dname=nazwa and loc= lokalizacja;
        if(sprawdzenie=0) then
             dbms_output.put_line('nie ma takiego i wstawia');
        else
             dbms_output.put_line('jest taki i nie wstawia');
        end if;
end;

exec zad3(30, 'SALES', 'CHICAGO');

create or replace procedure zad4(nrdzialu integer, nazwisko in varchar) as
    sprawdzenie integer;
    pensja integer;
    identyfikator integer;
    begin
        select count(1) into sprawdzenie from dept where deptno= nrdzialu;
        if(sprawdzenie>0) then
            select min(sal) into pensja from emp;
            select max(empno) +1 into identyfikator from emp;
            insert into emp(empno, ename, sal, deptno) values (identyfikator, nazwisko, pensja, nrdzialu);
            dbms_output.put_line('wstawia');
        else
            raise_application_error(-20500,'nie ma dzialu');
        end if;
end;

exec zad4(200, 'Testowy');
rollback;
select * from emp;
select * from magazyn;

create or replace procedure zad5 as
    najwiecej magazyn%rowtype;
    maksimum integer;
    begin
    select max(ilosc) into maksimum from magazyn;
    select * into najwiecej from magazyn where ilosc = maksimum;
    dbms_output.put_line(najwiecej.nazwa);
    end;

exec zad5;

declare
    mempno integer;
    msal integer;
    linijka emp%rowtype;
    cursor zad1 is select empno from emp;
    begin
    open zad1;
        loop
            fetch zad1 into mempno;
                exit when zad1%notfound;
            select sal into msal from emp where empno=mempno;
            select * into linijka from emp where empno=mempno;
            if(msal<1000) then
                update emp set sal=sal+0.1*sal;
                dbms_output.put_line(linijka.ename);
            elsif(msal>1500)then
                update emp set sal= sal- 0.1*sal;
            end if;
        end loop;
    close zad1;
end;

create or replace procedure zad21(salmin integer, salmax integer) as
    cursor cursor2 is select empno from emp;
    mempno integer;
    msal integer;
    begin
        open cursor2;
            loop
                fetch cursor2 into mempno;
                    exit when cursor2%notfound;
                    select sal into msal from emp where empno= mempno;
                        if(msal<salmin) then
                            update emp set sal=sal+0.1*sal;
                            dbms_output.put_line('zaktualizowano dla min');
                        elsif(msal>salmax) then
                            update emp set sal= sal- 0.1*sal;
                            dbms_output.put_line('zaktualizowano dla max');
                        end if;
                    end loop;
                close cursor2;
            end;

    exec zad21(1222,1600);
    select * from emp;

create or replace procedure zad31(dzial integer) as
    srednia integer;
    wiersz emp%rowtype;
    cursor cursor3 is select * from emp where deptno= dzial;
    begin
        select avg(sal) into srednia from emp where deptno= dzial;
        open cursor3;
            loop
                fetch cursor3 into wiersz;
                    exit when cursor3%notfound;
                    if(wiersz.sal < srednia) then
                         dbms_output.put_line('mniejsza= prowizja');
                    end if;
             end loop;
             close cursor3;
             end;


exec zad31(10);