Programozás | SQL » Kende-Nagy - PL/SQL feladatgyűjtemény

KENDE MÁRIA - NAGY ISTVÁN PL/SQL FELADATGYŰJTEMÉNY TARTALOM 9. Foglalkozás Hivatkozási és összetett adattípusok, kurzor, ROWID . 2 10. Foglalkozás Összefoglaló feladatok . 11 Melléklet Dinamikus SQL . 31 Irodalom . 33 2006. május 1 #03 PL-SQL Feladatgyűjtemény [06] -1- 9. Foglalkozás Hivatkozási és összetett adattípusok, kurzor, ROWID Részletesebben lásd [2]: 9. fejezet, FELADATGYŰJTEMÉNY 9.1 Feladat Írjon egy olyan PL/SQL programot, amely az emp táblából létrehoz egy dolgozó táblát, és minden dolgozó fizetését megemeli a saját fizetésének véletlenszám (0-100) értékű százalékával. 9.2 Feladat Írjon PL/SQL programot, amely az emp táblából létrehoz egy dolgozó táblát, és megnöveli a felhasználó által megadott azonosítójú főnök minden beosztottjának fizetését azok átlagfizetésének 10%-val. 9.3 Feladat Írjon PL/SQL programot, mely az emp táblából létrehoz egy dolgozó táblát, és megnöveli a

felhasználó által megadott nevű főnök minden beosztottjának fizetését azok átlagfizetésének 10%-val. TOVÁBBI FELADATOK T9.4 Feladat Írjon egy olyan PL/SQL programot, amely az emp táblából létrehoz egy dolgozó táblát és bővíti egy nyeremény oszloppal. A nyeremény a beosztottak számára a főnökök átlagfizetésének véletlenszerű százaléka (0-50), a főnököknek pedig a beosztottak összfizetésének véletlenszerű százaléka (10-50) Listázza a dolgozó táblát a nyereményhúzás előtt és után is T9.5 Feladat Írjon egy olyan PL/SQL programot, amely az emp táblából létrehoz egy dolgozó táblát és bővíti egy pár nevű oszloppal. Ezt az oszlopot töltse fel az ’oooo’ karaktersorozattal Egy kereső dolgozó partnere az, aki ugyanabban a munkakörben dolgozik és páros hónapban lépett be. Írja be kereső pár oszlopába a megtalált partner nevét, illetve a partner pár oszlopába a kereső nevét Egy partner csak egyszer

fordulhat elő #03 PL-SQL Feladatgyűjtemény [06] -2- MEGOLDÁSGYŰJTEMÉNY 9.1 Feladat Írjon egy olyan PL/SQL programot, amely az emp táblából létrehoz egy dolgozó táblát, és minden dolgozó fizetését megemeli a saját fizetésének véletlenszám (0-100) értékű százalékával. Megoldás 1. A tábla létrehozása SET numwidth 5 DROP TABLE dolgozó; CREATE TABLE dolgozó AS SELECT * FROM emp; SELECT * FROM dolgozó; SET serveroutput ON DECLARE szorzo NUMBER; CURSOR dolgozo IS SELECT empno,sal FROM dolgozó; BEGIN FOR i IN dolgozo LOOP szorzo := ROUND(DBMS RANDOM.VALUE(0,100)/100,2); DBMS OUTPUT.PUT LINE('A szorzó értéke: '||szorzo||' 'emelés értéke:'|| (i.sal * szorzo)); UPDATE dolgozó SET sal = sal + (sal * szorzo) WHERE empno = i.empno; END LOOP; END; / SELECT * FROM dolgozó; SET numwidth 10 Eredmény A tábla eldobva. A tábla létrejött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ----- ---------- --------- ----- ---------

----- ----- -----7369 SMITH CLERK 7902 80-DEC-17 800 20 7499 ALLEN SALESMAN 7698 81-FEB-20 1600 300 30 7521 WARD SALESMAN 7698 81-FEB-22 1250 500 30 7566 JONES MANAGER 7839 81-ÁPR-02 2975 20 7654 MARTIN SALESMAN 7698 81-SZE-28 1250 1400 30 7698 BLAKE MANAGER 7839 81-MÁJ-01 2850 30 7782 CLARK MANAGER 7839 81-JÚN-09 2450 10 7788 SCOTT ANALYST 7566 87-ÁPR-19 3000 20 7839 KING PRESIDENT 81-NOV-17 5000 10 7844 TURNER SALESMAN 7698 81-SZE-08 1500 0 30 7876 ADAMS CLERK 7788 87-MÁJ-23 1100 20 7900 JAMES CLERK 7698 81-DEC-03 950 30 #03 PL-SQL Feladatgyűjtemény [06] -3- '|| 7902 FORD 7934 MILLER ANALYST CLERK 7566 81-DEC-03 7782 82-JAN-23 3000 1300 20 10 14 sor kijelölve. A szorzó értéke: ,71 A szorzó értéke: ,28 A szorzó értéke: ,71 A szorzó értéke: ,34 A szorzó értéke: ,12 A szorzó értéke: ,99 A szorzó értéke: ,66 A szorzó értéke: ,65 A szorzó értéke: ,54 A szorzó értéke: ,95 A szorzó értéke: ,7 A szorzó értéke: ,48 A szorzó

értéke: ,76 A szorzó értéke: ,37 emelés értéke:568 emelés értéke:448 emelés értéke:887,5 emelés értéke:1011,5 emelés értéke:150 emelés értéke:2821,5 emelés értéke:1617 emelés értéke:1950 emelés értéke:2700 emelés értéke:1425 emelés értéke:1783,6 emelés értéke:456 emelés értéke:2280 emelés értéke:481 A PL/SQL eljárás sikeresen befejeződött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ----- ---------- --------- ----- ---------- ----- ----- -----7369 SMITH CLERK 7902 1980-12-17 1368 20 7499 ALLEN SALESMAN 7698 1981-02-20 2048 300 30 7521 WARD SALESMAN 7698 1981-02-22 2138 500 30 7566 JONES MANAGER 7839 1981-04-02 3987 20 7654 MARTIN SALESMAN 7698 1981-09-28 1400 1400 30 7698 BLAKE MANAGER 7839 1981-05-01 5672 30 7782 CLARK MANAGER 7839 1981-06-09 4067 10 7788 SCOTT ANALYST 7566 1987-04-19 4950 20 7839 KING PRESIDENT 1981-11-17 7700 10 7844 TURNER SALESMAN 7698 1981-09-08 2925 0 30 7876 ADAMS CLERK 7788 1987-05-23 4332 20 7900 JAMES

CLERK 7698 1981-12-03 1406 30 7902 FORD ANALYST 7566 1981-12-03 5280 20 7934 MILLER CLERK 7782 1982-01-23 1781 10 14 sor kijelölve. 9.2 Feladat Írjon PL/SQL programot, amely az emp táblából létrehoz egy dolgozó táblát, és megnöveli a felhasználó által megadott azonosítójú főnök minden beosztottjának fizetését azok átlagfizetésének 10%-val. Megoldás SET numwidth 5 SET serveroutput ON ACCEPT azonositó PROMPT 'Kérem a főnök azonosítóját: ' DROP TABLE dolgozó; CREATE TABLE dolgozó AS SELECT * FROM emp; SELECT * FROM dolgozó; CREATE OR REPLACE VIEW megadott(dempno,dname,djob,dmgr,dhiredate, dsal,dcomm,ddeptno, átlag) AS SELECT dolgozó.*, átlag FROM dolgozó, (SELECT ROUND(AVG(sal)) AS átlag, mgr AS azon FROM dolgozó GROUP BY mgr HAVING mgr = &azonositó) al #03 PL-SQL Feladatgyűjtemény [06] -4- WHERE al.azon = dolgozómgr; SELECT * FROM megadott; BEGIN UPDATE dolgozó SET sal = sal + 0.1 * (SELECT DISTINCT átlag FROM megadott)

WHERE mgr = (SELECT DISTINCT dmgr FROM megadott); END; / SELECT * FROM dolgozó; SET numwidth 10 Eredmény Kérem a főnök azonosítóját: 7698 A tábla eldobva. A tábla létrejött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ----- ---------- --------- ----- ---------- ----- ----- -----7369 SMITH CLERK 7902 1980-12-17 800 20 7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30 7521 WARD SALESMAN 7698 1981-02-22 1250 500 30 7566 JONES MANAGER 7839 1981-04-02 2975 20 7654 MARTIN SALESMAN 7698 1981-09-28 1250 1400 30 7698 BLAKE MANAGER 7839 1981-05-01 2850 30 7782 CLARK MANAGER 7839 1981-06-09 2450 10 7788 SCOTT ANALYST 7566 1987-04-19 3000 20 7839 KING PRESIDENT 1981-11-17 5000 10 7844 TURNER SALESMAN 7698 1981-09-08 1500 0 30 7876 ADAMS CLERK 7788 1987-05-23 2548 20 7900 JAMES CLERK 7698 1981-12-03 950 30 7902 FORD ANALYST 7566 1981-12-03 3000 20 7934 MILLER CLERK 7782 1982-01-23 1300 10 14 sor kijelölve. régi 9: új 9: HAVING mgr = &azonositó) al HAVING mgr = 7698) al A

