Oracle 21c

By using db<>fiddle, you agree to license everything you submit by Creative Commons CC0.

CREATE TYPE test IS OBJECT(
  a  NUMBER,
  pi NUMBER,
  
  CONSTRUCTOR FUNCTION test(
    SELF IN OUT NOCOPY test,
    a NUMBER
  ) RETURN SELF AS RESULT
);
CREATE TYPE BODY test IS
  CONSTRUCTOR FUNCTION test(
    SELF IN OUT NOCOPY test,
    a NUMBER
  ) RETURN SELF AS RESULT
  IS
  BEGIN
    SELF.a  := a;
    SELF.pi := 3.14159;
    RETURN;
  END;
END;
/
SELECT * FROM USER_ERRORS;
SELECT test(1).a, test(1).pi
FROM   DUAL;


TEST(1).A
TEST(1).PI


1
3.14159


DECLARE
  v_obj TEST := TEST(1);
BEGIN
  v_obj.pi := 4;
  DBMS_OUTPUT.PUT_LINE( v_obj.a || ', ' || v_obj.pi );
END;
/
1 rows affected

dbms_output:
1, 4