CREATE OR REPLACE PROCEDURE ATUVEROBJ(
   P_NMOBJETO IN VARCHAR,
   P_VROBJETO IN VARCHAR)
AS
BEGIN
      UPDATE VERSAOOBJETO SET 
         NRVEROBJBD = P_VROBJETO
      WHERE NMOBJETOBD = P_NMOBJETO;

      IF SQL%NOTFOUND THEN

         INSERT INTO VERSAOOBJETO
           (NMOBJETOBD,
            NRVEROBJBD)
         VALUES
           (P_NMOBJETO,
            P_VROBJETO);
      END IF;
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('ATUVEROBJ','4.05.020'); END;
/

