y_pos NUMBER, radius NUMBER, MEMBER FUNCTION area RETURN NUMBER) ;
CREATE OR REPLACE TYPE BODY circle
MEMBER FUNCTION area RETURN NUMBER IS
BEGIN
return(3.1417*radius*radius) ;
END; END; /
DECLARE
my_circle CIRCLE;
area     NUMBER;
radius    NUMBER; BEGIN;
my_circle := circle (2,3,4);
area      := my_circle.area; --   -
radius    := my__circle. radius; --     DBMS_OUTPUT.PUT_LINE ( 'A circle of radius '
I I to_char(radius) I I 'has an area of '
I | to_char(area)) ; END; /
 
  (object views)   ,  -         ,        .      ,       ,       ,     .      - ,        ,         ( C++)    (OCI).    ,   Oracle     , Object Type Translator (),       C+ + ,    .       5.
20
Oracle. 8