ORACLE创建多个游标并嵌套循环


		ORACLE创建多个游标并嵌套循环
 
需求：每遍历游标2的记录时分别去遍历游标1的数据，并替换后插入临时表
 
CREATE OR REPLACE PROCEDURE TESTQ
 
IS
 
DownDictate VARCHAR2(200) DEFAULT '';
 
t_IsExist NUMBER:=0;
 
use_DownDictate VARCHAR2(200) DEFAULT '';
 
BEGIN
 
--判断指令是否会错误        
 
SELECT DOWNDICTATE INTO DownDictate FROM T_MS_AUTOPLANDICTATE WHERE PROCEDURENAME='PKG_MEDI_IMM.QUERY_MEDI_IMM';          
 
IF DownDictate IS NULL THEN          
 
RETURN;        
 
END IF;        
 
--开始定义游标
 
DECLARE   
 
---定义游标       1
 
CURSOR C_PARAMETERS IS           
 
SELECT FUNCTIONNODECODE,FUNCTIONNODENAME FROM T_MS_FUNCTIONNODES WHERE FUNCTIONID =            (SELECT FUNCTIONID FROM T_MS_FUNCTION WHERE FUNCTIONPROCE='PKG_MEDI_IMM.QUERY_MEDI_IMM');        
 
---定义游标          2
 
CURSOR C_MEDIIMME IS           
 
SELECT * FROM (  SELECT              A.GRANTMASTER_BARCODE,A.GRANTMASTER_DATE,B.UNITINFO_NAME,C.USERINFO_REALNAME FROM T_LABEL_GRANTMASTER A              LEFT OUTER JOIN T_ER_UNITINFO B ON A.GRANTMASTER_FARMID=B.UNITINFO_ID              LEFT OUTER JOIN T_SYS_USERINFO C ON A.GRANTMASTER_FARMERSID = C.USERINFO_ID              WHERE C.USERINFO_MOBILE IS NOT NULL OR C.USERINFO_PHONE IS NOT NULL) T;
 
--定义游标1的行定义
 
TYPE paraType IS RECORD(           
 
code     VARCHAR2(20),           
 
codecn   VARCHAR2(50)         
 
);         
 
paraRowType paraType;
 
---定义游标2的行定义
 
 TYPE rtype IS RECORD(            
 
yzpch    VARCHAR2(50),            
 
g_date   DATE,            
 
yzc  VARCHAR2(100),            
 
yznh   VARCHAR2(50)         
 
);         
 
c_rtype rtype;
 
 
 
--开始执行         
 
BEGIN           
 
OPEN C_MEDIIMME;        --打开游标 2              
 
LOOP            
 
FETCH C_MEDIIMME INTO c_rtype;            
 
EXIT WHEN C_MEDIIMME%NOTFOUND;            
 
use_DownDictate := DownDictate;            
 
OPEN C_PARAMETERS;       --打开游标1      (需要每遍历游标2的一条数据时打开一次游标1)
 
--遍历参数表            
 
BEGIN              
 
LOOP                
 
FETCH C_PARAMETERS INTO paraRowType;                
 
EXIT WHEN C_PARAMETERS%NOTFOUND;                
 
IF paraRowType.code = 'yzpch' THEN                   
 
use_DownDictate := REPLACE(use_DownDictate,paraRowType.codecn||'#',c_rtype.yzpch);                
 
ELSIF paraRowType.code = 'yznh' THEN                   
 
use_DownDictate := REPLACE(use_DownDictate,paraRowType.codecn||'#',c_rtype.yznh);                
 
ELSIF paraRowType.code = 'yzc' THEN                   
 
use_DownDictate := REPLACE(use_DownDictate,paraRowType.codecn||'#',c_rtype.yzc);                
 
END IF;              
 
END LOOP;             
 
END;             
 
CLOSE C_PARAMETERS;    --关闭游标1          
 
--插入临时表              
 
INSERT INTO T_MEDIIMMETABLE(ReplaceResult,DateResult)              
 
VALUES(use_DownDictate,c_rtype.g_date);            
 
END LOOP;                      
 
CLOSE C_MEDIIMME;  --关闭游标2       
 
END;
 
END TESTQ;