EXCEPTION

      WHEN OTHERS THEN

          x_vch_error_msg := p_i_job_id||'''' ''''||SUBSTR(SQLERRM(SQLCODE),1,100);

          COM_LOG.PUTLINE(p_i_job_id, x_vch_error_msg);

          ROLLBACK;

          RETURN GMY_GA000_PKG.gn#NG;

END GenerateInsCostInfRec;

3、当使用the Cursor FOR Loop循环时，在Loop循环里，把会出问题的情况拆分成子函数，分别处理。

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

-- Function Name      :  CopyDsToActualDs

-- Function Desc      :  Copy the records from DS DB to Actual DS DB.

-- Created by         :  Author

-- Created Date       :  2003-02-20

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

   FUNCTION CopyDsToActualDs (

        p_i_job_id         IN   VARCHAR2,

        p_i_as_of_date_id  IN   VARCHAR2)  RETURN NUMBER

    IS

        CURSOR cur_DsScc IS

            SELECT *

            FROM   GMY_DS_SCC;

    BEGIN

        FOR rec_DsHead IN cur_DsScc LOOP

            x_num_error_code := InsToActualScc(

                        p_i_job_id,

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