DECLARE
   l_status   v$session.status%TYPE;
BEGIN
   FOR L_c
      IN (SELECT SM.SID, SM.SESSION_SERIAL#, SM.INST_ID
            FROM gv$sql_monitor SM
           WHERE 
                SM   .SQL_ID = '7nb76awdu8hsa'
                 AND SM.STATUS = 'EXECUTING'
                 AND SM.MODULE = 'JDBC Thin Client'
                 AND SM.ELAPSED_TIME / 1000000 >= 60)
   LOOP
      BEGIN
         DBMS_SYSTEM.set_ev (l_c.SID,
                             l_c.SESSION_SERIAL#,
                             10237,
                             1,
                             '');

         LOOP
            SELECT status
              INTO l_status
              FROM v$session
             WHERE sid = l_c.SID AND serial# = l_c.SESSION_SERIAL#;

            EXIT WHEN l_status = 'INACTIVE';
         END LOOP;

         DBMS_SYSTEM.set_ev (l_c.SID,
                             l_c.SESSION_SERIAL#,
                             10237,
                             0,
                             '');
      END;
   END LOOP;
END;

/* Cancel  concrete querys SQL_ID on ' ELAPSED_TIME> X...Y
    Run by SYS */
DECLARE
   l_status   v$session.status%TYPE;
BEGIN
   FOR L_c
      IN (
           SELECT SM.SID, SM.SESSION_SERIAL#, SM.INST_ID
            FROM gv$sql_monitor SM, v$session VS
           WHERE  (SM.SID= VS.SID AND SM.SESSION_SERIAL#= VS.SERIAL#)
               AND  VS.STATUS = 'ACTIVE'
                AND
                (
                (SM.SQL_ID IN ('7nb76awdu8hsa', '3pvsjbfq4fzvt')
                 AND SM.STATUS = 'EXECUTING'
                 AND SM.MODULE = 'JDBC Thin Client'
                 AND SYSDATE - SM.SQL_EXEC_START < 1 / 24 / 4
                 AND SM.ELAPSED_TIME / 1000000 >= 300)
                 OR
                 (SM.SQL_ID IN ('b8rz3mkq7yw07')
                 AND SM.STATUS = 'EXECUTING'
                 AND SM.MODULE = 'JDBC Thin Client'
                 AND SYSDATE - SM.SQL_EXEC_START < 1 / 24 / 4
                 AND SM.ELAPSED_TIME / 1000000 >= 120)
                 )
           )
  LOOP
      BEGIN

           begin
                   SELECT status INTO l_status
                    FROM v$session
                     WHERE sid = l_c.SID AND serial# = l_c.SESSION_SERIAL#;
                     exception
                     --  SID no longer found
                      when NO_DATA_FOUND then
                        raise_application_error(-20001, 'SID: ' || l_c.SID || ' no longer found after cancelling');
                end;

           IF l_status = 'ACTIVE' then
             DBMS_SYSTEM.set_ev (l_c.SID,l_c.SESSION_SERIAL#,10237,1,'');
           ELSE
             EXIT;
           END IF;

         FOR i IN 1..10 LOOP
              begin
                   SELECT status INTO l_status
                    FROM v$session
                     WHERE sid = l_c.SID AND serial# = l_c.SESSION_SERIAL#;
                     exception
                     --  SID no longer found
                      when NO_DATA_FOUND then
                        raise_application_error(-20001, 'SID: ' || l_c.SID || ' no longer found after cancelling');
                end;

            -- Status no longer active
            -- then set event level to 0 to avoid further cancels
            if l_status != 'ACTIVE' then
              SYS.DBMS_SYSTEM.set_ev (l_c.SID,l_c.SESSION_SERIAL#,10237,0,'');
            exit;
            end if;

         dbms_lock.sleep(0.05);
         END LOOP;

      END;
   END LOOP;
END;