Mega Code Archive

 

Categories / Oracle PLSQL Tutorial / Collections

 

Compare two tables of integers

SQL> SQL> DECLARE   2     TYPE nested_tab_t IS TABLE OF INTEGER;   3   4     tab_1   nested_tab_t := nested_tab_t (1, 2, 3, 4, 5, 6, 7);   5     tab_2   nested_tab_t := nested_tab_t (7, 6, 5, 4, 3, 2, 1);   6   7     PROCEDURE tabs_equal (i_tab_1 IN nested_tab_t, i_tab_2 IN nested_tab_t)   8     IS   9        v_equal   BOOLEAN := i_tab_1 = i_tab_2;  10     BEGIN  11        IF v_equal IS NULL  12        THEN  13           DBMS_OUTPUT.put_line ('null');  14        ELSIF v_equal  15        THEN  16           DBMS_OUTPUT.put_line ('equal');  17        ELSE  18           DBMS_OUTPUT.put_line ('not equal');  19        END IF;  20     END tabs_equal;  21  BEGIN  22     tabs_equal (tab_1, tab_2);  23     tab_1.EXTEND (1);  24     tabs_equal (tab_1, tab_2);  25     tab_2.EXTEND (1);  26     tabs_equal (tab_1, tab_2);  27  END;  28  / PL/SQL procedure successfully completed. SQL>