[9i] Collection à 3 dimensions

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
SQL> set serveroutput on
SQL> DECLARE
  2    TYPE t1 IS TABLE OF PLS_INTEGER INDEX BY BINARY_INTEGER ;
  3    TYPE t2 IS TABLE OF t1 INDEX BY BINARY_INTEGER ;
  4    TYPE t3 IS TABLE OF t2 INDEX BY BINARY_INTEGER ;
  5    mtab  t3 ;
  6  BEGIN
  7    FOR i IN 1..3 LOOP
  8      FOR j IN 1..3 LOOP
  9      FOR k IN 1..3 LOOP
 10        mtab(i)(j)(k) := i+j+k ;
 11     dbms_output.put_line( 'mtab('||i||')('||j||')('||k||')= ' || mtab(i)(j)(k)); 
 12      END LOOP ;
 13   END LOOP ;
 14    END LOOP ;
 15  END;
 16  
 17  /
mtab(1)(1)(1)= 3
mtab(1)(1)(2)= 4
mtab(1)(1)(3)= 5
mtab(1)(2)(1)= 4
mtab(1)(2)(2)= 5
mtab(1)(2)(3)= 6
mtab(1)(3)(1)= 5
mtab(1)(3)(2)= 6
mtab(1)(3)(3)= 7
mtab(2)(1)(1)= 4
mtab(2)(1)(2)= 5
mtab(2)(1)(3)= 6
mtab(2)(2)(1)= 5
mtab(2)(2)(2)= 6
mtab(2)(2)(3)= 7
mtab(2)(3)(1)= 6
mtab(2)(3)(2)= 7
mtab(2)(3)(3)= 8
mtab(3)(1)(1)= 5
mtab(3)(1)(2)= 6
mtab(3)(1)(3)= 7
mtab(3)(2)(1)= 6
mtab(3)(2)(2)= 7
mtab(3)(2)(3)= 8
mtab(3)(3)(1)= 7
mtab(3)(3)(2)= 8
mtab(3)(3)(3)= 9
 
Procédure PL/SQL terminée avec succès.