PLSQL中如何简单地使用字符串数组

DECLARE
  --区域ID
  areaId bss_sys.seq_config.area_id%type;
  --定义一个字符串数组类型
  TYPE tableNamesArray IS TABLE OF bss_sys.seq_config.table_name%type;
  --id号
  id bss_sys.seq_config.id%type;
  maxId bss_sys.seq_config.id%type;
  --表名
  tableName bss_sys.seq_config.table_name%type := '';
  --流水类型
  seqType bss_sys.seq_config.seq_type%type := 1;
  --序列名
  seqName bss_sys.seq_config.seq_name%type := '';
  --序列长度
  seqLength bss_sys.seq_config.seq_length%type := 12;
  --所有表名
  tableNames tableNamesArray := tableNamesArray('O2B_REPLY_MSG','O2R_REPLY_MSG','DISPATCH_TASK','TASK_PREMISS_GRP','PREMISS','DISPATCH');
  --序列名前缀
  seqNamePrefix varchar2(10) := 'SEQ_';
BEGIN
  --获得区域
  select SLC.area_id into areaId from bss_sys.script_local_config SLC;
  --循环插入数据
  FOR i IN 1 .. tableNames.COUNT LOOP
     --获得ID
     SELECT MAX(SC.id) into maxId From bss_sys.seq_config SC;
     id := maxId + 1;
     --获得表名
     tableName := tableNames(i);
     --获得序列名
     seqName := seqNamePrefix || tableName;
     insert into bss_sys.seq_config
            (id,area_id,table_name,seq_type,seq_name,seq_length)
            values(id,areaId,tableName,seqType,seqName,seqLength);
  end loop;
EXCEPTION
  WHEN others THEN
        DBMS_OUTPUT.put_line('执行插入SEQ_CONFIG表数据时出现异常!'); 
END;