KILL sniped sessions dynamic sql

grant select on v_$session to portal;

Create procedure 

CREATE OR REPLACE PROCEDURE KILL_SNIPED_SESSION AS
COM VARCHAR2(200);
cursor c1 is select SID,SERIAL# from v$session where status='SNIPED';

BEGIN

FOR V1 IN C1 LOOP

COM:= 'ALTER SYSTEM kill session '''||V1.SID||','||V1.SERIAL#||''' immediate';

DBMS_OUTPUT.PUT_LINE (COM);

EXECUTE IMMEDIATE COM ;

END LOOP;

 END;

/

Schedule the job

DECLARE

   JOB NUMBER;

   BEGIN

   DBMS_JOB.SUBMIT(JOB,'PORTALPAY.KILL_SNIPED_SESSION;',SYSDATE,'SYSDATE+6/24');

  END;

/