游标循环示例

 

DECLARE
O_CODE number(10);
O_MSG varchar2(2000);
V_MONTH varchar2(6);
V_INFO TD_CHL_PARAM_SOURCE%ROWTYPE;
CURSOR my_cursor IS
SELECT * FROM TD_CHL_PARAM_SOURCE t where t.EPARCHYS like '%0769%'
and t.IMPLEMENT like '%%@DBLINK_HCDRDB1%';
begin
    SELECT to_char(add_months(sysdate,-1),'yyyymm') into V_MONTH FROM dual;
    OPEN my_cursor;
    LOOP
        FETCH my_cursor INTO V_INFO;
        DBMS_OUTPUT.put_line(V_INFO.CODE||'  ,'||V_INFO.RULE_TYPES);
        EXIT WHEN my_cursor %NOTFOUND;
 /*pkg_param_tools.LOAD_SPECIAL_PARAM(V_INFO.CODE,'0769',V_INFO.RULE_TYPES,V_MONTH,'',O_CODE , O_MSG ) ;*/
    END LOOP;
    CLOSE my_cursor;
end;                                       
-----------

DECLARE
O_CODE number(10);
O_MSG varchar2(2000);
V_MONTH varchar2(6);
V_INFO TD_CHL_PARAM_SOURCE%ROWTYPE;
CURSOR my_cursor IS
SELECT * FROM TD_CHL_PARAM_SOURCE t where t.EPARCHYS like '%0769%'
and t.IMPLEMENT like '%%@DBLINK_HCDRDB1%';
begin
    SELECT to_char(add_months(sysdate,-1),'yyyymm') into V_MONTH FROM dual;
    FOR V_INFO IN my_cursor LOOP
        DBMS_OUTPUT.put_line(V_INFO.CODE||'  ,'||V_INFO.RULE_TYPES||'   ,'||V_MONTH);
        pkg_param_tools.LOAD_SPECIAL_PARAM(V_INFO.CODE,'0769',V_INFO.RULE_TYPES,V_MONTH,'',O_CODE , O_MSG ) ;
    END LOOP;
end;