• oracle 游标


    declare
    TYPE t_cursor IS REF CURSOR;
    c_custids t_cursor;
    v_Date Date;
    v_branchid varchar2(3);
    BEGIN
    open c_custids for select * From (/*select distinct billingdate,branchid from tb_gos_sale_salestockoutsum where billingdate >to_date('2012-01-01','yyyy-mm-dd')
    union */
    select distinct billingdate,branchid from tb_gos_sale_salestockinsum where billingdate >to_date('2012-01-01','yyyy-mm-dd')
    /* union
    select distinct billingdate,branchid from TB_GOS_SALE_SALEPREMIUMsum where billingdate >to_date('2012-01-01','yyyy-mm-dd')*/
    ) a order by billingdate desc;
    loop
    fetch c_custids into v_Date,v_branchid;
    exit when c_custids%notfound;
    dbms_output.put_line(v_Date);
    pkg_importdata_day.GetHaveBusiCustDay(to_char(v_Date,'yyyy-mm-dd'),v_branchid);
    pkg_importdata_day.GetHaveBusiProdDay(to_char(v_Date,'yyyy-mm-dd'),v_branchid);

    end loop;
    close c_custids;
    END;

    procedure GetAllCustlongDays(p_branchid in varchar2) is
    TYPE t_cursor IS REF CURSOR;
    c_custids t_cursor;
    v_custid varchar2(20);
    BEGIN
    open c_custids for select custid from vw_common_cust where branchid=p_branchid;
    loop
    fetch c_custids into v_custid;
    exit when c_custids%notfound;
    GetCustlongDays( v_custid,p_branchid);
    end loop;
    close c_custids;
    END;

  • 相关阅读:
    Web服务器的Socket通信
    Love story
    Excel初探索 - 2008/3
    One Person Game ZOJ Problem Set 3329
    只有程序员才看得懂的情书
    Collecting Bugs_poj2096
    Scout YYF I_poj3744
    hdu 3336 Count the string
    hdu 1669 Jamie's Contact Groups
    poj 1240
  • 原文地址:https://www.cnblogs.com/pan11jing/p/2821946.html
Copyright © 2020-2023  润新知