This exception is raised on an error in the OLE2 package.
OLE2.OLE_ERROR EXCEPTION;
PROCEDURE ole_test IS
err_code BINARY_INTEGER;
err_text VARCHAR2(255);
BEGIN
olepack.init(...);
olepack.something(...);
olepack.shutdown(...);
EXCEPTION
WHEN OLE2.OLE_ERROR THEN
err_code := olepack.get_err(err_text);
TEXT_IO.PUT_LINE('OLE Error #' || err_code || ': ' || err_text);
olepack.shutdown(...);
END ole_test;