set showmode off
set echo off
set timing off
set feedback off
column username format a10;
column osuser format a10;
column program format a35;
select username,osuser,terminal,program,status from v$session
where username is not null;
!echo " "
accept username char prompt 'Enter User Login ID to kill: '
!echo " "
set pagesize 0
set heading off
set termout off
set linesize 80
set verify off
spool kill_usera.sql
select 'alter system kill session ''' || sid || ',' ||
serial# || ''';' from v$session where username = upper('&username');
spool off
set linesize 80
set termout on
set heading on
set pagesize 24
set timing on
set feedback 6
set verify on
set echo on
set showmode both
!all_rights.shl kill_usera.sql
@kill_usera