Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CREATE OR REPLACE PACKAGE Pcg_Conversion AS
- PROCEDURE convertStudenci;
- PROCEDURE convertEgzaminatorzy;
- PROCEDURE convertPrzedmioty;
- PROCEDURE convertOsrodki;
- END Pcg_Conversion;
- CREATE OR REPLACE PACKAGE BODY Pcg_Conversion AS
- PROCEDURE convertStudenci IS
- CURSOR daneStudentow IS SELECT NAZWISKO, IMIE, MIEJSCE, MIASTO, ULICA FROM STUDENCI FOR UPDATE;
- BEGIN
- FOR student IN daneStudentow LOOP
- UPDATE STUDENCI SET NAZWISKO=INITCAP(student.NAZWISKO), IMIE=INITCAP(student.IMIE), MIEJSCE=INITCAP(student.MIEJSCE),
- MIASTO=INITCAP(student.MIASTO), ULICA=INITCAP(student.ULICA) WHERE CURRENT OF daneStudentow;
- END LOOP;
- END;
- PROCEDURE convertEgzaminatorzy IS
- CURSOR daneEgzaminatorow IS SELECT NAZWISKO, IMIE, MIASTO, ULICA, E_MAIL FROM EGZAMINATORZY FOR UPDATE ;
- BEGIN
- FOR egzaminator IN daneEgzaminatorow LOOP
- UPDATE EGZAMINATORZY SET NAZWISKO=INITCAP(egzaminator.NAZWISKO), IMIE=INITCAP(egzaminator.IMIE),
- MIASTO=INITCAP(egzaminator.MIASTO), ULICA=INITCAP(egzaminator.ULICA), E_MAIL=LOWER(egzaminator.E_MAIL)
- WHERE CURRENT OF daneEgzaminatorow;
- END LOOP;
- END;
- PROCEDURE convertPrzedmioty IS
- CURSOR danePrzedmiotow IS SELECT Nazwa_P FROM PRZEDMIOTY FOR UPDATE ;
- BEGIN
- FOR przedmiot IN danePrzedmiotow LOOP
- UPDATE PRZEDMIOTY SET NAZWA_P=INITCAP(przedmiot.NAZWA_P) WHERE CURRENT OF danePrzedmiotow;
- END LOOP;
- END;
- PROCEDURE convertOsrodki IS
- CURSOR daneOsrodkow IS SELECT NAZWA_O, MIASTO, ULICA FROM OSRODKI FOR UPDATE ;
- BEGIN
- FOR osrodek IN daneOsrodkow LOOP
- UPDATE OSRODKI SET NAZWA_O=INITCAP(osrodek.NAZWA_O), MIASTO=INITCAP(osrodek.MIASTO), ULICA=INITCAP(osrodek.ULICA)
- WHERE CURRENT OF daneOsrodkow;
- END LOOP;
- END;
- END Pcg_Conversion;
- BEGIN
- Pcg_Conversion.convertEgzaminatorzy();
- Pcg_Conversion.convertStudenci();
- Pcg_Conversion.convertOsrodki();
- Pcg_Conversion.convertPrzedmioty();
- END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement