plsql 游标示例

DECLARE 
    KMDM TD_KMDM.KMDM%TYPE;
    TABLENAME VARCHAR2(20);
    CURSOR CUR IS SELECT distinct KMDM FROM TD_KLKMKSB WHERE KSDM=1 ORDER BY KMDM;    
BEGIN
    /*TYPE1
    FOR C IN CUR LOOP
        DBMS_OUTPUT.put_line('KMDM:'||C.KMDM);
        TABLENAME:='T_1_'||C.KMDM||'_PYJD';
        execute immediate 'insert into t_all_pyjd SELECT * FROM '||TABLENAME;
    END LOOP;
    */ 
    /*TYPE2   
    open CUR; 
    loop 
         fetch cur into KMDM; 
         TABLENAME:='T_1_'||KMDM||'_PYJD';
         execute immediate 'insert into t_all_pyjd SELECT * FROM '||TABLENAME;
         exit when CUR%notfound; 
    END LOOP;
    CLOSE CUR;
    */
END;