CLOSE cur_ShipBlHeader;

        RETURN GMY_GA000_PKG.gn#OK;

    EXCEPTION

        WHEN OTHERS THEN

            x_vch_message :=

                    p_i_job_id

                 || '''' ERROR:   Function CalculateImportCharge @ ''''

                 || SUBSTR (SQLERRM (SQLCODE), 1, 100);

            COM_LOG.PUTLINE (p_i_job_id, x_vch_message);

            RETURN GMY_GA000_PKG.gn#NG;

END CalculateImportCharge;

2、当使用the Cursor FOR Loop循环时，在Loop循环里，把会出问题的情况写进一个独立的block块中，这个块包括完整的begin、end部分及exception异常处理部分。这样即使一条数据出现异常，也会继续执行下一条。

-------------------------------------------------------------------------------

-- Function Name     : GenerateInsCostInfRec

-- Function Desc     : Generate records to transmit in INF table

-- Created by        : SISS(AP)

-- Created Date      : 2003-03-26

-- ----------------------------------------------------------------------------

    FUNCTION GenerateInsCostInfRec (

        p_i_job_id             IN       VARCHAR2,

        p_i_as_of_date_id      IN       VARCHAR2) RETURN NUMBER

    AS

        CURSOR cur_cost IS

            SELECT cost.ROWID costRowId,

                   cost.import_folder_no,,

                   cost.insur_trans_id

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9]  下一页