65: -- and perform comparison in the body and raise the
66: -- exception there.
67: CURSOR c_lock_req IS
68: SELECT object_version_number
69: FROM ams_list_fields_b
70: WHERE list_field_id = p_listfield_id
71: AND object_version_number = p_object_version
72: FOR UPDATE NOWAIT;
73: BEGIN
242: END IF;
243: END IF;
244:
245: -------------------------- update --------------------
246: UPDATE ams_list_fields_b
247: SET
248: object_version_number = object_version_number + 1,
249: field_table_name = l_listfield_rec.field_table_name,
250: field_column_name = l_listfield_rec.field_column_name,
561: )
562: IS
563: CURSOR c_field IS
564: SELECT *
565: FROM ams_list_fields_b
566: WHERE list_field_id = p_listfield_rec.list_field_id
567: ;
568: l_listfield_rec c_field%ROWTYPE;
569: BEGIN