END;
MEMBER PROCEDURE get_zipcode_info
(out_zip OUT varchar2,out_city OUT VARCHAR2)
IS
BEGIN
out_zip := SELF.zip;
out_city :=SELF.city;
END;
STATIC PROCEDURE display_zipcode_info
(in_zip_obj IN ZIPCODE_OBJ_TYPE)
IS
BEGIN
DBMS_OUTPUT.PUT_LINE('ZIP: '||in_zip_obj.zip);
END;
MAP MEMBER FUNCTION zipcode RETURN VARCHAR2
IS
BEGIN
RETURN (zip)
END;
ORDER MEMBER FUNCTION zipcode1(zip_obj ZIPCODE_OBJ_TYPE) RETURN INTEGER
IS
BEGIN
IF zip
ELSIF zip>zip_obj.zip THEN RETURN 1;
END IF;
END;
END;
/
另： i>.调用 MAP MEMBER FUNCTION zipcode的方式为：IF v_zip_obj1 >v_zip_obj2 THEN ... END IF;
ii>.调用 ORDER MEMBER FUNCTION zipcode1的方式为 v_result :=v_zip_obj1.zipcode1(v_zip_obj2);
摘自：ON_LOAD_1988的专栏