Rem run.sql
set echo on
connect &1/&2
set serveroutput on;

select pt.p.jdistance(point(0, 0)) from point_table pt;

declare
  p1 point;
  p2 point;
begin 
  p1 := point (3, 4);
  p2 := point (10, 10);
  p1.moveby (p2);
  dbms_output.put_line ('p1 has been moved to: ' || p1.x || ' ' || p1.y); 
end;
/

exit