Zasięg zmiennych i bloki anonimowe w procedurach

Przykład wszystko tłumaczy...

CREATE OR REPLACE PROCEDURE PDB_Test IS

   vn_I  PLS_INTEGER := 0;

BEGIN

   vn_I := 1;

   <<JUMP_OUT>>

   DECLARE

      vn_I PLS_INTEGER;

   BEGIN

       vn_I := 2;

       <<JUMP_IN>>

       DECLARE

        vn_I PLS_INTEGER;

       BEGIN

         vn_I := 3;

        dbms_output.put_line('vn_I=' || vn_I);

        dbms_output.put_line('JUMP_OUT.vn_I=' || JUMP_OUT.vn_I);

        dbms_output.put_line('JUMP_OUT.JUMP_IN.vn_I=' ||    JUMP_OUT.JUMP_IN.vn_I);

        dbms_output.put_line('PDB_Test.vn_I=' || PDB_Test.vn_I);

      END JUMP_IN;

   END JUMP_OUT;

END ;