sepertinya anda kelebihan ";" di string-nya.
mungkin script ini bisa di pakai.
PROCEDURE KILL_SESSION_OPR (p_sid IN NUMBER, p_serial IN NUMBER) IS
cid INTEGER;
ret INTEGER;
sqltxt VARCHAR2(150);
BEGIN
cid := DBMS_SQL.OPEN_CURSOR;
sqltxt := 'alter system kill
session '||''''||p_sid||','||p_serial||'''';
DBMS_SQL.PARSE(cid, sqltxt, dbms_sql.v7);
DBMS_OUTPUT.PUT_LINE(sqltxt);
ret := DBMS_SQL.EXECUTE(cid);
DBMS_SQL.CLOSE_CURSOR(cid);
DBMS_OUTPUT.PUT_LINE('Sukses');
EXCEPTION
WHEN OTHERS THEN
DBMS_SQL.CLOSE_CURSOR(cid);
DBMS_OUTPUT.PUT_LINE('Gagal : '||SQLERRM );
END KILL_SESSION_OPR;
--
-----------I.N.D.O - O.R.A.C.L.E---------------
Keluar: [EMAIL PROTECTED]
Website: http://indo-oracle.blogspot.com
-----------------------------------------------
Bergabung dengan Indonesia Thin Client User Groups,
Terminal Server, Citrix, New Moon Caneveral, di:
http://indo-thin.vze.com
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indo-oracle/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
