Visszajelzés

/* A CREATE kulcsszóval az eljárás adatbázis ojektumként mentésre kerül és
később is felhasználható */
CREATE PROCEDURE szemely_kkir(p_szigsz IN Szemelyek.szigsz%TYPE)
IS
    -- Lokális deklaráció
    v_szemely Szemelyek%ROWTYPE;
BEGIN
    SELECT * INTO v_szemely FROM Szemelyek WHERE szigsz = p_szigsz;
    DBMS_OUTPUT.PUT_LINE('A személy személyigazolványszáma: ' ||
    v_szemely.szigsz || ', neve: ' || v_szemely.nev || ', születési dátuma ' ||
    TO_CHAR(v_szemely.szuletesiDatum,'YYYY.MM.DD') || ', irányítószáma: ' ||
    v_szemely.irsz || ', országa: ' || v_szemely.orszag ||
    ', hallgatói státusza: ' || v_szemely.hallgatoE || ' .');
END;

-- Külön PL/SQL blokk
SET SERVEROUTPUT ON
BEGIN
    -- Eljárás hívása
    szemely_kkir('840388SD');
END;
/

Visszajelzés

SET SERVEROUTPUT ON
DECLARE
    v_atlag NUMBER := 0;
    CURSOR cursor_varosok IS SELECT nev FROM Varosok;
    -- Függvény PL/SQL blokkon belül
    FUNCTION fgv_atlag(p_varos_nev IN Varosok.nev%TYPE) RETURN NUMBER
    IS
        -- Lokális deklaráció
        atlag NUMBER := 0;
    BEGIN
        SELECT AVG(EXTRACT(YEAR FROM sysdate)-
        EXTRACT(YEAR FROM Szemelyek.szuletesiDatum))
        INTO atlag FROM Szemelyek, Varosok WHERE Varosok.nev = p_varos_nev AND
        Szemelyek.irsz = Varosok.irsz AND Szemelyek.orszag = Varosok.orszag; 
        RETURN atlag;
    END;
BEGIN
     FOR aktualis_varos IN cursor_varosok
     LOOP
         -- Függvény hívás
         v_atlag := fgv_atlag(aktualis_varos.nev);
         DBMS_OUTPUT.PUT_LINE(aktualis_varos.nev ||
         ' varosban az atlagos eletkor: '|| v_atlag);
     END LOOP;
END;
/