nézet létrejött. DEMPNO DNAME DJOB DMGR DHIREDATE DSAL DCOMM DDEPTNO ÁTLAG ------ ---------- --------- ----- ---------- ----- ----- ------- ----7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30 1310 7521 WARD SALESMAN 7698 1981-02-22 1250 500 30 1310 7654 MARTIN SALESMAN 7698 1981-09-28 1250 1400 30 1310 7844 TURNER SALESMAN 7698 1981-09-08 1500 0 30 1310 7900 JAMES CLERK 7698 1981-12-03 950 30 1310 5 sor kijelölve. 5 sor módosítva. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ----- ---------- --------- ----- ---------- ----- ----- -----7369 SMITH CLERK 7902 1980-12-17 800 20 7499 ALLEN SALESMAN 7698 1981-02-20 1731 300 30 7521 WARD SALESMAN 7698 1981-02-22 1381 500 30 7566 JONES MANAGER 7839 1981-04-02 2975 20 7654 MARTIN SALESMAN 7698 1981-09-28 1381 1400 30 7698 BLAKE MANAGER 7839 1981-05-01 2850 30 #03 PL-SQL Feladatgyűjtemény [06] -5- 7782 CLARK 7788 SCOTT 7839 KING 7844 TURNER 7876 ADAMS 7900 JAMES 7902 FORD 7934 MILLER MANAGER ANALYST PRESIDENT SALESMAN CLERK CLERK

ANALYST CLERK 7839 1981-06-09 7566 1987-04-19 1981-11-17 7698 1981-09-08 7788 1987-05-23 7698 1981-12-03 7566 1981-12-03 7782 1982-01-23 2450 3000 5000 1631 2548 1081 3000 1300 0 10 20 10 30 20 30 20 10 14 sor kijelölve. 9.3 Feladat Írjon PL/SQL programot, mely az emp táblából létrehoz egy dolgozó táblát, és megnöveli a felhasználó által megadott nevű főnök minden beosztottjának fizetését azok átlagfizetésének 10%-val. Megoldás1 SET numwidth 5; BREAK ON mgr DROP TABLE dolgozó; CREATE TABLE dolgozó AS SELECT * FROM emp; SELECT * FROM dolgozó; Eredmény A tábla eldobva. A tábla létrejött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ----- ---------- --------- ----- ---------- ----- ----- -----7369 SMITH CLERK 7902 1980-12-17 800 20 7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30 7521 WARD SALESMAN 1981-02-22 1250 500 30 7566 JONES MANAGER 7839 1981-04-02 2975 20 7654 MARTIN SALESMAN 7698 1981-09-28 1250 1400 30 7698 BLAKE MANAGER 7839 1981-05-01 2850

30 7782 CLARK MANAGER 1981-06-09 2450 10 7788 SCOTT ANALYST 7566 1987-04-19 3000 20 7839 KING PRESIDENT 1981-11-17 5000 10 7844 TURNER SALESMAN 7698 1981-09-08 1500 0 30 7876 ADAMS CLERK 7788 1987-05-23 2548 20 7900 JAMES CLERK 7698 1981-12-03 950 30 7902 FORD ANALYST 7566 1981-12-03 3000 20 7934 MILLER CLERK 7782 1982-01-23 1300 10 14 sor kijelölve. 1. Lépés Hozzunk létre egy nézetet a beosztottak átlagának kiszámítására CREATE OR REPLACE VIEW beoátlag AS SELECT mgr, ROUND(AVG(sal)) AS átlag FROM dolgozó WHERE mgr IS NOT NULL GROUP BY mgr; SELECT * FROM beoátlag; Eredmény A nézet létrejött. #03 PL-SQL Feladatgyűjtemény [06] -6- MGR ÁTLAG ----- ----7566 3000 7698 1310 7782 1300 7788 2548 7839 2758 7902 800 6 sor kijelölve. 2. Lépés Nézet létrehozása a dolgozó, főnök adataival és az átlaggal együtt CREATE OR REPLACE VIEW BEOSZT AS SELECT d.empno AS dazon, d.ename AS dnév, f.empno AS fazon, f.ename AS fnév, átlag FROM dolgozó d, dolgozó f,

Beoátlag beo WHERE d.mgr = fempno(+) AND f.empno = beomgr; SELECT * FROM beoszt; Eredmény A nézet létrejött. DAZON DNÉV FAZON FNÉV ÁTLAG ----- ---------- ----- ---------- ----7788 SCOTT 7566 JONES 3000 7902 FORD 7566 JONES 3000 7499 ALLEN 7698 BLAKE 1310 7521 WARD 7698 BLAKE 1310 7654 MARTIN 7698 BLAKE 1310 7844 TURNER 7698 BLAKE 1310 7900 JAMES 7698 BLAKE 1310 7934 MILLER 7782 CLARK 1300 7876 ADAMS 7788 SCOTT 2548 7566 JONES 7839 KING 2758 7698 BLAKE 7839 KING 2758 7782 CLARK 7839 KING 2758 7369 SMITH 7902 FORD 800 13 sor kijelölve. 2. Lépés Írjuk meg a növelést mindazoknak, akik a felhasználó által megadott főnök beosztottai, és listázzuk főnökazonosító szerint rendezve. ACCEPT név PROMPT 'Kérem a főnök nevét: ' BEGIN UPDATE dolgozó SET sal = sal + 0.1 * (SELECT DISTINCT átlag FROM beoszt WHERE UPPER(fnév) = UPPER('&név')) WHERE dolgozó.mgr IN (SELECT fazon FROM beoszt WHERE UPPER(fnév) = UPPER('&név'));

END; / SELECT * FROM dolgozó ORDER BY mgr; SET numwidth 10 CLEAR BREAKS #03 PL-SQL Feladatgyűjtemény [06] -7- Eredmény Kérem a főnök nevét: blake régi 6: új 6: régi 9: új 9: WHERE UPPER(fnév) = UPPER('&név')) WHERE UPPER(fnév) = UPPER('blake')) WHERE UPPER(fnév) = UPPER('&név')); WHERE UPPER(fnév) = UPPER('blake')); A PL/SQL eljárás sikeresen befejeződött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ----- ---------- --------- ----- ---------- ----- ----- -----7788 SCOTT ANALYST 7566 1987-04-19 3000 20 7902 FORD ANALYST 1981-12-03 3000 20 7499 ALLEN SALESMAN 7698 1981-02-20 1731 300 30 7521 WARD SALESMAN 1981-02-22 1381 500 30 7900 JAMES CLERK 1981-12-03 1081 30 7844 TURNER SALESMAN 1981-09-08 1631 0 30 7654 MARTIN SALESMAN 1981-09-28 1381 1400 30 7934 MILLER CLERK 7782 1982-01-23 1300 10 7876 ADAMS CLERK 7788 1987-05-23 2548 20 7566 JONES MANAGER 7839 1981-04-02 2975 20 7782 CLARK MANAGER 1981-06-09 2450 10

7698 BLAKE MANAGER 1981-05-01 2850 30 7369 SMITH CLERK 7902 1980-12-17 800 20 7839 KING PRESIDENT 1981-11-17 5000 10 14 sor kijelölve. Megoldás2 SET numwidth 5 ACCEPT név PROMPT 'Kérem a főnök nevét: ' DROP TABLE dolgozó; CREATE TABLE dolgozó AS SELECT * FROM emp; SELECT * FROM dolgozó; CREATE OR REPLACE VIEW megadott(dempno,dname,djob,dmgr,dhiredate,dsal,dcomm,ddeptno,átlag) AS SELECT dolgozó.*, átlag FROM dolgozó, (SELECT ROUND(AVG(sal)) AS átlag, mgr AS azon FROM dolgozó GROUP BY mgr) al WHERE al.azon = dolgozómgr; SELECT * FROM megadott; CREATE OR REPLACE VIEW fönöknév(azon,fnév) AS SELECT DISTINCT főnök.empno, főnök.ename FROM emp dolg, emp főnök WHERE dolg.mgr = főnökempno(+); SELECT * FROM fönöknév; CREATE OR REPLACE VIEW jo(fnév,azonos,dnév,átlag) AS SELECT fnév, dempno, dname, #03 PL-SQL Feladatgyűjtemény [06] -8- átlag FROM fönöknév, megadott WHERE UPPER(fnév) = UPPER('&név') azon = dmgr; SELECT * FROM

jo; AND CREATE OR REPLACE VIEW növ(emeles) AS SELECT DISTINCT 0.1*átlag FROM jo; SELECT * FROM növ; BEGIN UPDATE dolgozó SET sal = sal + (SELECT emeles FROM növ) WHERE empno = (SELECT azonos FROM jo WHERE dolgozó.ename = dnév); END; / SELECT * FROM dolgozó; Eredmény Kérem a főnök nevét: blake A tábla eldobva. A tábla létrejött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ----- ---------- --------- ----- ---------- ----- ----- -----7369 SMITH CLERK 7902 1980-12-17 800 20 7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30 7521 WARD SALESMAN 7698 1981-02-22 1250 500 30 7566 JONES MANAGER 7839 1981-04-02 2975 20 7654 MARTIN SALESMAN 7698 1981-09-28 1250 1400 30 7698 BLAKE MANAGER 7839 1981-05-01 2850 30 7782 CLARK MANAGER 7839 1981-06-09 2450 10 7788 SCOTT ANALYST 7566 1987-04-19 3000 20 7839 KING PRESIDENT 1981-11-17 5000 10 7844 TURNER SALESMAN 7698 1981-09-08 1500 0 30 7876 ADAMS CLERK 7788 1987-05-23 2548 20 7900 JAMES CLERK 7698 1981-12-03 950 30 7902 FORD ANALYST

