Bonjour j'ai ecrit une procedure qui ne m'affiche pas les elements de la table

Ni sous SQL Plus ni qd j'execute sous toad avec l'option output
quelqu'un peut me dire pourquoi cela ne marche pas.



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CREATE OR REPLACE PROCEDURE Displaychaine AS
 
Begin
 -- collection de type VARRAY
  TYPE TYP_VAR_TAB is VARRAY(30) of varchar2(100) ;
   TabChaine TYP_VAR_TAB := TYP_VAR_TAB('TOT','MAD','POP','BAD','MAN','COMBS','BEBA','PALA');
 
    Begin
     DBMS_output.enable;
      for i in 1..8 loop
 	 DBMS_output.put_line( TabChaine (i));		 
      end loop ;
     DBMS_output.disable;
    End;
   /