SET SERVEROUTPUT ON;

SELECT * FROM ORD;

CREATE OR REPLACE PROCEDURE SECURE_DML (v_shipDate IN transfer.shipdate%TYPE, v_ordid IN transfer.ordid%TYPE)
AS
  e_produs_inexistent EXCEPTION;
BEGIN
    UPDATE transfer SET shipdate = v_shipdate
    WHERE ordid = v_ordid;

    IF SQL%ROWCOUNT = 0 THEN
        RAISE e_produs_inexistent;
    else
        dbms_output.put_line('Shipdate-ul comenzii cu ID-ul ' || v_ordid || ' a fost actualizat cu succes.');
    END IF;

    EXCEPTION
    WHEN e_produs_inexistent THEN
    dbms_output.put_line('Produsul cu ID-ul ' || v_ordid || ' nu exista!');
END;

BEGIN
    SECURE_DML(650,TO_DATE('25-JUN-86','DD-MON-YYYY')); --Produs inexistent
    SECURE_DML(605,TO_DATE('25-JUN-86','DD-MON-YYYY'));
END;

SELECT * FROM ORD;
ROLLBACK;