7566 1981-12-03 3000 20 7934 MILLER CLERK 7782 1982-01-23 1300 10 14 sor kijelölve. A nézet létrejött. DEMPNO DNAME DJOB DMGR DHIREDATE DSAL DCOMM DDEPTNO ÁTLAG ------ ---------- --------- ----- ---------- ----- ----- ------- ----7902 FORD ANALYST 7566 1981-12-03 3000 20 3000 7788 SCOTT ANALYST 7566 1987-04-19 3000 20 3000 7900 JAMES CLERK 7698 1981-12-03 950 30 1310 7844 TURNER SALESMAN 7698 1981-09-08 1500 0 30 1310 7654 MARTIN SALESMAN 7698 1981-09-28 1250 1400 30 1310 7521 WARD SALESMAN 7698 1981-02-22 1250 500 30 1310 7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30 1310 7934 MILLER CLERK 7782 1982-01-23 1300 10 1300 7876 ADAMS CLERK 7788 1987-05-23 2548 20 2548 7782 CLARK MANAGER 7839 1981-06-09 2450 10 2758 7698 BLAKE MANAGER 7839 1981-05-01 2850 30 2758 7566 JONES MANAGER 7839 1981-04-02 2975 20 2758 7369 SMITH CLERK 7902 1980-12-17 800 20 800 13 sor kijelölve. #03 PL-SQL Feladatgyűjtemény [06] -9- A nézet létrejött. régi 6: WHERE UPPER(fnév)

=UPPER('&név') AND új 6: WHERE UPPER(fnév) =UPPER('blake') AND A nézet létrejött. FNÉV AZONOS DNÉV ÁTLAG ---------- ------ ---------- ----BLAKE 7499 ALLEN 1310 BLAKE 7521 WARD 1310 BLAKE 7654 MARTIN 1310 BLAKE 7844 TURNER 1310 BLAKE 7900 JAMES 1310 5 sor kijelölve. A nézet létrejött. A PL/SQL eljárás sikeresen befejeződött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ----- ---------- --------- ----- ---------- ----- ----- -----7369 SMITH CLERK 7902 1980-12-17 800 20 7499 ALLEN SALESMAN 7698 1981-02-20 1731 300 30 7521 WARD SALESMAN 7698 1981-02-22 1381 500 30 7566 JONES MANAGER 7839 1981-04-02 2975 20 7654 MARTIN SALESMAN 7698 1981-09-28 1381 1400 30 7698 BLAKE MANAGER 7839 1981-05-01 2850 30 7782 CLARK MANAGER 7839 1981-06-09 2450 10 7788 SCOTT ANALYST 7566 1987-04-19 3000 20 7839 KING PRESIDENT 1981-11-17 5000 10 7844 TURNER SALESMAN 7698 1981-09-08 1631 0 30 7876 ADAMS CLERK 7788 1987-05-23 2548 20 7900 JAMES CLERK 7698 1981-12-03 1081 30

7902 FORD ANALYST 7566 1981-12-03 3000 20 7934 MILLER CLERK 7782 1982-01-23 1300 10 14 sor kijelölve. #03 PL-SQL Feladatgyűjtemény [06] - 10 - 10. Foglalkozás Összefoglaló Feladatok Részletesebben lásd [2]: 9., és 10 fejezet FELADATGYŰJTEMÉNY 10.1 Feladat Hozzon létre egy dolgozó nevű táblát az emp tábla eladóiból (salesman), és változtassa meg az mgr oszlop nevét partner névre, melyet az alábbi módon töltsön fel értékkel: Két dolgozó partnere lehet egymásnak, ha még egyiküknek sincs partnere, és 150 USD-nél nem több a fizetésük különbsége. A partnerek azonosítói szerepeljenek egymás partner oszlopában Ellenőrizze a megoldást új dolgozó felvitelével, és a partnerkeresés megismétlésével. 10.2 Feladat Hozzon létre egy dolgozó nevű táblát az emp tábla rekordjaiból, és bővítse egy partner nevű oszloppal, melynek típusa egyezzen meg az ename oszlop típusával. Készítsen egy SQL*Plus programba ágyazott PL/SQL

blokkot, amely megkisérli a dolgozókat párosítani az alábbi szempontok alapján: - minden dolgozó táblabeli dolgozó partnere csak dolgozó táblabeli dolgozó lehet, - önmagának senki nem lehet partnere, - mindenki legfeljebb egy valakinek lehet partnere, - két dolgozó partnere lehet egymásnak, ha ugyanaz a főnökük és megegyezik a munkakörük. 10.3 Feladat 3.1 Hozzon létre egy dolgozó nevű táblát az emp tábla rekordjaiból 3.2 Készítsen triggert a dolgozó táblába történő ellenőrzött adatbevitelhez, ahol az alábbi adatbeviteli feltételeket a trigger által meghívott tárolt alprogramokban vizsgálja meg: a.) Részleg feltétel: Egy új dolgozó részlegeként csak már létező részleg azonosítója adható meg. b.) Fizetési feltétel: Egy új dolgozó fizetésként a részlegében és vele azonos munkakörben dolgozók átlagfizetésének legalább a 3/4-ét kapja, ha a részlegében nincs vele azonos munkakörű, akkor a részlegében dolgozók

átlagfizetésének 2/3-ánál legalább 300 USD-vel többet, ha pedig a részlegében ő az első dolgozó, akkor legalább 2000 USD-t. 3.3 A trigger és a tárolt eljárások ellenőrzése érdekében végezze el a szükséges adatfelviteleket 3.4 Az elkészített megoldás a tárolandó dolgozó nevét írja vissza a képernyőre, és sikeres adatfelvitel esetén írja ki a dolgozó nevét, majd az "OK!" üzenetet, míg sikertelen adatfelvitel esetén a "HIBA:" üzenetet, és a sikertelenség okát. 3.5 Utolsó lépésként listázza a dolgozó táblát, majd állítsa vissza az eredeti táblatartalmat #03 PL-SQL Feladatgyűjtemény [06] - 11 - MEGOLDÁSGYŰJTEMÉNY 10.1 Feladat Hozzon létre egy dolgozó nevű táblát az emp tábla eladóiból (salesman), és változtassa meg az mgr oszlop nevét partner névre, melyet az alábbi módon töltsön fel értékkel: Két dolgozó partnere lehet egymásnak, ha még egyiküknek sincs partnere, és 150 USD-nél

nem több a fizetésük különbsége. A partnerek azonosítói szerepeljenek egymás partner oszlopában Ellenőrizze a megoldást új dolgozó felvitelével, és a partnerkeresés megismétlésével. A. Megoldás (Megoldási próbálkozás SQL-ben) 0. lépés (Az SQL*Plus környezet inicializálása) -- Az emp tábla inicializálása (ezúttal elhagyjuk) -- Feltételezve, hogy az INIT1.sql a BIN könyvtárban van -- A dátum és megjelenítés inicializálása -- @INIT1 ALTER SESSION SET NLS DATE FORMAT = 'YYYY-MM-DD'; SET numwidth 5 -- Az esetlegesen létező azonos nevű objektumok törlése DROP VIEW dolgozó; DROP TABLE dolgozó; A munkamenet módosítva. ORA-00942: a tábla vagy a nézet nem létezik ORA-00942: a tábla vagy a nézet nem létezik 1. lépés (Konzisztens adattábla létrehozása) CREATE OR REPLACE VIEW DolgozóNézet AS SELECT * FROM emp WHERE LOWER(job) = 'salesman'; SELECT * FROM DolgozóNézet; DROP TABLE dolgozó; CREATE TABLE dolgozó

AS SELECT empno, ename, job, CASE WHEN mgr IN (SELECT empno FROM DolgozóNézet) THEN mgr ELSE NULL END AS mgr, hiredate, sal, comm, deptno FROM DolgozóNézet; DROP VIEW DolgozóNézet; SELECT * FROM dolgozó; A nézet létrejött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ----- ---------- --------- ----- ---------- ----- ----- -----7654 MARTIN SALESMAN 7698 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30 7844 TURNER SALESMAN 7698 1981-09-08 1500 0 30 7521 WARD SALESMAN 7698 1981-02-22 1250 500 30 A tábla létrejött. EMPNO ENAME JOB #03 PL-SQL Feladatgyűjtemény [06] MGR HIREDATE SAL - 12 - COMM DEPTNO ----- ---------- --------- ----- ---------- ----- ----- -----7654 MARTIN SALESMAN 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 1981-02-20 1600 300 30 7844 TURNER SALESMAN 1981-09-08 1500 0 30 7521 WARD SALESMAN 1981-02-22 1250 500 30 2. lépés (Oszlopmódosítás és adattörlés) ALTER TABLE dolgozó RENAME COLUMN mgr TO partner; -- A partner

