CREATE TYPE Customer_typ AS OBJECT
(
	id NUMBER,
	name VARCHAR2(20), 
  	addr VARCHAR2(30),
	ORDER MEMBER FUNCTION match (c Customer_typ) RETURN INTEGER
);
CREATE TYPE BODY Customer_typ AS
ORDER MEMBER FUNCTION match (c Customer_typ) RETURN INTEGER IS
BEGIN
	IF id < c.id THEN RETURN -1; -- any num <0 
	ELSIF id > c.id THEN RETURN 1; -- any num >0
	ELSE RETURN 0;
	END IF;
END;
END;