Kill users script

BEGIN
FOR s IN
(
SELECT SID, serial# FROM v$session WHERE program LIKE 'java@itrapdop01%' OR program LIKE 'java@itrapdop02%' AND status = 'ACTIVE'
)
LOOP

EXECUTE IMMEDIATE 'alter system kill session ''' || TO_CHAR(s.SID) || ', ' || TO_CHAR(s.serial#) || ''' IMMEDIATE';
END LOOP;

EXCEPTION WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(SQLCODE || ' - ' || SQLERRM);
END;