mező ezúttal az alábbi törlés nélkül is üres UPDATE dolgozó SET partner = NULL; SELECT * FROM dolgozó; A tábla módosítva. EMPNO ENAME JOB PARTNER HIREDATE SAL COMM DEPTNO ----- ---------- --------- ------- ---------- ----- ----- -----7654 MARTIN SALESMAN 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 1981-02-20 1600 300 30 7844 TURNER SALESMAN 1981-09-08 1500 0 30 7521 WARD SALESMAN 1981-02-22 1250 500 30 3. lépés (Adatfeltöltés) -- Partnerkereső segédnézet létrehozása CREATE OR REPLACE VIEW PartnerKeresés(DolgozóID,DolgozóFiz, PartnerID,PartnerFiz) AS SELECT D.empno AS DolgozóID, D.sal AS DolgozóFiz, P.empno AS PartnerID, P.sal AS PartnerFiz FROM dolgozó D, dolgozó P WHERE ABS(D.sal - Psal) <= 150 AND D.empno != Pempno; SELECT * FROM PartnerKeresés; A nézet létrejött. DOLGOZÓID DOLGOZÓFIZ PARTNERID PARTNERFIZ --------- ---------- --------- ---------7654 1250 7521 1250 7499 1600 7844 1500 7844 1500 7499 1600 7521 1250 7654 1250 -- Adatmódosítás

UPDATE dolgozó SET partner = (SELECT PartnerID FROM PartnerKeresés WHERE DolgozóID = empno); SELECT * FROM dolgozó; 4 sor módosítva. EMPNO ENAME JOB PARTNER HIREDATE SAL COMM DEPTNO ----- ---------- --------- ------- ---------- ----- ----- -----7654 MARTIN SALESMAN 7521 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 7844 1981-02-20 1600 300 30 7844 TURNER SALESMAN 7499 1981-09-08 1500 0 30 7521 WARD SALESMAN 7654 1981-02-22 1250 500 30 4. lépés (Ellenőrzés rekordfelvitellel) INSERT INTO dolgozó VALUES(6666,'SIGORSZKI','SALESMAN',NULL,'2005-10-30',1250,NULL,30); 1 sor létrejött. UPDATE dolgozó #03 PL-SQL Feladatgyűjtemény [06] - 13 - SET partner = (SELECT PartnerID FROM PartnerKeresés WHERE DolgozóID = empno); SET partner = (SELECT PartnerID * Hiba a(z) 2. sorban: ORA-01427: egysoros allekérdezés egynél több sorral tér vissza >> HIBÁS az adatmódosítás! >> Derítsük ki a hiba okát, és készítsünk jó

adatmódosító utasítást SELECT * FROM PartnerKeresés; DOLGOZÓID DOLGOZÓFIZ PARTNERID PARTNERFIZ --------- ---------- --------- ---------7654 1250 7521 1250 7654 1250 6666 1250 7499 1600 7844 1500 7844 1500 7499 1600 7521 1250 7654 1250 7521 1250 6666 1250 6666 1250 7654 1250 6666 1250 7521 1250 8 sor kijelölve. >> A HIBA oka, hogy egy dolgozónak több partnere is lehet a fizetés feltétel szerint SELECT MaxPartnerID FROM (SELECT DolgozóID, MAX(PartnerID) FROM PartnerKeresés GROUP BY DolgozóID) WHERE DolgozóID = 7654; AS MaxPartnerID MAXPARTNERID -----------7521 >> Így minden dolgozó a legnagyobb azonosítójú (a fizetésre vonatkozó feltételt teljesítő) >> dolgozót kapja partnerként. >> (Ez egy módszer arra, hogy kijelöljünk egyet a lehetséges elemek közül, >> de ilyen módszer nem mindig található!) -- ÚJABB PRÓBÁLKOZÁS -- A partner mező inicializálása UPDATE dolgozó SET partner = NULL; -- A partner mező

beállítása (feltöltése) UPDATE dolgozó SET partner = (SELECT MaxPartnerID FROM (SELECT DolgozóID, MAX(PartnerID) FROM PartnerKeresés GROUP BY DolgozóID) WHERE DolgozóID = empno); SELECT * FROM dolgozó; AS MaxPartnerID 5 sor módosítva. EMPNO ENAME JOB PARTNER HIREDATE SAL COMM DEPTNO ----- ---------- --------- ------- ---------- ----- ----- -----7654 MARTIN SALESMAN 7521 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 7844 1981-02-20 1600 300 30 7844 TURNER SALESMAN 7499 1981-09-08 1500 0 30 7521 WARD SALESMAN 7654 1981-02-22 1250 500 30 6666 SIGORSZKI SALESMAN 7654 2005-10-30 1250 30 #03 PL-SQL Feladatgyűjtemény [06] - 14 - >> Még mindig HIBÁS az adatmódosítás! >> A HIBA oka, hogy a legnagyobb azonosítójú dolgozót többen is tudják választani. >> Ezt úgy küszöböljük ki, hogy mielőtt egy dolgozó-azonosítót partnerkódként kiosztunk, >> megvizsgáljuk, hogy azt nem kapta-e már meg valaki. >> (Ezt algebrailag felírva:

{a} ⊆ B ⇔ {a} B ≠ ∅, ahol {a} a vizsgálandó dolgozó-azonosító, >> vagyis a "(SELECT MaxPartnerID." utasításrész, amelyik bár csak egyetlen elemet ad ki, >> azért mégis csak halmaz, hiszen lista.) -- ÚJABB PRÓBÁLKOZÁS 2. -- A partner mező inicializálása UPDATE dolgozó SET partner = NULL; -- A partner mező beállítása (feltöltése) UPDATE dolgozó SET partner = (SELECT MaxPartnerID FROM (SELECT DolgozóID, MAX(PartnerID) AS MaxPartnerID FROM PartnerKeresés GROUP BY DolgozóID) WHERE DolgozóID = empno) WHERE NOT EXISTS (SELECT MaxPartnerID FROM (SELECT DolgozóID, MAX(PartnerID) AS MaxPartnerID FROM PartnerKeresés GROUP BY DolgozóID) WHERE DolgozóID = empno MINUS SELECT partner FROM dolgozó); SELECT * FROM dolgozó; 0 sor módosítva. EMPNO ENAME JOB PARTNER HIREDATE SAL COMM DEPTNO ----- ---------- --------- ------- ---------- ----- ----- -----7654 MARTIN SALESMAN 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 1981-02-20 1600 300

30 7844 TURNER SALESMAN 1981-09-08 1500 0 30 7521 WARD SALESMAN 1981-02-22 1250 500 30 6666 SIGORSZKI SALESMAN 2005-10-30 1250 30 >> Még mindig HIBÁS az adatmódosítás! >> Mi lehet a HIBA oka, hiszen ez az adatmódosítás már igazán mindent figyelembe vesz? >> ???? (Ötletek küldhetők az oktat123@freemail címre.) #03 PL-SQL Feladatgyűjtemény [06] - 15 - B. Megoldás (Megoldás PL/SQL-ben – Rejtett kurzorral és ROWID-val) 1. lépés (Konzisztens adattábla létrehozása) ugyanaz, mint az A. Megoldásban a 0 és az 1 lépés (lásd ott a szükséges SQL-utasításokat, illetve a DataLoad A.sql szkript programot) 2. lépés (Oszlopmódosítás, rekordhozzáadás) ugyanaz, mint az A. Megoldásban a 2 és a 3 lépés (lásd ott a szükséges SQL-utasításokat, illetve a DataLoad A.sql szkript programot) 3. lépés (Adatfeltöltés - ROWID használattal) -- DataLoad B.sql -------------------------------------------------------------- Adatfeltöltés

