PROCEDURE docommit IS
old_level VARCHAR2(2);
BEGIN
old_level := name_in('system.message_level');
copy('5', 'system.message_level');
COMMIT;
copy(old_level, 'system.message_level');
END;