E UPDATE_VCOL () IS
BEGIN
UPDATE SYS_COLUMNS SET POS = POS + 1 WHERE TABLE_ID= :id AND POS = :old_pos;
UPDATE SYS_VIRTUAL SET POS = POS + 1 WHERE TABLE_ID= :id AND POS = :old_pos;
END
;