Create table statement inside a procedure.

Question

Hi,
I'm trying to write a procedure creates some tables. The procedure has not arguments. I have written it in this way:
CREATE OR REPLACE PROCEDURE MIGRAZIONE
IS
    var varchar2(2000);
BEGIN
--INIZIO tabella dominio spr_klers_bor_borsa
CREATE TABLE SPR_KLERS_BOR_BORSA34
  ID           VARCHAR2(4 BYTE)                 NOT NULL,
  DESCRIPTION  VARCHAR2(80 BYTE)
CREATE UNIQUE INDEX SPR_KLERS_IAZ_BORSA_PK ON SPR_KLERS_BOR_BORSA
(ID)
LOGGING
TABLESPACE FIN_DATA
PCTFREE    10
INITRANS   2
MAXTRANS   255
STORAGE    (
            INITIAL          64K
            MINEXTENTS       1
            MAXEXTENTS       2147483645
            PCTINCREASE      0
            BUFFER_POOL      DEFAULT
NOPARALLEL;
ALTER TABLE SPR_KLERS_BOR_BORSA ADD (
  CONSTRAINT SPR_KLERS_IAZ_BORSA_PK
PRIMARY KEY
(ID)
    USING INDEX
    TABLESPACE FIN_DATA
    PCTFREE    10
    INITRANS   2
    MAXTRANS   255
    STORAGE    (
                INITIAL          64K
                MINEXTENTS       1
                MAXEXTENTS       2147483645
                PCTINCREASE      0
--FINE tabella spr_klers_bor_borsa
END MIGRAZIONE;When I compile I receive this message:
PLS-00103: Encountered the symbol "CREATE" when expecting one of the following:
begin case declare exit for goto if loop mod null pragma
raise return select update while with <an identifier>
What does it mean?
How can I solve?
I have tried to change the procedure in this way:
CREATE OR REPLACE PROCEDURE MIGRAZIONE
IS
    var varchar2(2000);
BEGIN
--INIZIO tabella dominio spr_klers_bor_borsa
var := 'CREATE TABLE SPR_KLERS_BOR_BORSA
  ID           VARCHAR2(4 BYTE)                 NOT NULL,
  DESCRIPTION  VARCHAR2(80 BYTE)
CREATE UNIQUE INDEX SPR_KLERS_IAZ_BORSA_PK ON SPR_KLERS_BOR_BORSA
(ID)
LOGGING
TABLESPACE FIN_DATA
PCTFREE    10
INITRANS   2
MAXTRANS   255
STORAGE    (
            INITIAL          64K
            MINEXTENTS       1
            MAXEXTENTS       2147483645
            PCTINCREASE      0
            BUFFER_POOL      DEFAULT
NOPARALLEL;
ALTER TABLE SPR_KLERS_BOR_BORSA ADD (
  CONSTRAINT SPR_KLERS_IAZ_BORSA_PK
PRIMARY KEY
(ID)
    USING INDEX
    TABLESPACE FIN_DATA
    PCTFREE    10
    INITRANS   2
    MAXTRANS   255
    STORAGE    (
                INITIAL          64K
                MINEXTENTS       1
                MAXEXTENTS       2147483645
                PCTINCREASE      0
execute immediate var;
--FINE tabella spr_klers_bor_borsa
END MIGRAZIONE;And when I compile the version above I receive:
PLS-00103: Encountered the symbol "end-of-file" when expecting one of the following:
begin case declare end exception exit for goto if loop mod
null pragma raise return select update while with
How can I solve?
Thanks all, bye bye.

Answer 1

Here you have to user dynamic sql for create table, cerate index etc.
like
CREATE OR REPLACE PROCEDURE MIGRAZIONE
IS
    var varchar2(2000);
BEGIN
--INIZIO tabella dominio spr_klers_bor_borsa
var := 'CREATE TABLE SPR_KLERS_BOR_BORSA
  ID           VARCHAR2(4 BYTE)                 NOT NULL,
  DESCRIPTION  VARCHAR2(80 BYTE)
Execute immediate var;
var := 'CREATE UNIQUE INDEX SPR_KLERS_IAZ_BORSA_PK ON SPR_KLERS_BOR_BORSA
(ID)
LOGGING
TABLESPACE FIN_DATA
PCTFREE    10
INITRANS   2
MAXTRANS   255
STORAGE    (
            INITIAL          64K
            MINEXTENTS       1
            MAXEXTENTS       2147483645
            PCTINCREASE      0
            BUFFER_POOL      DEFAULT
NOPARALLEL' ;
Execute immediate var;
var := 'ALTER TABLE SPR_KLERS_BOR_BORSA ADD (
  CONSTRAINT SPR_KLERS_IAZ_BORSA_PK
PRIMARY KEY
(ID)
    USING INDEX
    TABLESPACE FIN_DATA
    PCTFREE    10
    INITRANS   2
    MAXTRANS   255
    STORAGE    (
                INITIAL          64K
                MINEXTENTS       1
                MAXEXTENTS       2147483645
                PCTINCREASE      0
execute immediate var;
--FINE tabella spr_klers_bor_borsa
END MIGRAZIONE;YOu can specify all the ddl statements in one execute immediate.
Edited by: s_2 on Oct 17, 2008 6:59 PM