java异常处理方法及流程 PL/SQL中的几种异常处理方法的源代码

PL/SQL中的几种异常处理方法的源代码  

　　用Fetch into a cursor%TYPE把要处理的数据放到记录集里 当一条数据不符条件时 用标签<<NEXT_RECORD>>和GOTO NEXT_RECORD　　　　 Function Name　　 :　CalculateImportCharge　　　　 Function Desc　　 :　Calculate Import Charge　　　　 Created by　　　　:　Author　　　　 Created Date　　　:　 　　　　　　FUNCTION CalculateImportCharge (　　　　　　　　p_i_job_id　　　　IN VARCHAR 　　　　　　　　p_i_as_of_date_id IN VARCHAR ) RETURN NUMBER　　　　　　AS　　　　　　　　CURSOR cur_ShipBlHeader IS　　　　　　　　　　SELECT import_folder_no　　　　　　　　　　FROM GMY_SHIP_BL_HEADER　　　　　　　　　　WHERE CANCEL_FLG = GMY_GA _PKG BL_CANCEL_FLG_OFF;　　　　　　　　rec_ShipBlHeader　　　　cur_ShipBlHeader%ROWTYPE;　　　　　　BEGIN　　　　　　　　OPEN cur_ShipBlHeader;　　　　　　　　FETCH cur_ShipBlHeader INTO rec_ShipBlHeader;　　　　　　　　WHILE cur_ShipBlHeader%FOUND LOOP　　　　　　　　　　x_num_error_code := GMY_GA _PKG CheckValidMasterBlNo (　　　　　　　　　　　　p_i_job_id 　　　　　　　　　　　　p_i_as_of_date_id 　　　　　　　　　　　　rec_ShipBlHeader import_folder_no 　　　　　　　　　　　　x_vch_message);　　　　　　　　　　IF x_num_error_code　　　　　　　　　　　　IN (GMY_GA _PKG gn#NG GMY_GA _PKG INVALID_BL_NO) THEN　　　　　　　　　　　　x_vch_message :=　　　　　　　　　　　　　　　　p_i_job_id　　　　　　　　　　　　　　　 || WARNING: Function CheckValidMasterBlNo @ 　　　　　　　　　　　　　　　 || Import folder 　　　　　　　　　　　　　　　 || rec_ShipBlHeader import_folder_no　　　　　　　　　　　　　　　 || Invalid BL No ;　　　　　　　　　　　　_LOG PUTLINE (p_i_job_id x_vch_message);　　　　　　　　　　　　GOTO NEXT_RECORD;　　　　　　　　　　END IF;　　　　　　　　　　x_num_error_code := CheckExistsOfAccDate (　　　　　　　　　　　　p_i_job_id 　　　　　　　　　　　　p_i_as_of_date_id 　　　　　　　　　　　　rec_ShipBlHeader import_folder_no);　　　　　　　　　　IF x_num_error_code = GMY_GA _PKG gn#NG THEN　　　　　　　　　　　　GOTO NEXT_RECORD;　　　　　　　　　　END IF;　　　　　　　　　　MIT;　　　　　　　　　　<<NEXT_RECORD>>　　　　　　　　　　FETCH cur_ShipBlHeader INTO rec_ShipBlHeader;　　　　　　　　END LOOP;　　　　　　　　CLOSE cur_ShipBlHeader;　　　　　　　　RETURN GMY_GA _PKG gn#OK;　　　　　　EXCEPTION　　　　　　　　WHEN OTHERS THEN　　　　　　　　　　x_vch_message :=　　　　　　　　　　　　　　p_i_job_id　　　　　　　　　　　　 || ERROR:　 Function CalculateImportCharge @ 　　　　　　　　　　　　 || SUBSTR (SQLERRM (SQLCODE) );　　　　　　　　　　_LOG PUTLINE (p_i_job_id x_vch_message);　　　　　　　　　　RETURN GMY_GA _PKG gn#NG;　　　　END CalculateImportCharge;　　　　 当使用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　　　: 　　　　　　FUNCTION GenerateInsCostInfRec (　　　　　　　　p_i_job_id　　　　　　 IN　　　 VARCHAR 　　　　　　　　p_i_as_of_date_id　　　IN　　　 VARCHAR ) RETURN NUMBER　　　　　　AS　　　　　　　　CURSOR cur_cost IS　　　　　　　　　　SELECT cost ROWID costRowId 　　　　　　　　　　　　　 cost import_folder_no 　　　　　　　　　　　　　 cost insur_trans_id　　　　　　　　　　FROM GMY_COST_BL cost 　　　　　　　　　　　　 GMY_MON_MST mst　　　　　　　　　　WHERE cost import_folder_no=invheader import_folder_no　　　　　　　　　　AND cost billing_amt_num IS NOT NULL　　　　　　　　　　AND cost billing_amt_num!= 　　　　　　　　　　AND cost insur_db_cr!= ;　　　　　　BEGIN　　　　　　　　FOR rec_cost IN cur_cost LOOP　　　　　　　　　　BEGIN　　　　　　　　　　　　x_num_ret_value := GMY_GA _PKG CheckValidMasterBlNo(　　　　　　　　　　　　　　　　　　　　p_i_job_id 　　　　　　　　　　　　　　　　　　　　p_i_as_of_date_id 　　　　　　　　　　　　　　　　　　　　rec_cost import_folder_no 　　　　　　　　　　　　　　　　　　　　x_vch_error_msg);　　　　　　　　　　　　IF x_num_ret_value = GMY_GA _PKG VALID_BL_NO THEN　　　　　　　　　　　　　　INSERT INTO GMY_COST_INS_INF(　　　　　　　　　　　　　　　　cost_trx_id 　　　　　　　　　　　　　　　　created_by 　　　　　　　　　　　　　　　　program_name)　　　　　　　　　　　　　　VALUES(　　　　　　　　　　　　　　　　GMY_COST_INS_INF_S NEXTVAL 　　　　　　　　　　　　　　　　PRG_NAME 　　　　　　　　　　　　　　　　PRG_NAME);　　　　　　　　　　　　ELSIF x_num_ret_value = GMY_GA _PKG INVALID_BL_NO THEN　　　　　　　　　　　　　　x_vch_error_msg := p_i_job_id　　　　　　　　　　　　　　　　|| Import folder 　　　　　　　　　　　　　　　　|| rec_cost import_folder_no　　　　　　　　　　　　　　　　|| has repeated BL No with other import folder 　　　　　　　　　　　　　　　　|| Failed in insurance cost transmission ;　　　　　　　　　　　　　　_LOG PUTLINE(p_i_job_id x_vch_error_msg);　　　　　　　　　　　　END IF;　　　　　　　　　　EXCEPTION　　　　　　　　　　　　WHEN OTHERS THEN　　　　　　　　　　　　　　IF SQL%ROWCOUNT > THEN　 check for too many rows 　　　　　　　　　　　　　　　 x_vch_error_msg := p_i_job_id|| ||　　　　　　　　　　　　　　　　　 SUBSTR(SQLERRM(SQLCODE) );　　　　　　　　　　　　　　　 _LOG PUTLINE(p_i_job_id x_vch_error_msg);　　　　　　　　　　　　　　ELSE　　　　　　　　　　　　　　　 x_vch_error_msg := p_i_job_id|| ||　　　　　　　　　　　　　　　　　 SUBSTR(SQLERRM(SQLCODE) );　　　　　　　　　　　　　　　 _LOG PUTLINE(p_i_job_id x_vch_error_msg);　　　　　　　　　　　　END IF;　　　　　　　　　　END;　　　　　　　　END LOOP;　　　　　　　　MIT;　　　　　　　　RETURN GMY_GA _PKG gn#OK;　　　　　　EXCEPTION　　　　　　　WHEN OTHERS THEN　　　　　　　　　x_vch_error_msg := p_i_job_id|| ||SUBSTR(SQLERRM(SQLCODE) );　　　　　　　　　_LOG PUTLINE(p_i_job_id x_vch_error_msg);　　　　　　　　　ROLLBACK;　　　　　　　　　RETURN GMY_GA _PKG gn#NG;　　　　END GenerateInsCostInfRec;　　　　 当使用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　　　 :　 　　　　　 FUNCTION CopyDsToActualDs (　　　　　　　　p_i_job_id　　　　 IN　 VARCHAR 　　　　　　　　p_i_as_of_date_id　IN　 VARCHAR )　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(　　 lishixinzhi/Article/program/Oracle/201311/18441