oracle存储过程将clob大字段分开存入到新表中

create or replace PROCEDURE AUTHORIZESAVE AS

v_ID varchar2(1000);
v_MANDATESCOPE clob;
av_split varchar2(2) := ';';
v_length number;
v_start NUMBER;
v_index NUMBER;
v_str varchar2(1000);

BEGIN
DECLARE CURSOR myCusor IS
SELECT ID ,ITEM_MANDATESCOPE FROM tlk_P_Announcements WHERE  ITEM_MANDATESCOPE IS NOT NULL;
BEGIN
OPEN myCusor;

LOOP
FETCH myCusor INTO v_ID,v_MANDATESCOPE;
--游标取不到数据则退出
EXIT WHEN myCusor%NOTFOUND;
v_MANDATESCOPE := replace(v_MANDATESCOPE,',',';');
v_length := LENGTH(v_MANDATESCOPE);
--v_length number:=LENGTH(v_MANDATESCOPE);
v_start :=1;
v_index :=0;
v_str :='';
IF INSTR(v_MANDATESCOPE ,av_split) >0 THEN
WHILE(v_start <= v_length)
LOOP
v_index := INSTR(v_MANDATESCOPE, av_split, v_start);

IF v_index = 0
THEN
v_str :=SUBSTR(v_MANDATESCOPE, v_start);
v_start := v_length + 1;
ELSE
v_str :=SUBSTR(v_MANDATESCOPE, v_start, v_index - v_start);
v_start := v_index + 1;
END IF;
INSERT INTO TLK_MANDATESCOPE(ID,DATAID,AUTHORITYID) VALUES(sys_guid(),v_ID,v_str);
END LOOP;
ELSE
INSERT INTO TLK_MANDATESCOPE(ID,DATAID,AUTHORITYID) VALUES(sys_guid(),v_ID,v_MANDATESCOPE);
END IF;

END LOOP;
CLOSE myCusor;
END;
--提交
COMMIT;
END AUTHORIZESAVE;