一,例子
1.创建type父类
CREATE OR REPLACE TYPE CUSTOMER_T AS OBJECT
(
CUSTOMER_ID NUMBER(18)
)
NOT INSTANTIABLE NOT FINAL
2.创建子类
CREATE OR REPLACE TYPE CUSTOMER_INFO_T UNDER CUSTOMER_T(CUSTOMER_AGE VARCHAR2(100),
constructor function CUSTOMER_INFO_T(customer_id number,customer_age VARCHAR2) return self as result
)
3.创建body
CREATE OR REPLACE TYPE BODY CUSTOMER_INFO_T AS
CONSTRUCTOR FUNCTION CUSTOMER_INFO_T(CUSTOMER_ID NUMBER,
CUSTOMER_AGE VARCHAR2)
RETURN SELF AS RESULT IS
BEGIN
SELF.CUSTOMER_ID := CUSTOMER_ID;
SELF.CUSTOMER_AGE := CUSTOMER_AGE;
RETURN;
END CUSTOMER_INFO_T;
END;
4.创建测试procedure
CREATE OR REPLACE PROCEDURE GET_CUSTOMER(P_CUS