rejtett kurzorral és ROWID használattal --- (Értelmezését lásd a 12 KurzorHasználat.doc szkriptben) --------------------------------------------------------------- Utolsó javítás dátuma: 20051122 ------------------------------------------------------------SET serveroutput ON DECLARE v Egyik dolgozó.partner%TYPE; v Másik dolgozó.partner%TYPE; BEGIN -- A dolgozó tábla inicializálása UPDATE dolgozó SET partner = NULL; -- A fejléc kiíratása DBMS OUTPUT.PUT LINE('DOLGOZÓ ' || 'Fizetése ' || 'PARTNER ' || 'Fizetése'); DBMS OUTPUT.PUT LINE('==================================='); -- A külső ciklus (végigmegy az összes dolgozó rekordján) FOR EgyikDolgozó IN (SELECT dolgozó.*, ROWID AS RecID FROM dolgozó) LOOP -- A partner azonosító lekérdezése a külső ciklus számára: SELECT partner INTO v Egyik FROM dolgozó WHERE ROWID = EgyikDolgozó.RecID; -- A belső ciklus (ez is végigmegy az összes dolgozó

rekordján) FOR MásikDolgozó IN (SELECT dolgozó.*, ROWID AS RecID FROM dolgozó) LOOP -- A partner azonosító lekérdezése a belső ciklus számára: SELECT partner INTO v Másik FROM dolgozó WHERE ROWID = MásikDolgozó.RecID; -- Ha a külső ciklus aktuális dolgozójának fizetése -- és a belső ciklus aktuális dolgozójának fizetése -- között a különbség nem több 150 USD-nél, -- és a két dolgozó nem azonos, -- és egyiknek sincs még partnere, #03 PL-SQL Feladatgyűjtemény [06] - 16 - IF ABS(EgyikDolgozó.sal - MásikDolgozósal) <= 150 EgyikDolgozó.empno != MásikDolgozóempno v Egyik IS NULL v Másik IS NULL THEN -- akkor állítsuk be a partner-azonosítót: UPDATE dolgozó SET partner = MásikDolgozó.empno WHERE ROWID = EgyikDolgozó.RecID; AND AND AND -- és a beállítást visszafelé is végezzük el: UPDATE dolgozó SET partner = EgyikDolgozó.empno WHERE ROWID = MásikDolgozó.RecID; -- Kiíratás DBMS OUTPUT.PUT LINE(EgyikDolgozóempno

EgyikDolgozó.sal MásikDolgozó.empno MásikDolgozó.sal); ||' ||' ||' ' || '|| ' || -- Kiugrás a ciklusból -- Az egyezés és módosítás után kiugrás a belső ciklusból, és -- ugrás a külső ciklus következő rekordjára EXIT; END IF; -- A belső (MásikDolgozó) ciklus bezárása END LOOP; -- A külső (EgyikDolgozó) ciklus bezárása END LOOP; END; / SELECT * FROM dolgozó; -- End Of DataLoad B.sql DOLGOZÓ Fizetése PARTNER Fizetése =================================== 7654 1250 7521 1250 7499 1600 7844 1500 A PL/SQL eljárás sikeresen befejeződött. EMPNO ENAME JOB PARTNER HIREDATE SAL COMM DEPTNO ----- ---------- --------- ------- ---------- ----- ----- -----7654 MARTIN SALESMAN 7521 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 7844 1981-02-20 1600 300 30 7844 TURNER SALESMAN 7499 1981-09-08 1500 0 30 7521 WARD SALESMAN 7654 1981-02-22 1250 500 30 6666 SIGORSZKI SALESMAN 2005-10-30 1250 30 #03 PL-SQL Feladatgyűjtemény [06] - 17

- C. Megoldás (Megoldás PL/SQL-ben – Rejtett kurzorral, ROWID nélkül) 1. lépés (Konzisztens adattábla létrehozása) ugyanaz, mint az A. Megoldásban a 0 és az 1 lépés (lásd ott a szükséges SQL-utasításokat, illetve a DataLoad A.sql szkript programot) 2. lépés (Oszlopmódosítás, rekordhozzáadás) ugyanaz, mint az A. Megoldásban a 2 és 3 lépés (lásd ott a szükséges SQL-utasításokat, illetve a DataLoad A.sql szkript programot) 3. lépés (Adatfeltöltés - ROWID használat nélkül) A feladat megoldható ezúttal ROWID használata nélkül is, mivel van olyan, a rekordokat egyértelműen azonosító oszlop (empno), mely a kurzor-ciklusban nem változik meg. -- DataLoad C.sql -------------------------------------------------------------- Adatfeltöltés rejtett kurzorral, ROWID nélkül --- (Értelmezését lásd a 12 KurzorHasználat.doc szkriptben) --------------------------------------------------------------- Utolsó javítás dátuma: 20051122

------------------------------------------------------------SET serveroutput ON DECLARE v Egyik dolgozó.partner%TYPE; v Másik dolgozó.partner%TYPE; BEGIN -- A dolgozó tábla inicializálása UPDATE dolgozó SET partner = NULL; -- A fejléc kiíratása DBMS OUTPUT.PUT LINE('DOLGOZÓ ' || 'Fizetése ' || 'PARTNER ' || 'Fizetése'); DBMS OUTPUT.PUT LINE('==================================='); -- A külső ciklus (végigmegy az összes dolgozó rekordján) FOR EgyikDolgozó IN (SELECT * FROM dolgozó) LOOP -- A partner azonosító lekérdezése a külső ciklus számára: SELECT partner INTO v Egyik FROM dolgozó WHERE empno = EgyikDolgozó.empno; -- A belső ciklus (ez is végigmegy az összes dolgozó rekordján) FOR MásikDolgozó IN (SELECT * FROM dolgozó) LOOP -- A partner azonosító lekérdezése a belső ciklus számára: SELECT partner INTO v Másik FROM dolgozó WHERE empno = MásikDolgozó.empno; -- Ha a külső ciklus

aktuális dolgozójának fizetése -- és a belső ciklus aktuális dolgozójának fizetése -- között a különbség nem több 150 USD-nél, -- és a két dolgozó nem azonos, -- és egyiknek sincs még partnere, #03 PL-SQL Feladatgyűjtemény [06] - 18 - IF ABS(EgyikDolgozó.sal - MásikDolgozósal) <= 150 EgyikDolgozó.empno != MásikDolgozóempno v Egyik IS NULL v Másik IS NULL THEN -- akkor állítsuk be a partner-azonosítót: UPDATE dolgozó SET partner = MásikDolgozó.empno WHERE empno = EgyikDolgozó.empno; AND AND AND -- és a beállítást visszafelé is végezzük el: UPDATE dolgozó SET partner = EgyikDolgozó.empno WHERE empno = MásikDolgozó.empno; -- Kiíratás DBMS OUTPUT.PUT LINE(EgyikDolgozóempno EgyikDolgozó.sal MásikDolgozó.empno MásikDolgozó.sal); ||' ||' ||' ' || '|| ' || -- Kiugrás a ciklusból -- Az egyezés és módosítás után kiugrás a belső ciklusból, és -- ugrás a külső ciklus következő

rekordjára EXIT; END IF; -- A belső (MásikDolgozó) ciklus bezárása END LOOP; -- A külső (EgyikDolgozó) ciklus bezárása END LOOP; END; / SELECT * FROM dolgozó; -- End Of DataLoad C.sql DOLGOZÓ Fizetése PARTNER Fizetése =================================== 7654 1250 7521 1250 7499 1600 7844 1500 A PL/SQL eljárás sikeresen befejeződött. EMPNO ENAME JOB PARTNER HIREDATE SAL COMM DEPTNO ----- ---------- --------- ------- ---------- ----- ----- -----7654 MARTIN SALESMAN 7521 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 7844 1981-02-20 1600 300 30 7844 TURNER SALESMAN 7499 1981-09-08 1500 0 30 7521 WARD SALESMAN 7654 1981-02-22 1250 500 30 6666 SIGORSZKI SALESMAN 2005-10-30 1250 30 #03 PL-SQL Feladatgyűjtemény [06] - 19 - D. Hibás Megoldás Tekintsük az előző, C. Megoldást, ám ezúttal ne a dolgozó táblából, hanem az egyes ciklusok rejtett kurzoraiból kérdezzük le egyszerű értékadással (az adott ciklus ciklusváltozóján keresztül) az aktuális

rekord partner értékét (lásd a DataLoad D.sql szkript programot) Eredményként az alábbi táblát kapjuk: EMPNO ENAME JOB PARTNER HIREDATE SAL COMM DEPTNO ----- ---------- --------- ------- ---------- ----- ----- -----7654 MARTIN SALESMAN 7521 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 7844 1981-02-20 1600 300 30 7844 TURNER SALESMAN 7499 1981-09-08 1500 0 30 7521 WARD SALESMAN 6666 1981-02-22 1250 500 30 6666 SIGORSZKI SALESMAN 7521 2005-10-30 1250 30 Ez láthatóan hibás (Martinnak és Sigorszkinak ugyanaz a partner jutott). Mi a hiba oka? A magyarázat a kurzorok alaptermészetében keresendő: A kurzorbeli lekérdezés eredménye egy zárt memóriaterületre kerül, melyet nem befolyásol azon adattábla tartalmának megváltozása, melyre a kurzorlekérdezés történt. #03 PL-SQL Feladatgyűjtemény [06] - 20 - 2. Feladat Hozzon létre egy dolgozó nevű táblát az emp tábla rekordjaiból, és bővítse egy partner nevű oszloppal, melynek típusa egyezzen meg az

ename oszlop típusával. Készítsen egy SQL*Plus programba ágyazott PL/SQL blokkot, amely megkisérli a dolgozókat párosítani az alábbi szempontok alapján: - minden dolgozó táblabeli dolgozó partnere csak dolgozó táblabeli dolgozó lehet, - önmagának senki nem lehet partnere, - mindenki legfeljebb egy valakinek lehet partnere, - két dolgozó partnere lehet egymásnak, ha ugyanaz a főnökük és megegyezik a munkakörük. Megoldás SET serveroutput ON SET numwidth 5 DROP VIEW dolgozó; DROP TABLE dolgozó; CREATE TABLE dolgozó AS SELECT * FROM emp; ALTER TABLE dolgozó DROP COLUMN partner; ALTER TABLE dolgozó ADD partner VARCHAR2(6) DEFAULT '---'; DECLARE i Partner dolgozó.partner%Type; j Partner dolgozó.partner%Type; BEGIN FOR i IN (SELECT * FROM dolgozó) LOOP SELECT partner INTO i Partner FROM dolgozó WHERE empno = i.empno; FOR j IN (SELECT * FROM dolgozó) LOOP SELECT partner INTO j Partner FROM dolgozó WHERE empno = j.empno; IF (i.mgr = jmgr) AND

