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;