DECLARE TYPE TAB_NODE IS TABLE OF BSS_Node.Nod_Key%TYPE INDEX BY BINARY_INTEGER; TYPE TAB_TYPE_NODE IS TABLE OF BSS_Node.Nod_Typ_Key%TYPE INDEX BY BINARY_INTEGER; TabZone        TAB_NODE; TabZoneTyp    TAB_TYPE_NODE; BEGIN DELETE &3 WHERE Nod_Key IN ( SELECT Nod_Key FROM ( SELECT Nod_Key, COUNT(Nod_Key) FROM &3 GROUP BY Nod_Key HAVING COUNT(Nod_Key) > 1 ) ) RETURNING Nod_Key, Nod_Typ_Key BULK COLLECT INTO [...]

PROCEDURE lancer IS L_FunctionException    EXCEPTION; TYPE myArray IS TABLE OF BDE_RNC.Nod_Key%TYPE; l_data myarray; CURSOR Noeuds IS SELECT Nod_Key FROM BDE_RNC; BEGIN OPEN Noeuds; LOOP — Recherche des hiérarchies — FETCH Noeuds BULK COLLECT INTO l_data LIMIT 100; FORALL i IN 1..l_data.COUNT UPDATE BDE_RNC SET NIDTSGSN = ( SELECT WT_SGSN.Nod_NIDT FROM WT_SGSN , ( SELECT BSS_Arc.Nod_Upper_Key [...]