BEGIN
    DELETE FROM MARCA
     WHERE CDMARCA = '01';
EXCEPTION
    WHEN OTHERS THEN
        UPDATE MARCA
           SET IDMARCAATIVA = 'I'
         WHERE CDMARCA = '01';
END;
/

COMMIT
/