Discussion :

[HRS]

pour optimiser un traitement, je veux charger une petite table (TC_0360)
de 2 colonnes en mémoire. je déclare donc une table de record.

c'est dans la boucle for de chargement que j'ai une erreur de compile

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
declare
 
type L0360 is record (
    DMF_NAT TC_0360.DMF_NAT%TYPE,
    DMF_LIB TC_0360.DMF_LIB%TYPE
    );
type TL0360 IS TABLE OF L0360 INDEX by binary_integer;
WTL0360 TL0360;
CURSOR C0360 IS SELECT DMF_NAT, DMF_LIB FROM TC_0360;    
begin
 
for IC0360 in C0360 LOOP
   WTL0360(IC0360).DMF_NAT := IC0360.DMF_NAT;
   WTL0360(IC0360).DMF_LIB := IC0360.DMF_LIB;
END LOOP;

[HRS]

j'ai confondu l'indice curseur et l'indice de la table interne

ce qui suit semble fonctionner

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
declare
 
CURSOR CURSEUR_0360 IS SELECT DMF_NAT, DMF_LIB FROM TC_0360; 
type TL0360 IS TABLE OF CURSEUR_0360%ROWTYPE INDEX by binary_integer;
 
WTL0360 TL0360;
 
MAX_0360 binary_integer := 0;
 
begin
 
for ic in CURSEUR_0360 loop
  MAX_0360:= MAX_0360+1;
  wTL0360(MAX_0360) := ic; 
end loop;

[xdescamp]

Tu a tout intérêt à utiliser BULK COLLECT pour remplir en une seule fois ton tableau :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
declare
 
CURSOR CURSEUR_0360 IS SELECT DMF_NAT, DMF_LIB FROM TC_0360; 
type TL0360 IS TABLE OF CURSEUR_0360%ROWTYPE INDEX BY binary_integer;
 
WTL0360 TL0360;
 
begin
 
OPEN CURSEUR_0360;
FETCH CURSEUR_0360 BULK COLLECT INTO WTL0360;
CLOSE CURSEUR_0360;