Helper Procedure to Display Booleans

CREATE OR REPLACE PROCEDURE bpl (val IN BOOLEAN)
IS
BEGIN
   DBMS_OUTPUT.put_line (
      CASE val
         WHEN TRUE THEN 'TRUE'
         WHEN FALSE THEN 'FALSE'
         ELSE 'NULL'
      END);
END bpl;
/

Define Three Level Nested Collection for 3D Array

CREATE OR REPLACE PACKAGE multdim AUTHID DEFINER 
IS 
   -- In other languages: l_space array (3, 5, 100); 
    
   TYPE dim1_t IS TABLE OF VARCHAR2 (32767) INDEX BY PLS_INTEGER; 
 
   TYPE dim2_t IS TABLE OF dim1_t INDEX BY PLS_INTEGER; 
 
   TYPE dim3_t IS TABLE OF dim2_t INDEX BY PLS_INTEGER; 
 
   PROCEDURE setcell ( 
      array_in   IN OUT   dim3_t 
     ,dim1_in             PLS_INTEGER 
     ,dim2_in             PLS_INTEGER 
     ,dim3_in             PLS_INTEGER 
     ,value_in   IN       VARCHAR2 
   ); 
 
   FUNCTION getcell ( 
      array_in   IN   dim3_t 
     ,dim1_in         PLS_INTEGER 
     ,dim2_in         PLS_INTEGER 
     ,dim3_in         PLS_INTEGER 
   ) 
      RETURN VARCHAR2; 
 
   FUNCTION EXISTS ( 
      array_in   IN   dim3_t 
     ,dim1_in         PLS_INTEGER 
     ,dim2_in         PLS_INTEGER 
     ,dim3_in         PLS_INTEGER 
   ) 
      RETURN BOOLEAN; 
END multdim; 

Hide the Details

CREATE OR REPLACE PACKAGE BODY multdim 
IS 
   PROCEDURE setcell ( 
      array_in   IN OUT   dim3_t 
     ,dim1_in             PLS_INTEGER 
     ,dim2_in             PLS_INTEGER 
     ,dim3_in             PLS_INTEGER 
     ,value_in   IN       VARCHAR2 
   ) 
   IS 
   BEGIN 
      -- Typical syntax: array_in (dim1_in, dim2_in, dim3_in) := value_in;       
       
      array_in (dim3_in) (dim2_in) (dim1_in) := value_in; 
       
      -- Or is it? array_in (dim1_in) (dim2_in) (dim3_in) := value_in; 
   END; 
 
   FUNCTION getcell ( 
      array_in   IN   dim3_t 
     ,dim1_in         PLS_INTEGER 
     ,dim2_in         PLS_INTEGER 
     ,dim3_in         PLS_INTEGER 
   ) 
      RETURN VARCHAR2 
   IS 
   BEGIN 
      RETURN array_in (dim3_in) (dim2_in) (dim1_in); 
   END; 
 
   FUNCTION EXISTS ( 
      array_in   IN   dim3_t 
     ,dim1_in         PLS_INTEGER 
     ,dim2_in         PLS_INTEGER 
     ,dim3_in         PLS_INTEGER 
   ) 
      RETURN BOOLEAN 
   IS 
      l_value   VARCHAR2 (32767); 
   BEGIN 
       -- 11/2002 Manchester 
       -- The value doesn't matter; what matters is whether 
       -- this combination exists or not. 
      -- 
      -- 02/2003 NWOUG Seattle 
      -- Note: EXISTS method only applies to a single 
      --       collection at a time. 
 
      /* 
      IF array_in(dim3_in )(dim2_in )(dim1_in) IS NOT NULL 
       THEN 
         RETURN TRUE; 
       ELSE 
         RETURN TRUE; 
       END IF; 
       */ 
 
      -- Disney World approach 4/2003 
      l_value := array_in (dim3_in) (dim2_in) (dim1_in); 
      RETURN TRUE; 
   EXCEPTION 
      WHEN NO_DATA_FOUND OR VALUE_ERROR 
      THEN 
         RETURN FALSE; 
   END; 
END multdim; 

Exercise the Package

DECLARE
   my_3d_array   multdim.dim3_t;
BEGIN
   multdim.setcell (my_3d_array, 1, 5, 800, 'def');
   multdim.setcell (my_3d_array, 1, 15, 800, 'def');
   multdim.setcell (my_3d_array, 5, 5, 800, 'def');
   multdim.setcell (my_3d_array, 5, 5, 805, 'def');
   
   DBMS_OUTPUT.PUT_LINE (multdim.getcell (my_3d_array, 1, 5, 800));
   bpl (multdim.EXISTS (my_3d_array, 1, 5, 800));
   bpl (multdim.EXISTS (my_3d_array, 6000, 5, 800));
   bpl (multdim.EXISTS (my_3d_array, 6000, 5, 807));
   
   DBMS_OUTPUT.PUT_LINE (my_3d_array.COUNT);
END;
/