array bloque

/* *** 001 create_varray1*** */

SET SERVEROUTPUT ON

DECLARE
  TYPE integer_varray IS VARRAY(3) OF INTEGER;
  
  l_array_integer INTEGER_VARRAY := integer_varray(NULL, NULL, NULL);


BEGIN
  DBMS_OUTPUT.PUT_LINE('Varray initialized as nulls');
  DBMS_OUTPUT.PUT_LINE('===========================');
  
  FOR I IN 1 .. 3 LOOP
    
    DBMS_OUTPUT.PUT_LINE('Integer Varray [' || I || '] [' || l_array_integer(I) || ']');
      
  END LOOP;


  l_array_integer(1) := 11;
  l_array_integer(2) := 12;
  l_array_integer(3) := 13;
  
  DBMS_OUTPUT.PUT(CHR(10));
  DBMS_OUTPUT.PUT_LINE('Varray initialized as values.');
  DBMS_OUTPUT.PUT_LINE('-----------------------------');
  
FOR I IN 1 .. 3 LOOP
    DBMS_OUTPUT.PUT_LINE('Integer Varray [' || I || '] ' || '[' || l_array_integer(I) || ']');
  END LOOP;
  

END;
/