declare
  cursor c1 is 
  select distinct s.sid, s.serial#, s.STATUS, s.USERNAME, s.machine, s.PROGRAM, s.module, s.logon_time--, q.*
  from v$session s, v$sqltext q --,v$access
  where --a.object='LOAD_OSA_FILES'
  s.USERNAME not in ('SYSTEM', 'SYS')
  --and s.MACHINE = 'MS-D11107-12'
  --and q.SQL_TEXT like 'insert into GW_T_%'
  --and s.STATUS = 'ACTIVE'
  --and s.PROGRAM = 'JDBC Thin Client'
  --and a.sid=s.sid
  and q.address (+) = s.sql_address;
--  order by s.sid;
  
  q varchar2(1000);

begin
  for c in c1 loop
    begin
      q := 'ALTER SYSTEM DISCONNECT SESSION '''||c.sid||','||c.serial#||''' IMMEDIATE';
      dbms_output.put_line(q);
      execute immediate(q);
    exception when others then
      if sqlcode = -31 then
        q := sqlerrm;
        dbms_output.put_line(q);
      else
        raise;
      end if;
    end;
  end loop;
end;