Chargement d'une table en mémoire

Version imprimable

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:

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;

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

ce qui suit semble fonctionner

Code:

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;

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

Code:

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;