101:
102: -- obtain a unique event-id
103: SELECT m4u_wlqid_s.NEXTVAL
104: INTO l_event_key
105: FROM dual;
106:
107: l_event_key := 'M4U_QRYREG_' || l_event_key;
108:
109: -- pass Concurrent program parameters as event parameters,