Oracle 游标的例子(待完善)

Create or replace procedure SRS_DELI_CREDENCE_EX2_COPY
(
    ZH_MARK_DIV  IN Varchar2
)
is
    v_v01 SRS_B_SALES_AMOUNT.SITE_CD%TYPE;
    v_v02 SRS_B_SALES_AMOUNT.SAL_SLIP_NO%TYPE;
    v_v03 SRS_B_SALES_AMOUNT.FROM_TYP%TYPE;
    v_v04 SRS_B_SALES_AMOUNT.DELI_INST_NO%TYPE;
    v_v05 SRS_B_SALES_AMOUNT.ORD_NO%TYPE;
    v_v06 SRS_B_SALES_AMOUNT.ORD_LINE_NO%TYPE;
    v_v07 SRS_B_SALES_AMOUNT.CUS_CD%TYPE;
    v_v08 SRS_B_SALES_AMOUNT.INVOICE_NO%TYPE;
    v_v09 SRS_B_SALES_AMOUNT.INVOICE_DATE%TYPE;
    v_v10 SRS_B_SALES_AMOUNT.MARK_DIV%TYPE;
    v_v11 SRS_B_SALES_AMOUNT.PRODUCT_GRP_CD%TYPE;
    v_v12 SRS_B_SALES_AMOUNT.SALES_ITEM_CD%TYPE;
    v_v13 SRS_B_SALES_AMOUNT.STOCK_ITEM_CD%TYPE;
    v_v14 SRS_B_SALES_AMOUNT.DELI_QTY%TYPE;
    v_v15 SRS_B_SALES_AMOUNT.UNIT_PRICE%TYPE;
    v_v16 SRS_B_SALES_AMOUNT.SAL_AMOUNT%TYPE;
    v_v17 SRS_B_SALES_AMOUNT.EXCH_RATE%TYPE;
    v_v18 SRS_B_SALES_AMOUNT.TAX_CD%TYPE;
    v_v19 SRS_B_SALES_AMOUNT.CUR_CD%TYPE;
    v_v20 SRS_B_SALES_AMOUNT.DELI_DATE%TYPE;
    v_v21 SRS_B_SALES_AMOUNT.CAN_TAKE_FLG%TYPE;
    v_v22 SRS_B_SALES_AMOUNT.IS_TAKE_FLG%TYPE;
    v_v23 SRS_B_SALES_AMOUNT.SAL_DATE%TYPE;
    v_v24 SRS_B_SALES_AMOUNT.OLD_SAL_SLIP_NO%TYPE;
    v_temp SRS_B_SALES_AMOUNT.SAL_SLIP_NO%TYPE;
    cursor mycursor1 is
        select SAL_SLIP_NO from SRS_B_SALES_AMOUNT where IS_TAKE_FLG='0' and CAN_TAKE_FLG='1';
begin
    delete from SRS_T_SALES_AMOUNT;
    open mycursor1; 
    loop
    fetch mycursor1 into v_temp;
    exit when mycursor1%notfound;
    select SITE_CD,
             SAL_SLIP_NO,
             FROM_TYP,
             DELI_INST_NO,
             ORD_NO,
             ORD_LINE_NO,
             CUS_CD,
             INVOICE_NO,
             INVOICE_DATE,
             MARK_DIV,
             PRODUCT_GRP_CD,
             SALES_ITEM_CD,
             STOCK_ITEM_CD,
             DELI_QTY,
             UNIT_PRICE,
             SAL_AMOUNT,
             EXCH_RATE,
             TAX_CD,
             CUR_CD,
             DELI_DATE,
             CAN_TAKE_FLG,
             IS_TAKE_FLG,
             SAL_DATE,
             OLD_SAL_SLIP_NO
     Into
             v_v01,
             v_v02,
             v_v03,
             v_v04,
             v_v05,
             v_v06,
             v_v07,
             v_v08,
             v_v09,
             v_v10,
             v_v11,
             v_v12,
             v_v13,
             v_v14,
             v_v15,
             v_v16,
             v_v17,
             v_v18,
             v_v19,
             v_v20,
             v_v21,
             v_v22,
             v_v23,
             v_v24
    from SRS_B_SALES_AMOUNT
    where SRS_B_SALES_AMOUNT.SAL_SLIP_NO = v_temp;
    insert into SRS_T_SALES_AMOUNT(
                                SITE_CD,
                                SAL_SLIP_NO,
                                FROM_TYP,
                                DELI_INST_NO,
                                ORD_NO,
                                ORD_LINE_NO,
                                CUS_CD,
                                INVOICE_NO,
                                INVOICE_DATE,
                                MARK_DIV,
                                PRODUCT_GRP_CD,
                                SALES_ITEM_CD,
                                STOCK_ITEM_CD,
                                DELI_QTY,
                                UNIT_PRICE,
                                SAL_AMOUNT,
                                EXCH_RATE,
                                TAX_CD,
                                CUR_CD,
                                DELI_DATE,
                                CAN_TAKE_FLG,
                                IS_TAKE_FLG,
                                SAL_DATE,
                                OLD_SAL_SLIP_NO)
                       values(
                                v_v01,
                                v_v02,
                                v_v03,
                                v_v04,
                                v_v05,
                                v_v06,
                                v_v07,
                                v_v08,
                                v_v09,
                                v_v10,
                                v_v11,
                                v_v12,
                                v_v13,
                                v_v14,
                                v_v15,
                                v_v16,
                                v_v17,
                                v_v18,
                                v_v19,
                                v_v20,
                                v_v21,
                                v_v22,
                                v_v23,
                                v_v24);
    end loop;
    close mycursor1;
commit;
end;