(i.job = jjob) AND (i.empno <> jempno) AND (i Partner = '---') AND (j Partner = '---') THEN DBMS OUTPUT.PUT LINE(iename||i Partner||' j.ename||j Partner); UPDATE dolgozó SET partner = j.ename WHERE empno = i.empno; UPDATE dolgozó SET partner = i.ename WHERE empno = j.empno; EXIT; END IF; END LOOP; #03 PL-SQL Feladatgyűjtemény [06] - 21 - '|| END LOOP; END; / SELECT * FROM dolgozó; SET numwidth 10 Eredmény A tábla eldobva. A tábla létrejött. A tábla módosítva. A tábla módosítva. ALLEN--- WARD--JONES--- BLAKE--MARTIN--- TURNER--SCOTT--- FORD--A PL/SQL eljárás sikeresen befejeződött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO PARTNE ----- ---------- --------- ----- ---------- ----- ----- ------ -----7369 SMITH CLERK 7902 1980-12-17 800 20 --7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30 WARD 7521 WARD SALESMAN 7698 1981-02-22 1250 500 30 ALLEN 7566 JONES MANAGER 7839 1981-04-02 2975 20 BLAKE 7654 MARTIN SALESMAN 7698

1981-09-28 1250 1400 30 TURNER 7698 BLAKE MANAGER 7839 1981-05-01 2850 30 JONES 7782 CLARK MANAGER 7839 1981-06-09 2450 10 --7788 SCOTT ANALYST 7566 1987-04-19 3000 20 FORD 7839 KING PRESIDENT 1981-11-17 5000 10 --7844 TURNER SALESMAN 7698 1981-09-08 1500 0 30 MARTIN 7876 ADAMS CLERK 7788 1987-05-23 1100 20 --7900 JAMES CLERK 7698 1981-12-03 950 30 --7902 FORD ANALYST 7566 1981-12-03 3000 20 SCOTT 7934 MILLER CLERK 7782 1982-01-23 1300 10 --14 sor kijelölve. #03 PL-SQL Feladatgyűjtemény [06] - 22 - 10.3 Feladat 3.1 Hozzon létre egy dolgozó nevű táblát az emp tábla rekordjaiból 3.2 Készítsen triggert a dolgozó táblába történő ellenőrzött adatbevitelhez, ahol az alábbi adatbeviteli feltételeket a trigger által meghívott tárolt alprogramokban vizsgálja meg: a.) Részleg feltétel: Egy új dolgozó részlegeként csak már létező részleg azonosítója adható meg. b.) Fizetési feltétel: Egy új dolgozó fizetésként a részlegében és vele azonos

munkakörben dolgozók átlagfizetésének legalább a 3/4-ét kapja, ha a részlegében nincs vele azonos munkakörű, akkor a részlegében dolgozók átlagfizetésének 2/3-ánál legalább 300 USD-vel többet, ha pedig a részlegében ő az első dolgozó, akkor legalább 2000 USD-t. 3.3 A trigger és a tárolt eljárások ellenőrzése érdekében végezze el a szükséges adatfelviteleket 3.4 Az elkészített megoldás a tárolandó dolgozó nevét írja vissza a képernyőre, és sikeres adatfelvitel esetén írja ki a dolgozó nevét, majd az "OK!" üzenetet, míg sikertelen adatfelvitel esetén a "HIBA:" üzenetet, és a sikertelenség okát. 3.5 Utolsó lépésként listázza a dolgozó táblát, majd állítsa vissza az eredeti táblatartalmat Megoldás 0. lépés (Az SQL*Plus környezet inicializálása) -- Az emp tábla inicializálása (ezúttal elhagyjuk) -- @INIT1 -- Feltételezve, hogy az INIT1.sql a BIN könyvtárban van -- A dátum és

megjelenítés inicializálása ALTER SESSION SET NLS DATE FORMAT = 'YYYY-MM-DD'; SET numwidth 5 -- Az esetlegesen létező azonos nevű objektumok törlése DROP VIEW dolgozó; DROP TABLE dolgozó; -- A PL/SQL kiíratások engedélyezése SET serveroutput ON; A munkamenet módosítva. ORA-00942: a tábla vagy a nézet nem létezik ORA-00942: a tábla vagy a nézet nem létezik 1. lépés feladata 3.1 Hozzon létre egy dolgozó nevű táblát az emp tábla rekordjaiból 1. lépés feladatának megoldása DROP TABLE dolgozó; CREATE TABLE dolgozó AS SELECT * FROM emp; SELECT * FROM dolgozó; ORA-00942: a tábla vagy a nézet nem létezik A tábla létrejött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ----- ---------- --------- ----- ---------- ----- ----- -----7839 KING PRESIDENT 1981-11-17 5000 10 7698 BLAKE MANAGER 7839 1981-05-01 2850 30 7782 CLARK MANAGER 7839 1981-06-09 2450 10 7566 JONES MANAGER 7839 1981-04-02 2975 20 7654 MARTIN SALESMAN 7698 1981-09-28 1250

1400 30 7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30 #03 PL-SQL Feladatgyűjtemény [06] - 23 - 7844 TURNER 7900 JAMES 7521 WARD 7902 FORD 7369 SMITH 7788 SCOTT 7876 ADAMS 7934 MILLER SALESMAN CLERK SALESMAN ANALYST CLERK ANALYST CLERK CLERK 7698 1981-09-08 7698 1981-12-03 7698 1981-02-22 7566 1981-12-03 7902 1980-12-17 7566 1987-04-19 7788 1987-05-23 7782 1982-01-23 1500 950 1250 3000 800 3000 1100 1300 0 500 30 30 30 20 20 20 20 10 14 sor kijelölve. 2. lépés feladata 3.2 Készítsen triggert a dolgozó táblába történő ellenőrzött adatbevitelhez, ahol az alábbi adatbeviteli feltételeket a trigger által meghívott tárolt alprogramokban vizsgálja meg: a.) Részleg feltétel: Egy új dolgozó részlegeként csak már létező részleg azonosítója adható meg. b.) Fizetési feltétel: Egy új dolgozó fizetésként a részlegében és vele azonos munkakörben dolgozók átlagfizetésének legalább a 3/4-ét kapja, ha a részlegében nincs vele azonos

munkakörű, akkor a részlegében dolgozók átlagfizetésének 2/3-ánál legalább 300 USD-vel többet, ha pedig a részlegében ő az első dolgozó, akkor legalább 2000 USD-t. 3.4 Az elkészített megoldás a tárolandó dolgozó nevét írja vissza a képernyőre, és sikeres adatfelvitel esetén írja ki a dolgozó nevét, majd az "OK!" üzenetet, míg sikertelen adatfelvitel esetén a "HIBA:" üzenetet, és a sikertelenség okát. 2. lépés feladatának megoldása Megjegyzés: m1. A részlegfeltétel ellenőrzése érdekében létre kell hoznunk a részleg táblát is m2. A 34 pontbeli követelményt célszerű a triggerben, illetve a trigger által meghívott tárolt eljárásokban megvalósítani. 2.1 lépés (A részleg tábla létrehozása) -- Az esetlegesen létező azonos nevű objektumok törlése DROP VIEW részleg; DROP TABLE részleg; -- A részleg tábla létrehozása CREATE TABLE részleg AS SELECT * FROM dept; SELECT * FROM részleg;

ORA-00942: a tábla vagy a nézet nem létezik ORA-00942: a tábla vagy a nézet nem létezik A tábla létrejött. DEPTNO DNAME LOC ------ -------------- ------------10 ACCOUNTING NEW YORK 20 RESEARCH DALLAS 30 SALES CHICAGO 40 OPERATIONS BOSTON 2.2 lépés (A részlegfeltételt ellenőrző tárolt alprogram létrehozása) -- A részleglétezést ellenőrző tárolt alprogram -- Ennek két kimenete van attól függően, hogy létezik-e a megadott részleg, -- vagy nem (ez a hiba ág). CREATE OR REPLACE PROCEDURE Részlegfeltétel(RészlegID IN NUMBER) AS Előfordulás INTEGER; #03 PL-SQL Feladatgyűjtemény [06] - 24 - BEGIN SELECT COUNT(*) INTO Előfordulás FROM részleg WHERE deptno = RészlegID; IF Előfordulás = 0 -- F-a. FELTÉTEL! THEN RAISE APPLICATION ERROR(-20110, '>>HIBA: A Részlegfeltétel nem teljesül!'); ELSE DBMS OUTPUT.PUT LINE('OK! '|| '(A Részlegfeltétel teljesül.)'); END IF; END; / SHOW ERROR Az eljárás létrejött.

Nincsenek hibák. 2.3 lépés (A fizetési feltételt ellenőrző tárolt alprogram létrehozása) -- A fizetési feltételt ellenőrző tárolt alprogramban két vizsgálatot kell elvégezni. -- Először azt, hogy van-e már a megadott részlegben dolgozó, vagy nincs, -- Ha van dolgozó, akkor pedig azt, hogy van-e azonos munkakörű, vagy nincs. CREATE OR REPLACE PROCEDURE Fizetésfeltétel(RészlegID IN NUMBER, Munkakör IN VARCHAR2, Fizetés IN NUMBER) IS RészlegbeliDolgozók INTEGER; MunkakörbeliDolgozók INTEGER; RészlegÁtlag dolgozó.sal%TYPE; MunkakörÁtlag dolgozó.sal%TYPE; FizetésHatár dolgozó.sal%TYPE; BEGIN -- Az új dolgozó részlegében már dolgozók számának meghatározása SELECT COUNT(*) INTO RészlegbeliDolgozók FROM dolgozó WHERE deptno = RészlegID; -- A fizetés vizsgálata a részlegbeli dolgozók számától függően IF RészlegbeliDolgozók = 0 THEN -- Ekkor az új dolgozó az első dolgozó a részlegében IF Fizetés >= 2000 -- F-b3.

FELTÉTEL! THEN DBMS OUTPUT.PUT LINE('OK! '|| '(Az új fizetés legalább 2000 USD.)'); ELSE RAISE APPLICATION ERROR(-20113, '>>HIBA: Az új fizetés kisebb 2000 USD-nél!'); END IF; ELSE -- Ekkor már vannak mások is az új dolgozó részlegében -- Kérdés: Vannak-e azonos munkakörbeliek is? SELECT COUNT(*) INTO MunkakörbeliDolgozók FROM dolgozó WHERE deptno = RészlegID AND UPPER(job) = UPPER(Munkakör); -- A fizetés vizsgálata a részlegbeli dolgozók munkakörétől függően #03 PL-SQL Feladatgyűjtemény [06] - 25 - IF MunkakörbeliDolgozók = 0 THEN -- Nincs azonos munkakörű a részlegben SELECT AVG(sal) INTO RészlegÁtlag FROM dolgozó GROUP BY deptno HAVING deptno = RészlegID; FizetésHatár := ROUND(2/3 * RészlegÁtlag) + 300; DBMS OUTPUT.PUT LINE('> 2/3 * RészlegÁtlag + 300 = '|| FizetésHatár); IF Fizetés >= FizetésHatár -- F-b2. FELTÉTEL! THEN DBMS OUTPUT.PUT LINE('OK! '|| '(Az

új fizetés a részlegátlag 2/3-ánál min. 300 USD-vel több.)'); ELSE RAISE APPLICATION ERROR(-20112, '>>HIBA: Az új fizetés kisebb, ' || 'mint a részlegátlag 300 USD-vel megnövelt értéke!'); END IF; ELSE -- Van azonos munkakörű a részlegben SELECT AVG(sal) INTO MunkakörÁtlag FROM dolgozó GROUP BY deptno, job HAVING deptno = RészlegID AND UPPER(job) = UPPER(Munkakör); FizetésHatár := ROUND(3/4 * MunkakörÁtlag); DBMS OUTPUT.PUT LINE('> 3/4 * MunkakörÁtlag = '|| FizetésHatár); IF Fizetés >= FizetésHatár -- F-b1. FELTÉTEL! THEN DBMS OUTPUT.PUT LINE('OK! '|| '(Az új fizetés a részlegbeli munkaköri átlag 3/4-nél több.)'); ELSE RAISE APPLICATION ERROR(-20111, '>>HIBA: Az új fizetés kisebb, ' || 'mint a részlegbeli munkaköri átlag 3/4-e!'); END IF; END IF; END IF; END; / SHOW ERROR Az eljárás létrejött. Nincsenek hibák. Megjegyzés A fenti tárolt

