How to make pl/sql procedure not auto-commit?

Question

I wish to be able to execute a create statement, and then rollback if there is a problem with any sql that follows. It seems that you cannot rollback? Why is this?
(My problem is that I wish to execute a series of sql statements and run a rollback if anything before it fails, including the creation of the table)
set serveroutput on;
declare
  rcount INTEGER;
PRAGMA AUTONOMOUS_TRANSACTION;
begin
  execute immediate 'create table bsdconv_s1stc_code (id number)';
  dbms_output.put_line('Table created successfully');
  rollback;
exception
  when others then dbms_output.put_line('Error while creating table. Probably already exists.');
end;

Answer 1

Ni hao, Dong Yage!
I think using procedure and handling on call you might be able to do it.
SQL> create table test (i int);
Table created.
SQL> insert into test values (1);
1 row created.
SQL> select * from test;
         I
         1
SQL> set serveroutput on;
SQL> declare
  2    rcount INTEGER;
  3  PRAGMA AUTONOMOUS_TRANSACTION;
  4  begin
  5    execute immediate 'create table bsdconv_s1stc_code (id number)';
  6    dbms_output.put_line('Table created successfully');
  7  --  rollback;
  8  exception
  9    when others then
10       dbms_output.put_line('Error while creating table. Probably already exists.');
11    rollback;
12  end;
13  /
Table created successfully
PL/SQL procedure successfully completed.
SQL> desc bsdconv_s1stc_code
Name                                      Null?    Type
ID                                                 NUMBER
SQL> select * from test;
         I
         1
SQL> insert into test values (2);
1 row created.
SQL> set serveroutput on;
SQL> declare
  2    rcount INTEGER;
  3  PRAGMA AUTONOMOUS_TRANSACTION;
  4  begin
  5    execute immediate 'create table bsdconv_s1stc_code (id number)';
  6    dbms_output.put_line('Table created successfully');
  7  --  rollback;
  8  exception
  9    when others then
10       dbms_output.put_line('Error while creating table. Probably already exists.');
11       rollback;
12       execute immediate 'drop table bsdconv_s1stc_code';
13  end;
14  /
Error while creating table. Probably already exists.
PL/SQL procedure successfully completed.
SQL> select * from test;
         I
         1
         2
SQL> rollback;
Rollback complete.
SQL> select * from test;
no rows selected
SQL> desc bsdconv_s1stc_code;
ERROR:
ORA-04043: object bsdconv_s1stc_code does not exist
On executing PL/SQL block secondly,
it raises exception, displays error messages and drops table
but main transaction is not rolled back.
This is because rollback belongs to only inseide of
AUTONOMOUS_TRANSACTION PL/SQL block.
Now, let us try using procedure.
SQL> grant create table to ushi;
SQL> create or replace
  2  procedure create_table
  3  is
  4   PRAGMA AUTONOMOUS_TRANSACTION;
  5   begin
  6     execute immediate 'create table bsdconv_s1stc_code (id number)';
  7     dbms_output.put_line('Table created successfully');
  8  exception
  9    when others then
10       dbms_output.put_line('Error while creating table. Probably already exists.');
11       execute immediate 'drop table bsdconv_s1stc_code';
12       raise;
13  end;
14  /
Procedure created.
SQL> select * from test;
no rows selected
SQL> begin
  2    insert into test values (1);
  3    create_table;
  4  exception
  5    when others then
  6      dbms_output.put_line('Error on Creating table or Transaction');
  7      rollback;
  8  end;
  9  /
Table created successfully
PL/SQL procedure successfully completed.
SQL> select * from test;
         I
         1
SQL> commit;
Commit complete.
SQL> desc bsdconv_s1stc_code
Name                                      Null?    Type
ID                                                 NUMBER
SQL> begin
  2    insert into test values (2);
  3    create_table;
  4  exception
  5    when others then
  6      dbms_output.put_line('Error on Creating table or Transaction');
  7      rollback;
  8  end;
  9  /
Error while creating table. Probably already exists.
Error on Creating table or Transaction
PL/SQL procedure successfully completed.
SQL> select * from test;
         I
         1
SQL> desc bsdconv_s1stc_code
ERROR:
ORA-04043: object bsdconv_s1stc_code does not exist