Create procedure to clear in doubt transcations.

Question

Hi All,
I am trying to write a procedure and shedule it to run every 10 minutes to clear out in doubt transcations. following is the anonymous block, but not able to convert this into procedure, this has been taken from sir tom kyte site.
declare
   cursor_name     pls_integer default dbms_sql.open_cursor;
   ignore          pls_integer;
   procedure execute_immediate( p_sql in varchar2 )
   is
   BEGIN
      dbms_sql.parse(cursor_name, p_sql, dbms_sql.native);
      ignore := dbms_sql.execute(cursor_name);
      dbms_sql.close_cursor(cursor_name);
   END;
begin
   for x in ( select local_tran_id from from dba_2pc_pending where state like 'prepa%'; )
   loop
      dbms_output.put_line( 'My variable is ' || x.local_tran_id );
      -- execute_immediate( 'rollback force ''' || x.local_tran_id || '''' );
      dbms_transaction.purge_lost_db_entry(x.local_tran_id);
   end loop;
end;
/

Answer 1

1  CREATE OR REPLACE PROCEDURE FOOBAR
  2  AS
  3     cursor_name     pls_integer default dbms_sql.open_cursor;
  4     ignore          pls_integer;
  5     procedure execute_immediate( p_sql in varchar2 )
  6     is
  7     BEGIN
  8        dbms_sql.parse(cursor_name, p_sql, dbms_sql.native);
  9        ignore := dbms_sql.execute(cursor_name);
10        dbms_sql.close_cursor(cursor_name);
11     END;
12  begin
13     for x in ( select local_tran_id from sys.dba_2pc_pending where state like 'prepa%' )
14     loop
15        dbms_output.put_line( 'My variable is ' || x.local_tran_id );
16        -- execute_immediate( 'rollback force ''' || x.local_tran_id || '''' );
17        dbms_transaction.purge_lost_db_entry(x.local_tran_id);
18     end loop;
19* end;
11:15:06 SQL> /
Procedure created.
11:15:09 SQL>