PL/SQL创建表问题

    我需要批量生成一批表,需求是:创建表时表名是动态生成的;代码如下:DECLARE    --定义VARCHAR2的数组以及大小
   TYPE ARRSYVAR IS VARRAY(36) OF VARCHAR2(30); 
   ARRAYPARA ARRSYVAR; --数组变量
 BEGIN
   -- Test statements here
   ARRAYPARA := ARRSYVAR('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',
'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
'W', 'X', 'Y', 'Z', '0', '1', '2', '3', '4', '5', '6', '7',
'8', '9'); --数组初始化
   FOR K IN 1 .. 36 LOOP
    FOR J IN 1 .. 36 LOOP
     -- calculate pi with 100 terms
     TABLENAME := 'IC_'+ARRAYPARA(K)+ARRAYPARA(J) -- 表名
     create table TABLENAME
(
  STOCKID       NUMBER not null,
  USERID        NUMBER,
  MODEL         VARCHAR2(100),
  MAKER         VARCHAR2(100),
  AMOUNT        NUMBER default 0,
  LOTNUMBER     VARCHAR2(100),
  UPTRANSDATE   DATE default SYSDATE,
  PRICE         NUMBER(8,2) default 0,
  STATE         NUMBER default 0,
  ENCAPSULATION VARCHAR2(50),
  DESCRIBE      VARCHAR2(1000),
  VOUCH         NUMBER default 1,
  SPOTGOODS     NUMBER default 0
)
tablespace SYSTEM
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255
  storage
  (
    initial 16
    minextents 1
    maxextents unlimited
  );
-- Create/Recreate primary, unique and foreign key constraints 
alter table TABLENAME
  add constraint PK_SYSICSTOCK primary key (STOCKID)
  using index 
  tablespace SYSTEM
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 16K
    minextents 1
    maxextents unlimited
  );
alter table TABLENAME
  add constraint FK_SYSICSTO_IC foreign key (USERID)
  references SYSMEMBER (USERID);
-- Create/Recreate indexes 
create index INDEX_MODEL on TABLENAME (MODEL)
  tablespace SYSTEM
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 64K
    minextents 1
    maxextents unlimited
  );
   END LOOP;
   END LOOP;
 END;
 不知道这样子行不行?