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;