DROP PROCEDURE test_types3

DROP TYPE type15_subtype

DROP TYPE type15_basetype

Enable the Deprecation Warnings

ALTER SESSION SET PLSQL_WARNINGS='ENABLE:(6019,6020,6021,6022)'

CREATE OR REPLACE TYPE type15_basetype AS OBJECT 
( 
  x1 NUMBER, 
  x  NUMBER, 
  PRAGMA DEPRECATE (x), 
  MEMBER PROCEDURE f0 , 
  PRAGMA DEPRECATE (f0), 
  MEMBER PROCEDURE f1 , 
  PRAGMA DEPRECATE (f1), 
  MEMBER PROCEDURE f2 , 
  PRAGMA DEPRECATE (f2), 
  MEMBER PROCEDURE f3 ) NOT FINAL;

CREATE OR REPLACE TYPE BODY type15_basetype AS  
MEMBER PROCEDURE f0  
IS  
BEGIN  
  x := 1;  
END;  
MEMBER PROCEDURE f1  
IS  
BEGIN  
  x := 1;  
END;  
MEMBER PROCEDURE f2  
IS  
BEGIN  
  x := 1;  
END;  
MEMBER PROCEDURE f3  
IS  
BEGIN  
  x := 1;  
END;  
END;

CREATE OR REPLACE TYPE type15_subtype UNDER type15_basetype (  
  y NUMBER ,  
  MEMBER PROCEDURE f1(z NUMBER),  
  MEMBER PROCEDURE f1(z NUMBER , m1 NUMBER),  
  PRAGMA DEPRECATE(f1),  
  OVERRIDING MEMBER PROCEDURE f2  
); 

CREATE TYPE BODY type15_subtype AS 
   MEMBER PROCEDURE f1(z NUMBER) 
IS 
BEGIN 
  -- deprecation attribute inherited in derived type.  
  x := 1; 
  x1:= 2; 
  SELF.f0; 
END; 
MEMBER PROCEDURE f1(z  NUMBER , 
                    m1 NUMBER) 
IS 
BEGIN 
  NULL; 
END; 
OVERRIDING MEMBER PROCEDURE f2 
IS 
BEGIN 
  /* refer to deprecated f2 in super type */ 
  (SELF AS type15_basetype).f2; 
  /* No warning for a reference to a not deprecated data member in the supertype */ 
  x1 := 1; 
END; 
END;

CREATE OR REPLACE PROCEDURE test_types3  
AS  
  e type15_subtype ;  
  d type15_basetype ;  
BEGIN  
  e := type15_subtype (1 ,1 ,1);  
  d := type15_basetype (1, 1);  
  d.x := 2; -- warning issued  
  d.f1;     -- warning issued  
  e.f1 (4); -- overloaded in derived type. no warning. not deprecated in the derived type.  
  e.f1 (1); -- no warning   
  e.f0;     -- f0 is deprecated in base type. deprecation is inherited. warning issued  
            -- warning issued for deprecated x in d.x and e.x  
 
  DBMS_OUTPUT.PUT_LINE(to_char(e.x) || to_char(' ') || to_char(d.x));  
 
END;

SELECT * FROM USER_ERRORS