DECLARE
 v_deptno NUMBER := 500;
 v_name VARCHAR2 (20) := 'Acquisti';
 e_invalid_dept EXCEPTION;
 BEGIN
 UPDATE HR.departments
 SET department_name = v_name
 WHERE department_id = v_deptno;
 IF SQL%NOTFOUND THEN
    RAISE e_invalid_dept;
 END IF;
 ROLLBACK;
 EXCEPTION
 WHEN e_invalid_dept THEN
 
 DBMS_OUTPUT.PUT_LINE ('Department: [' || v_name || '] non trovato');
 DBMS_OUTPUT.PUT_LINE (SQLERRM);
 DBMS_OUTPUT.PUT_LINE (SQLCODE);
 END;