Laborator 5. Colectii de date PL/SQL In multe limbaje de ...

Anca Ion, Proiectarea Bazelor de Date, 2010
DECLARE
TYPE sum_multiples IS TABLE OF PLS_INTEGER INDEX BY PLS_INTEGER;
n PLS_INTEGER := 5;
sn PLS_INTEGER := 10;
m PLS_INTEGER := 3;
BEGIN
DBMS_OUTPUT.PUT_LINE('Suma primelor ' || TO_CHAR(n) || ' inmultite cu ' ||
TO_CHAR(m) || ' este ' || TO_CHAR(get_sum_multiples (m, sn)));
END;
--creati functia
FUNCTION get_sum_multiples(multiple IN PLS_INTEGER, num IN PLS_INTEGER)
RETURN sum_multiples IS
s sum_multiples;
BEGIN
FOR i IN 1..num LOOP
s(i) := multiple * ((i * (i + 1)) / 2) ;
END LOOP;
RETURN s;
END get_sum_multiples;
o Atribuirea de elemente unei colectii
colectie1(index) := colectie2;
unde colectie2 este o alta colectie cu acelasi tip cu elementele ca si colectie1.
Se pot folosi si operatorii pentru atribuiri de colectii: SET, MULTISET UNION,
MULTISET INTERSECT si MULTISET EXCEPT.
Exemplu: compatibilitate de tip la atribuirea colectiilor
DECLARE
TYPE last_name_typ IS VARRAY(3) OF VARCHAR2(64);
TYPE surname_typ IS VARRAY(3) OF VARCHAR2(64);
-- aceste 2 var au acelasi tip de data.
group1 last_name_typ := last_name_typ('Jones','Wong','Marceau');
group2 last_name_typ := last_name_typ('Klein','Patsos','Singh');
-- a 3-a var are o declaratie asemanatoare dar n uare acelasi tip
group3 surname_typ := surname_typ('Trevisi','Macleod','Marquez');
BEGIN
group1 := group2;
--group3 := group2; -- se genereaza o eroare
END;
Exemplu: atribuirea tabelelor grupate folosind operatorii SET, MULTISET
UNION, MULTISET INTERSECT si MULTISET EXCEPT
DECLARE
TYPE nested_typ IS TABLE OF NUMBER;
nt1 nested_typ := nested_typ(1,2,3);
nt2 nested_typ := nested_typ(3,2,1);
nt3 nested_typ := nested_typ(2,3,1,3);