PROCEDURE Write_Char_Data__ (
   objversion_ IN OUT VARCHAR2,
   rowid_      IN     ROWID,
   lob_loc_    IN     CLOB )
IS
   rec_ large_objects_tab%ROWTYPE;
BEGIN
   rec_ := Lock_By_Id___(rowid_, objversion_);
   UPDATE large_objects_tab
   SET char_data = lob_loc_,
       rowversion = sysdate
   WHERE rowid = rowid_
   RETURNING rowversion INTO rec_.rowversion;
   objversion_ := to_char(rec_.rowversion,'YYYYMMDDHH24MISS');
END Write_Char_Data__;