Colecţii

1. Vector: cu valori pentru indice între 1 şi o valoare maximă precizată la definire
2. Tabel indexat: cu valori posibile pentru indice între: -(2³¹-1) şi (2³¹-1), deci indicele este un întreg reprezentat pe 4 octeţi
3. Tabel: cu valori pentru indice: 1, 2, .... Este asemănător cu un tabel memorat în baza de date unde dimensiunea superioară poate creşte (nu e fixată)

1. Definirea unui tip de dată colecţie:
   
   1. Vector:
      

      TYPE nume IS {VARRAY | VARYING ARRAY} (dimensiune) OF tip_element [NOT NULL]

   2. Tabel indexat:
      

      TYPE nume IS TABLE OF tip_element [NOT NULL] INDEX BY BINARY_INTEGER

   3. Tabel:
      

      TYPE nume IS TABLE OF tip_element

2. Declararea unei variabile de un tip de dată astfel definit
   

   nume_variabila nume_tip [:=valoare];

3. Pentru un vector sau tabel este necesară utilizarea unui constructor pentru iniţializare. Constructorul coincide cu numele colecţiei, iar ca argumente se pot folosi valori ale componentelor:
   

   variabila:=nume_colectie([lista_de_valori)];

   Cu argumente la constructor se completează primele poziţii din colecţie.
   Iniţializarea se poate face la declararea variabilei, sau mai târziu printr-o instrucţiune de atribuire.
   Pentru un tabel indexat se pot adăuga valori prin atribuire, pe orice poziţie (se poate ca poziţiile să nu fie consecutive).

• un scalar (char, number, ...)
• tipul unei variabile definită anterior: variabila%TYPE
• tipul unei coloane dintr-un tabel existent: [schema.]tabel.coloana%TYPE
• tipul liniilor unui tabel sau cursor: [schema.]tabel%ROWTYPE
• o înregistrare
• un obiect
• un tip colecţie

• count - pentru a determina numărul de elemente din colecţie
• exists(n) - dă valoarea true dacă pe poziţia n din colecţie există o valoare, şi false în caz contrar
• first, last - furnizează prima, respectiv ultima poziţie folosită în colecţie.
• prior(n), next(n) - dau indexul din faţa, respectiv care urmează, celui precizat în argument. Aceste metode se pot folosi pentru parcurgerea colecţiilor.
• extend - pentru a extinde o colecţie vector sau tabel, care este deja initializată. Există trei variante de folosire:
  • extend - adaugă un element cu valoarea null (se poate efectua dacă la declarare nu s-a folosit restricţia not null)
  • extend(n) - care adaugă n elemente cu valoarea null
  • extend(n,i) care adaugă n elemente cu valoarea elementului de pe poziţia i
  Obs. Extinderea celor două tipuri de colecţie se face după ultimul element existent.
  Obs. La o colecţie tabel indexat se pot adăuga elemente pe o poziţie printr-o instrucţiune de atribuire pe poziţia respectivă.
• trim - pentru a elimina elemente de la sfârşitul colecţiilor de tip vector şi tabel. Formele de utilizare:
  
  • trim - elimină ultimul element
  • trim(n) - elimină ultimele n elemente din colecţie
• delete - şterge elemente dintr-o colecţie tabel indexat. Formele de utilizare:
  
  • delete - şterge toate elementele din colecţie
  • delete(n) - şterge elementul de pe poziţia n
  • delete(m,n) - şterge toate elementele de la poziţia m la poziţia n

set serveroutput on

declare
  type t1 is table of char(3);
  type t2 is varray(10) of number;
  type t3 is table of number index by binary_integer;
  type student is record (nume varchar2(30), sectia char(10));
  type t4 is table of student;
  c1 t1:=t1('1','2','3','4');
  c2 t2:=t2(); 
  c3 t3;
  studs t4:=t4();
  s studenti%rowtype;
  i integer:=0;
  cursor cstudenti is select * from studenti;
begin
  dbms_output.enable;
  dbms_output.put_line(to_char(c1.count));  -- da valoarea 4
  c1:=t1('x');  -- se face o noua initializare pentru c1
  dbms_output.put_line(to_char(c1.count));  -- da valoarea 1
  dbms_output.put_line(to_char(c2.count));  -- da valoarea 0
  c3(5):=5; c3(9):=9;
  dbms_output.put_line(to_char(c3.count));  -- da valoarea 2
  dbms_output.put_line(to_char(c1.first) || '..' || to_char(c1.last));  -- da valoarea 1..1
  dbms_output.put_line(to_char(c3.first) || '..' || to_char(c3.last));  -- da valoarea 5..9
  --for s in (select * from studenti) loop
  for s in cstudenti loop
    studs.extend;
    i:=i+1;
    studs(i).nume:=substr(trim(s.nume) || ' ' || trim(s.prenume),30);
    studs(i).sectia:=s.sectia;
  end loop;
  dbms_output.put_line(to_char(studs.count));
end;

drop table temp;
create table temp(Nume varchar2(50),sectia number,cnp char(13));

declare 
  cursor cs is select nume,prenume,sectia,cnp from studenti where sectia in (1,2,3,11,22,43,44) ;
  type ts is table of cs%rowtype index by binary_integer;
  i integer;
  n integer:=0;
  n1 integer;
  t ts;
  st cs%rowtype;
  np varchar2(60);
begin
  -- memorarea studentilor
  for st in cs loop
    n:=n+1;
    t(n):=st;
  end loop;
  --n=nr.de elemente din colectie
  for i in 1..n loop
    n1:=i+11; 
    if n1>n then n1:=n1-n; end if;
    --np:=substr(trim(t(i).nume) || ' ' || t(n1).prenume || '                                                           ', 1,50);
    np:=substr(trim(t(i).nume) || ' ' || t(n1).prenume || RPAD(' ',50,' '),1,50);
    insert into temp(nume,sectia,cnp) values(np,t(i).sectia,t(n1).cnp);
  end loop;
end;
/
SELECT * FROM temp order by nume;
DROP TABLE temp;