FUNCTION request_lock(p_lock_name IN VARCHAR2) RETURN BOOLEAN IS l_lock_name ); l_lock_ret INTEGER; l_ret_val BOOLEAN := TRUE; l_lock_handle ); BEGIN IF p_lock_name IS NOT NULL THEN --增加数据库锁,以保证一个批次同时只运行一次 l_lock_name := p_lock_name; dbms_lock.alloca…