oracle cursor 简单用法

procedure changeSpecialDiscount
(
  compID_in      IN VARCHAR2,
  ccID_in        IN VARCHAR2,
  coNO_in        IN VARCHAR2
)
IS
    sum_cc_all  number(14,4):= 0;
    wsp_disc    number(14,4);
    wspcl_disc     number;
    cnt_u         number;
    cnt_i        number(4);
    cnt2        number(4) := 1;
    tot_disc    number(14,4) := 0;
    act_cd        varchar2(2);
    
    witem_no    varchar2(4);
    wcost_cc    number(14,4);
    wqty_order    number(14,4);
    wlp_contr    number(14,4);
    wstatus        varchar2(4);
    wsrce_type    varchar2(1);
    wsp_per_unit_contr number(14,4);

    cursor c1 is
    select 
            ITEM_NO,COST_CC_CONTR,QTY_ORDER,LP_CUST_CONTR,STATUS,SRCE_TYPE,SP_PER_UNIT_CONTR
    from 
               tbco_item  
     where 
             COMP_ID = compID_in    AND 
            CC_ID = ccID_in        AND 
            CO_NO = coNO_in ;    
    
BEGIN           
        
      select 
             sum( sp_per_unit_contr * qty_order )
     into 
             sum_cc_all
     from 
               tbco_item  
     where 
             COMP_ID = compID_in    AND 
            CC_ID = ccID_in        AND 
            CO_NO = coNO_in ;    
    
            
     select  
              DISC_AMT
     into    
              wspcl_disc         
     from 
                tbco_head  
     where 
                 COMP_ID = compID_in    AND 
             CC_ID = ccID_in        AND 
             CO_NO = coNO_in ;
    
    select 
           count(*) 
    into 
           cnt_u
    from 
           tbco_item
    where 
                 COMP_ID = compID_in    AND 
             CC_ID = ccID_in        AND 
             CO_NO = coNO_in        AND
             date_cancel is null    AND
             nvl( sp_per_unit_contr, 0 ) <> 0;
             
     select 
             count(*) 
     into 
             cnt_i
     from 
               tbco_item  
     where 
             COMP_ID = compID_in    AND 
            CC_ID = ccID_in        AND 
            CO_NO = coNO_in ;            
    
    
    open c1;
    for idx in 1..cnt_i loop
    fetch c1 into witem_no, wcost_cc, wqty_order,
              wlp_contr, wstatus, wsrce_type, wsp_per_unit_contr;
              
    SELECT 
           ACTIVITY_CODE
    INTO 
           act_cd
    FROM 
           TBCM_STATUS
    WHERE 
           SYSTEM_CODE = 'CO'                    AND
           TABLE_LEVEL = '2'                    AND
            DATA_TYPE   = wsrce_type               AND
            (STATUS_NAME1 = wstatus OR STATUS_NAME2 = wstatus );          
              
    -- < Special discount distribution >    
    if wsp_per_unit_contr = 0 or act_cd = '15' then
        wsp_disc := 0;
    elsif cnt2 < cnt_u then
        wsp_disc := round(wspcl_disc * ( wsp_per_unit_contr * wqty_order / sum_cc_all),2);
        cnt2 := cnt2 + 1;
    elsif cnt2 >= cnt_u then
        wsp_disc := wspcl_disc - tot_disc;
    end if;    
    
    -- Accumulation of distributed selling price
    tot_disc := tot_disc + round(wsp_disc,2);
    
    --  Updating item special discount    
        update 
               tbco_item
        set 
            special_disc = round(wsp_disc,2),
            date_modify = sysdate         
        where 
             COMP_ID = compID_in    AND 
            CC_ID = ccID_in        AND 
            CO_NO = coNO_in           AND
            item_no = witem_no;    
end loop;
close c1;                
END;