eljárásban a SELECT AVG(sal) INTO RészlegÁtlag FROM dolgozó GROUP BY deptno HAVING deptno = RészlegID; helyett írhattuk volna SELECT AVG(sal) INTO RészlegÁtlag FROM dolgozó #03 PL-SQL Feladatgyűjtemény [06] - 26 - WHERE deptno = RészlegID; valamint a SELECT AVG(sal) INTO MunkakörÁtlag FROM dolgozó GROUP BY deptno, job HAVING deptno = RészlegID AND UPPER(job) = UPPER(Munkakör); helyett írhattuk volna SELECT AVG(sal) INTO MunkakörÁtlag FROM dolgozó WHERE deptno = RészlegID AND UPPER(job) = UPPER(Munkakör); 2.4 lépés (Az adatbevitel-felügyelő trigger létrehozása) -- A sortrigger a feltételvizsgáló tárolt alprogramokat hívja meg. DROP TRIGGER AdatFelügyelő; CREATE OR REPLACE TRIGGER AdatFelügyelő BEFORE INSERT ON dolgozó FOR EACH ROW BEGIN DBMS OUTPUT.PUT LINE ('> A felviendő dolgozó: ' ||:newename); Részlegfeltétel(:new.deptno); Fizetésfeltétel(:new.deptno, :newjob, :newsal); DBMS OUTPUT.PUT LINE (:newename || ':

OK!'); END; / SHOW ERROR ORA-04080: 'ADATFELÜGYELŐ' trigger nem létezik A trigger létrejött. Nincsenek hibák. 3. lépés feladata 3.3 A trigger és a tárolt eljárások ellenőrzése érdekében végezze el a szükséges adatfelviteleket 3. lépés feladatának megoldása (A felügyelt adatbevitel ellenőrzése) Az alábbiakban ellenőrizni kell az F-a., F-b1, F-b2 és F-b3 feltételek mindegyikének teljesülését és nem teljesülését Ennek célszerű módja olyan adatfelviteleket készíteni, melyekben mindig csak egy feltétel nem-teljesülését és teljesülését vizsgáljuk. Mivel az F-a feltétel teljesülése az összes többihez szükséges, így mindössze hét adatfelvitel szükséges a teljes ellenőrzéshez. 3.1 lépés (Adatlekérdezések az ellenőrzéshez) -- Részlegenkénti munkaköri átlagok (az F-b1. feltétel vizsgálatához) SELECT deptno job ROUND(AVG(sal)*3/4) FROM dolgozó GROUP BY deptno, job; AS Részleg, AS Munkakör, AS

"RészlegMunkakörÁtlag 3/4-e" RÉSZLEG MUNKAKÖR RészlegMunkakörÁtlag 3/4-e ---------- --------- -------------------------10 CLERK 975 10 MANAGER 1838 10 PRESIDENT 3750 20 CLERK 713 20 ANALYST 2250 20 MANAGER 2231 30 CLERK 713 30 MANAGER 2138 30 SALESMAN 1050 #03 PL-SQL Feladatgyűjtemény [06] - 27 - 9 sor kijelölve. -- Részlegátlagok (az F-b2. feltétel vizsgálatához) SELECT deptno ROUND(AVG(SAL)*2/3)+300 FROM dolgozó GROUP BY deptno; AS Részleg, AS "2/3-ad RészlegÁtlag + 300" RÉSZLEG 2/3-ad RészlegÁtlag + 300 ---------- ------------------------10 2244 20 1750 30 1344 3.2 lépés (Ellenőrzések) -- 1. Ellenőrzés: -- Az F-a. (Részlegfeltétel) NEM-teljesülésének vizsgálata INSERT INTO dolgozó VALUES(1234,'Péter(a)','SALESMAN',7698,'2005.1211',2000,NULL,50); > A felviendő dolgozó: Péter(a) INSERT INTO dolgozó * Hiba a(z) 1. sorban: ORA-20110: >>HIBA: A Részlegfeltétel nem teljesül!

ORA-06512: a(z) "SCOTT.RÉSZLEGFELTÉTEL", helyen a(z) 11 sornál ORA-06512: a(z) "SCOTT.ADATFELÜGYELŐ", helyen a(z) 3 sornál ORA-04088: hiba a(z) 'SCOTT.ADATFELÜGYELŐ' trigger futása közben -- 2. Ellenőrzés: -- Az F-a. (Részlegfeltétel) teljesülése mellett -- az F-b1. (Fizetési feltétel, RészlegMunkakör Fizátlag 3/4-e) vizsgálata INSERT INTO dolgozó VALUES(1234,'János1(b1)','SALESMAN',7698,'2005.1211',1049,NULL,30); INSERT INTO dolgozó VALUES(1234,'János2(b1)','SALESMAN',7698,'2005.1211',1050,NULL,30); > A felviendő dolgozó: János1(b1) OK! (A Részlegfeltétel teljesül.) > 3/4 * MunkakörÁtlag = 1050 INSERT INTO dolgozó * Hiba a(z) 1. sorban: ORA-20111: >>HIBA: Az új fizetés kisebb, mint a részlegbeli munkaköri átlag 3/4-e! ORA-06512: a(z) "SCOTT.FIZETÉSFELTÉTEL", helyen a(z) 78 sornál ORA-06512: a(z) "SCOTT.ADATFELÜGYELŐ",

