[Home] [Help]
44: 22-JUN-2001 P.K.Attwood 115.4 1841141 To support OPS (Oracle Parallel
45: Server) inside the
46: delete_ses_rows procedure
47: changed references from
48: v$session to gv$session.
49: 13-SEP-2001 P.K.Attwood 115.5 Added set_effective_date
50: procedure.
51: 19-DEC-2001 G.Perry 115.6 Added dbdrv
52: 31-JAN-2002 G.Sayers 115.7 Added validation to get_dates and
289: -- views with filter INST_ID = userenv('Instance').
290: --
291: cursor csr_gv_ses is
292: select audsid
293: from gv$session;
294: --
295: -- Declare exceptions to be handled
296: --
297: Resource_Busy exception;
324: -- the FND_SESSIONS delete logic.
325: --
326: -- When this process obtains the table lock then it should go
327: -- on to remove old session rows from FND_SESSIONS. i.e. Where
328: -- there is no corresponding row in GV$SESSION. When this
329: -- process does not obtain the table lock it indicates that
330: -- another process must be performing the FND_SESSIONS delete
331: -- logic. So this session does not need to do anything extra.
332: --
335: --
336: -- If this point is reached then the table lock
337: -- has been obtained by this process.
338: --
339: -- Get all the rows from gv$session using bulk collect.
340: --
341: open csr_gv_ses;
342: fetch csr_gv_ses BULK COLLECT INTO gvSessionId;
343: close csr_gv_ses;
342: fetch csr_gv_ses BULK COLLECT INTO gvSessionId;
343: close csr_gv_ses;
344: --
345: -- For each row in FND_SESSIONS see if a corresponding
346: -- row exists in GV$SESSION. When there is no matching
347: -- row delete the FND_SESSIONS row.
348: --
349: open csr_fnd_ses;
350: loop