4.7 Utilisation des tables

Ex : DECLARE

     TYPE T_nom IS TABLE OF personnel.nom%TYPE
          INDEX BY BINARY_INTEGER;
     v_nom      T_nom;
     i          BINARY_INTEGER := 0;

    BEGIN
     FOR r_emp IN ( SELECT nom, trtmnt FROM personnel ORDER BY trtmnt )
     LOOP
         i := i+ 1;
         v_nom ( i ) := r_emp.nom;
     END LOOP;
     proc_trtmnt ( v_nom );
    END.