helyen a(z) 4 sornál ORA-04088: hiba a(z) 'SCOTT.ADATFELÜGYELŐ' trigger futása közben > A felviendő dolgozó: János2(b1) OK! (A Részlegfeltétel teljesül.) > 3/4 * MunkakörÁtlag = 1050 OK! (Az új fizetés a részlegbeli munkaköri átlag 3/4-nél több.) János2(b1): OK! 1 sor létrejött. -- 3. Ellenőrzés: -- Az F-a. (Részlegfeltétel) teljesülése mellett -- az F-b2. (Fizetési feltétel, 2/3-ad RészlegÁtlag + 300) NEM-teljesülésének vizsgálata INSERT INTO dolgozó VALUES(1234,'Éva1(b2)','TANULÓ',7698,'2005.1211',1749,NULL,20); INSERT INTO dolgozó VALUES(1234,'Éva2(b2)','TANULÓ',7698,'2005.1211',1750,NULL,20); > A felviendő dolgozó: Éva1(b2) OK! (A Részlegfeltétel teljesül.) #03 PL-SQL Feladatgyűjtemény [06] - 28 - > 2/3 * RészlegÁtlag + 300 = 1750 INSERT INTO dolgozó * Hiba a(z) 1. sorban: ORA-20112: >>HIBA: Az új fizetés kisebb, mint a részlegátlag

300 USD-vel megnövelt értéke! ORA-06512: a(z) "SCOTT.FIZETÉSFELTÉTEL", helyen a(z) 57 sornál ORA-06512: a(z) "SCOTT.ADATFELÜGYELŐ", helyen a(z) 4 sornál ORA-04088: hiba a(z) 'SCOTT.ADATFELÜGYELŐ' trigger futása közben > A felviendő dolgozó: Éva2(b2) OK! (A Részlegfeltétel teljesül.) > 2/3 * RészlegÁtlag + 300 = 1750 OK! (Az új fizetés a részlegátlag 2/3-ánál min. 300 USD-vel több) Éva2(b2): OK! 1 sor létrejött. -- 4. Ellenőrzés: -- Az F-a. (Részlegfeltétel) teljesülése mellett -- az F-b3. (Fizetési feltétel, a részlegben még nincs dolgozó) NEM-teljesülésének vizsgálata INSERT INTO dolgozó VALUES(1234,'Ágnes1(b3)','SALESMAN',7698,'2005.1211',1999,NULL,40); INSERT INTO dolgozó VALUES(1234,'Ágnes2(b3)','SALESMAN',7698,'2005.1211',2000,NULL,40); > A felviendő dolgozó: Ágnes1(b3) OK! (A Részlegfeltétel teljesül.) INSERT INTO dolgozó *

Hiba a(z) 1. sorban: ORA-20113: >>HIBA: Az új fizetés kisebb 2000 USD-nél! ORA-06512: a(z) "SCOTT.FIZETÉSFELTÉTEL", helyen a(z) 27 sornál ORA-06512: a(z) "SCOTT.ADATFELÜGYELŐ", helyen a(z) 4 sornál ORA-04088: hiba a(z) 'SCOTT.ADATFELÜGYELŐ' trigger futása közben > A felviendő dolgozó: Ágnes2(b3) OK! (A Részlegfeltétel teljesül.) OK! (Az új fizetés legalább 2000 USD.) Ágnes2(b3): OK! 1 sor létrejött. 4. lépés feladata 3.5 Utolsó lépésként listázza a dolgozó táblát, majd állítsa vissza az eredeti táblatartalmat 4. lépés feladatának megoldása -- A dolgozó tábla listázása és adatvisszaállítás SELECT * FROM dolgozó; ROLLBACK; SELECT * FROM dolgozó; EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ---------- ---------- --------- ---------- ---------- ---------- ---------- ---------7839 KING PRESIDENT 1981-11-17 5000 10 7698 BLAKE MANAGER 7839 1981-05-01 2850 30 7782 CLARK MANAGER 7839 1981-06-09 2450 10

7566 JONES MANAGER 7839 1981-04-02 2975 20 7654 MARTIN SALESMAN 7698 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30 7844 TURNER SALESMAN 7698 1981-09-08 1500 0 30 7900 JAMES CLERK 7698 1981-12-03 950 30 7521 WARD SALESMAN 7698 1981-02-22 1250 500 30 7902 FORD ANALYST 7566 1981-12-03 3000 20 7369 SMITH CLERK 7902 1980-12-17 800 20 7788 SCOTT ANALYST 7566 1987-04-19 3000 20 7876 ADAMS CLERK 7788 1987-05-23 1100 20 7934 MILLER CLERK 7782 1982-01-23 1300 10 #03 PL-SQL Feladatgyűjtemény [06] - 29 - 1234 János2(b1) SALESMAN 1234 Éva2(b2) TANULÓ 1234 Ágnes2(b3) SALESMAN 7698 2005-12-11 7698 2005-12-11 7698 2005-12-11 1050 1750 2000 30 20 40 17 sor kijelölve. A visszaállítás befejeződött. EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ---------- ---------- --------- ---------- ---------- ---------- ---------- ---------7839 KING PRESIDENT 1981-11-17 5000 10 7698 BLAKE MANAGER 7839 1981-05-01 2850 30 7782 CLARK MANAGER 7839 1981-06-09 2450 10 7566

JONES MANAGER 7839 1981-04-02 2975 20 7654 MARTIN SALESMAN 7698 1981-09-28 1250 1400 30 7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30 7844 TURNER SALESMAN 7698 1981-09-08 1500 0 30 7900 JAMES CLERK 7698 1981-12-03 950 30 7521 WARD SALESMAN 7698 1981-02-22 1250 500 30 7902 FORD ANALYST 7566 1981-12-03 3000 20 7369 SMITH CLERK 7902 1980-12-17 800 20 7788 SCOTT ANALYST 7566 1987-04-19 3000 20 7876 ADAMS CLERK 7788 1987-05-23 1100 20 7934 MILLER CLERK 7782 1982-01-23 1300 10 14 sor kijelölve. #03 PL-SQL Feladatgyűjtemény [06] - 30 - Melléklet Dinamikus SQL Dinamikus SQL PROMPT >>> első példa >>> SET SERVEROUTPUT ON ACCEPT azon PROMPT 'Kérem a keresendő név azonosítóját: ' DECLARE nev VARCHAR2(20); azon NUMBER(4); sqlsztring VARCHAR2(100); BEGIN sqlsztring := 'SELECT ename FROM emp WHERE empno = :1'; EXECUTE IMMEDIATE sqlsztring INTO nev USING &azon; DBMS OUTPUT.PUT LINE('A keresett név: end; / '||nev); SQL> @

aa1 Adja meg a(z) azon értékét: 7788 régi 10: USING &azon; új 10: USING 7788; A keresett név: SCOTT A PL/SQL eljárás sikeresen befejeződött. Interaktív dinamikus sql. A lekérdezést, vagy PL/SQL blokkot szrtingként adjuk meg a végrehajtó blokkban. Hivás az EXECUTE IMMEDIATE és a Select vagy PL/SQL blokk sztringként Amennyiben interaktívan akarjuk használni a dinamikus SQL-t, akkor & -tel hivatkozunk rá. jobb megoldás ha paraméterezetten használjuk. Ekkor a paraméterek sorszámát adjuk meg a SELECT-ben, és a USING záradék után írjuk a paramétert. PROMPT >>>> második példa >>>> ACCEPT azon PROMPT 'Kérem a keresendő rekord azonosítóját: ' DECLARE nev Varchar2(20); azon NUMBER(4); foglalkoz emp.job%type; fizetes emp.sal%TYPE; reszleg emp.deptno%TYPE; sqlsztring VARCHAR2(100); BEGIN sqlsztring := 'SELECT ename, job, sal, deptno '|| 'FROM emp'|| ' WHERE empno = :1'; EXECUTE

IMMEDIATE sqlsztring INTO nev,foglalkoz, fizetes, reszleg USING &azon; #03 PL-SQL Feladatgyűjtemény [06] - 31 - DBMS OUTPUT.PUT LINE (' A keresett ember rekordja: '); DBMS OUTPUT.PUT LINE ('*'); DBMS OUTPUT.PUT LINE (nev ||' '|| foglalkoz ||' '|| fizetes ||' '|| reszleg); end; / SQL> @ aa >>>> második példa >>>> Kérem a keresendő rekord azonosítóját: 7654 régi 14: USING &azon; új 14: USING 7654; A keresett ember rekordja: * MARTIN SALESMAN 1250 30 A PL/SQL eljárás sikeresen befejeződött. #03 PL-SQL Feladatgyűjtemény [06] - 32 - IRODALOM [1] Kende M. – Kotsis D – Nagy I: Adatbázis-kezelés az Oracle-rendszerben, Panem, 2002 [2] Kende M. – Nagy I: Oracle Példatár (SQL, PL/SQL), Panem, 2005 #03 PL-SQL Feladatgyűjtemény [06] - 33 -