put_object_in_store

CREATE OR REPLACE PROCEDURE put_object_in_store(
    p_access_uri  IN VARCHAR2,
    p_blob_data   IN BLOB
) AS
    l_error_msg VARCHAR2(4000);
BEGIN
    BEGIN
        DBMS_CLOUD.PUT_OBJECT(
            object_uri => p_access_uri,
            contents   => p_blob_data
        );
    EXCEPTION
        WHEN OTHERS THEN
            l_error_msg := 'Error uploading object to store: ' || SQLERRM;
            -- Log the error
            DBMS_OUTPUT.PUT_LINE(l_error_msg);
            -- Re-raise the error
            RAISE_APPLICATION_ERROR(-20001, l_error_msg);
    END;
END put_object_in_store;