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__;