oracle存储过程定义游标用动态sql

1.执行存储过程的sql脚本

execute PROC_AUTHORIZESAVE('News');

2.存储过程

CREATE OR REPLACE PROCEDURE PROC_AUTHORIZESAVE(
    TABLENAME IN VARCHAR2 )
AS
  V_MANDATETYPE VARCHAR2(2);
  V_ID          VARCHAR2(1000);
  V_MANDATESCOPE CLOB;
  AV_SPLIT VARCHAR2(2) := ';';
  V_LENGTH NUMBER;
  V_START  NUMBER;
  V_INDEX  NUMBER;
  V_STR    VARCHAR2(1000);
  V_SQL    VARCHAR2(1000);--动态sql
BEGIN
  DECLARE
    MYCUSOR SYS_REFCURSOR;--定义游标
  BEGIN
   V_SQL:='DELETE FROM TLK_P_'||TABLENAME||'_mds';
  EXECUTE IMMEDIATE(V_SQL);
    V_SQL:='SELECT ID ,ITEM_MANDATESCOPE FROM tlk_P_'||TABLENAME||' where item_MANDATESCOPE is not null';
    OPEN MYCUSOR FOR V_SQL;--用动态sql定义游标
    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_MANDATETYPE := SUBSTR(V_MANDATESCOPE, V_START,1);
            V_STR         :=SUBSTR(V_MANDATESCOPE, V_START);
            V_START       := V_LENGTH + 1;
          ELSE
            V_MANDATETYPE := SUBSTR(V_MANDATESCOPE, V_START,1);
            V_STR         :=SUBSTR(V_MANDATESCOPE, V_START, V_INDEX - V_START);
            V_START       := V_INDEX                                + 1;
          END IF;
          V_SQL:='INSERT INTO TLK_P_'||TABLENAME||'_mds (ID,'||TABLENAME||'ID,MANDATESCOPE,MANDATETYPE) VALUES('''||SYS_GUID()||''','''||V_ID||''','''||V_STR||''','''||V_MANDATETYPE||''')';
          EXECUTE IMMEDIATE(V_SQL);
        END LOOP;
      ELSE
        V_MANDATETYPE := SUBSTR(V_MANDATESCOPE, V_START,1);
        V_SQL         :='INSERT INTO TLK_P_'||TABLENAME||'_mds (ID,'||TABLENAME||'ID,MANDATESCOPE,MANDATETYPE) VALUES('''||SYS_GUID()||''','''||V_ID||''','''||V_MANDATESCOPE||''','''||V_MANDATETYPE||''')';
        EXECUTE IMMEDIATE(V_SQL);
      END IF;
    END LOOP;
    CLOSE MYCUSOR;
  END;
  --提交
  COMMIT;
END PROC_AUTHORIZESAVE;