SBD_L12

-- ZAD 1
CREATE OR REPLACE PACKAGE KONWERSJA IS
  FUNCTION CELS_TO_FAHR(CELS NUMBER) RETURN NUMBER;
  FUNCTION FAHR_TO_CELS(FAHR NUMBER) RETURN NUMBER;
END KONWERSJA;
/

CREATE OR REPLACE PACKAGE BODY KONWERSJA IS

  FUNCTION CELS_TO_FAHR(CELS NUMBER) RETURN NUMBER IS
    FAHR NUMBER;
  BEGIN
    FAHR := 9/5 * CELS + 32;
    RETURN FAHR;
  END CELS_TO_FAHR;

  FUNCTION FAHR_TO_CELS(FAHR NUMBER) RETURN NUMBER IS
    CELS NUMBER;
  BEGIN
    CELS := 5/9 * (FAHR - 32);
    RETURN CELS;
  END FAHR_TO_CELS;

END KONWERSJA;
/

SELECT KONWERSJA.FAHR_TO_CELS(212) CELSJUSZ FROM DUAL;
SELECT KONWERSJA.CELS_TO_FAHR(0) FAHRENHEIT FROM DUAL;
/

-- ZAD 2
CREATE OR REPLACE PACKAGE ZMIENNE IS
  V_LICZNIK NUMBER;
  PROCEDURE ZWIEKSZ_LICZNIK;
  PROCEDURE ZMNIEJSZ_LICZNIK;
  FUNCTION POKAZ_LICZNIK RETURN NUMBER;
END ZMIENNE;
/

CREATE OR REPLACE PACKAGE BODY ZMIENNE IS

  PROCEDURE ZWIEKSZ_LICZNIK IS
  BEGIN
    V_LICZNIK := V_LICZNIK + 1;
    DBMS_OUTPUT.PUT_LINE('ZWIEKSZONO');
  END ZWIEKSZ_LICZNIK;

  PROCEDURE ZMNIEJSZ_LICZNIK IS
  BEGIN
    V_LICZNIK := V_LICZNIK - 1;
    DBMS_OUTPUT.PUT_LINE('ZMNIEJSZONO');
  END ZMNIEJSZ_LICZNIK;

  FUNCTION POKAZ_LICZNIK RETURN NUMBER IS
  BEGIN
    RETURN V_LICZNIK;
  END POKAZ_LICZNIK;

  BEGIN
    V_LICZNIK := 1;
    DBMS_OUTPUT.PUT_LINE('ZAINICJALIZOWANO');

END ZMIENNE;
/
EXECUTE ZMIENNE.ZWIEKSZ_LICZNIK;
EXECUTE ZMIENNE.ZMINEJSZ_LICZNIK;
SELECT ZMIENNE.POKAZ_LICZNIK LICZNIK FROM DUAL;
/

-- ZAD 3
CREATE OR REPLACE PROCEDURE ILE_REKORDOW (RELACJA VARCHAR) IS
  ILE NUMBER;
BEGIN
  EXECUTE IMMEDIATE 'SELECT COUNT(*) INTO :2 FROM :1'
    USING RELACJA RETURNING INTO ILE;

  DBMS_OUTPUT.PUT_LINE(ILE);
END;
/

EXECUTE ILE_REKORDOW('PRACOWNICY');