DECLARE
dataa VARCHAR2(10);
userr VARCHAR(10);
BEGIN
SELECT TO_CHAR(sysdate, 'dd/mm/yyyy'), user into dataa, userr FROM DUAL;
DBMS_OUTPUT.put_line(dataa || ' ' || userr);
END;
/

DECLARE
z_imie VARCHAR2(10):='ANDRZEJ';
z_nazwisko VARCHAR2(20):='NOWAK';
z_wartosc NUMBER:=2790.50;
BEGIN
DBMS_OUTPUT.PUT_LINE('OSOBA ' || z_imie || ' ' || z_nazwisko || ' PENSJA: ' || z_wartosc);
END;
/

DECLARE
z_wartosc NUMBER;
BEGIN
SELECT COUNT(id_pracownika) INTO z_wartosc FROM pracownicy WHERE TO_CHAR(data_zatrudnienia,'yyyy') = '2006';
if MOD(z_wartosc,2) = 0 THEN
DBMS_OUTPUT.PUT_LINE('W 2006 roku została zatrudniona parzysta liczba pracowników');
ELSE
DBMS_OUTPUT.PUT_LINE('W 2006 roku została zatrudniona nieparzysta liczba pracowników');
END IF;

END;
/


DECLARE
z_oid NUMBER:= 68;
z_imie VARCHAR2(20);
z_nazwisko VARCHAR2(20);
z_dochody NUMBER;
BEGIN
SELECT imie, nazwisko, (12*pensja ) + NVL(dodatek,0) INTO z_imie,z_nazwisko,z_dochody FROM pracownicy WHERE id_pracownika = z_oid;
DBMS_OUTPUT.PUT_LINE(z_imie || ' ' || z_nazwisko || ' Dochody ' || z_dochody);
EXCEPTION
  when no_data_found then DBMS_OUTPUT.PUT_LINE('Nie ma osoby o identyfikatorze ' || z_oid);
END;
/


DECLARE
z_imie VARCHAR2(20);
z_nazwisko VARCHAR2(20);
z_pensja NUMBER;
cursor prac IS SELECT SUBSTR(UPPER(imie), 1,1) || SUBSTR(UPPER(imie), 2,1) || SUBSTR(UPPER(imie), 3,1) || SUBSTR(LOWER(imie), 4,LENGTH(imie) - 3),
SUBSTR(UPPER(nazwisko), 1,1) || SUBSTR(UPPER(nazwisko), 2,1) || SUBSTR(UPPER(nazwisko), 3,1) || SUBSTR(LOWER(nazwisko), 4,LENGTH(nazwisko) - 3), pensja INTO z_imie,z_nazwisko,z_pensja FROM pracownicy WHERE UPPER(zawod) = 'KASJER' ORDER BY pensja DESC;
BEGIN
open prac;
LOOP
FETCH prac INTO z_imie, z_nazwisko, z_pensja;
    EXIT WHEN prac%NOTFOUND;
  DBMS_OUTPUT.PUT_LINE(z_imie || ' ' || z_nazwisko || ' Dochody ' || z_pensja);
  END LOOP;
END;
/

DECLARE
z_id VARCHAR2(20);
z_min NUMBER;
z_sr NUMBER;
z_max NUMBER;
z_ile NUMBER;
cursor prac IS SELECT pl.nazwa, MIN(p.pensja), MAX(p.pensja), ROUND(AVG(p.pensja),2), COUNT(p.id_pracownika) FROM pracownicy p JOIN placowki pl ON p.id_placowki = pl.id_placowki GROUP BY pl.nazwa ;
BEGIN
open prac;
LOOP
  FETCH prac INTO z_id, z_min, z_max, z_sr, z_ile;
    EXIT WHEN prac%NOTFOUND;
  DBMS_OUTPUT.PUT_LINE(z_id || ' ' ||  z_min || ' ' || z_sr || ' ' || z_ile);
  END LOOP;
END;
/


DECLARE
z_imie VARCHAR2(20);
z_nazwisko VARCHAR2(20);
z_zawod VARCHAR2(20);
z_wyk VARCHAR2(20);
cursor prac IS SELECT imie, nazwisko, zawod, poziom FROM pracownicy p JOIN wyksztalcenie w ON p.id_wyksztalcenia = w.id_wyksztalcenia ORDER BY nazwisko,imie ;
BEGIN
open prac;
LOOP
  FETCH prac INTO z_imie, z_nazwisko, z_zawod, z_wyk;
    EXIT WHEN prac%NOTFOUND;
  DBMS_OUTPUT.PUT_LINE(z_imie || ' ' || z_nazwisko || ' , zawód ' || z_zawod || ', poziom wykształcenia: ' || z_wyk);
  END LOOP;
END;
/