Advertisement
Guest User

Untitled

a guest
May 21st, 2018
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 2.06 KB | None | 0 0
  1. CREATE OR REPLACE PACKAGE Pcg_Conversion AS
  2.   PROCEDURE convertStudenci;
  3.   PROCEDURE convertEgzaminatorzy;
  4.   PROCEDURE convertPrzedmioty;
  5.   PROCEDURE convertOsrodki;
  6.   END Pcg_Conversion;
  7.  
  8.   CREATE OR REPLACE PACKAGE BODY Pcg_Conversion AS
  9.     PROCEDURE convertStudenci IS
  10.       CURSOR daneStudentow IS SELECT NAZWISKO, IMIE, MIEJSCE, MIASTO, ULICA FROM STUDENCI FOR UPDATE;
  11.       BEGIN
  12.         FOR student IN daneStudentow LOOP
  13.           UPDATE STUDENCI SET NAZWISKO=INITCAP(student.NAZWISKO), IMIE=INITCAP(student.IMIE), MIEJSCE=INITCAP(student.MIEJSCE),
  14.             MIASTO=INITCAP(student.MIASTO), ULICA=INITCAP(student.ULICA) WHERE CURRENT OF daneStudentow;
  15.         END LOOP;
  16.       END;
  17.  
  18.     PROCEDURE convertEgzaminatorzy IS
  19.       CURSOR daneEgzaminatorow IS SELECT NAZWISKO, IMIE, MIASTO, ULICA, E_MAIL FROM EGZAMINATORZY FOR UPDATE ;
  20.       BEGIN
  21.         FOR egzaminator IN daneEgzaminatorow LOOP
  22.           UPDATE EGZAMINATORZY SET NAZWISKO=INITCAP(egzaminator.NAZWISKO), IMIE=INITCAP(egzaminator.IMIE),
  23.             MIASTO=INITCAP(egzaminator.MIASTO), ULICA=INITCAP(egzaminator.ULICA), E_MAIL=LOWER(egzaminator.E_MAIL)
  24.           WHERE CURRENT OF daneEgzaminatorow;
  25.         END LOOP;
  26.       END;
  27.  
  28.     PROCEDURE convertPrzedmioty IS
  29.       CURSOR danePrzedmiotow IS SELECT Nazwa_P FROM PRZEDMIOTY FOR UPDATE ;
  30.       BEGIN
  31.         FOR przedmiot IN danePrzedmiotow LOOP
  32.           UPDATE PRZEDMIOTY SET NAZWA_P=INITCAP(przedmiot.NAZWA_P) WHERE CURRENT OF danePrzedmiotow;
  33.         END LOOP;
  34.       END;
  35.  
  36.     PROCEDURE convertOsrodki IS
  37.       CURSOR daneOsrodkow IS SELECT NAZWA_O, MIASTO, ULICA FROM OSRODKI FOR UPDATE ;
  38.       BEGIN
  39.         FOR osrodek IN daneOsrodkow LOOP
  40.           UPDATE OSRODKI SET NAZWA_O=INITCAP(osrodek.NAZWA_O), MIASTO=INITCAP(osrodek.MIASTO), ULICA=INITCAP(osrodek.ULICA)
  41.           WHERE CURRENT OF daneOsrodkow;
  42.         END LOOP;
  43.       END;
  44.     END Pcg_Conversion;
  45.  
  46.   BEGIN
  47.     Pcg_Conversion.convertEgzaminatorzy();
  48.     Pcg_Conversion.convertStudenci();
  49.     Pcg_Conversion.convertOsrodki();
  50.     Pcg_Conversion.convertPrzedmioty();
  51.   END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement