Pl / SQL匿名块函数调用

ALTER SESSION SET CURRENT_SCHEMA = ftest;
SET SERVEROUTPUT ON;

DECLARE
  R_id rooms.room_id%TYPE:='Enter Room id';

BEGIN

  RoomCapacity(R_id);

EXCEPTION
when others then
  dbms_output.put_line(SQLCODE||SQLERRM);
 rollback work;

END;
ALTER SESSION SET CURRENT_SCHEMA = ftest;
SET S