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

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

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;