Feladat

A feladat során az alábbi relációsémákat tekintjük:

TERMEKEK(tid NUMBER(4) PRIMARY KEY, megnevezes VARCHAR2(30) NOT NULL, kid NUMBER(4) REFERENCES Kategoria(kid));
KATEGORIA(kid NUMBER(4) PRIMARY KEY, knev VARCHAR2(30));
ELADÁSOK(tid NUMBER(4), datum DATE, varos VARCHAR2(40), FOREIGN KEY (tid) REFERENCES Termekek(tid));

Írjon PL/SQL programot az alábbi művelet végrehajtására:

Készítsen függvényt, amely paraméterül kap egy városnevet és egy termékkategóriát és visszaadja az adott városban eladott termékek darabszámát.

Visszajelzés

SET SERVEROUTPUT ON
DECLARE
    v_varos Eladasok.varos%TYPE;
    v_darab NUMBER;
    v_kid Kategoria.kid%TYPE;
    v_knev Kategoria.knev%TYPE;
    CURSOR varosKurzor IS
        SELECT DISTINCT varos FROM Eladasok ORDER BY varos;
    CURSOR kategoriaKurzor IS
        SELECT kid, knev FROM Kategoria;
    FUNCTION EladasokVarosonkent(p_kid IN Kategoria.kid%TYPE,
        p_varos IN Eladasok.varos%TYPE) RETURN NUMBER
    IS
        v_darab NUMBER;
    BEGIN
        SELECT COUNT(*) INTO v_darab
        FROM Eladasok, Termekek
        WHERE Eladasok.tid = Termekek.tid AND
        Termekek.kid = p_kid AND
        Eladasok.varos = p_varos;
        RETURN v_darab;
    END EladasokVarosonkent;
BEGIN
    OPEN varosKurzor;
    LOOP
        FETCH varosKurzor INTO v_varos;
        EXIT WHEN varosKurzor%NOTFOUND;
        DBMS_OUTPUT.PUT_LINE(v_varos);
     END LOOP;
     CLOSE varosKurzor;
     OPEN varosKurzor;
     LOOP
        FETCH varosKurzor INTO v_varos;
        EXIT WHEN varosKurzor%NOTFOUND;
        DBMS_OUTPUT.PUT_LINE(v_varos);
        DBMS_OUTPUT.PUT_LINE('-----------------------------');
        OPEN kategoriaKurzor;
        LOOP
            FETCH kategoriaKurzor INTO v_kid, v_knev;
            EXIT WHEN kategoriaKurzor%NOTFOUND;
            v_darab := EladasokVarosonkent(v_kid, v_varos);
            DBMS_OUTPUT.PUT_LINE( v_knev || ': ' || v_darab );
        END LOOP;
        CLOSE kategoriaKurzor;
        DBMS_OUTPUT.PUT_LINE('==============================');
    END LOOP;
    CLOSE varosKurzor;
END;