| ELSIF x_num_ret_value = GMY_GA000_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.'''';
COM_LOG.PUTLINE(p_i_job_id, x_vch_error_msg);
END IF;
EXCEPTION
WHEN OTHERS THEN
IF SQL%ROWCOUNT > 0 THEN -- check for ''''too many rows''''
x_vch_error_msg := p_i_job_id||'''' ''''||
SUBSTR(SQLERRM(SQLCODE),1,100);
COM_LOG.PUTLINE(p_i_job_id, x_vch_error_msg);
ELSE
x_vch_error_msg := p_i_job_id||'''' ''''||
SUBSTR(SQLERRM(SQLCODE),1,100);
COM_LOG.PUTLINE(p_i_job_id, x_vch_error_msg);
END IF;
END;
END LOOP;
COMMIT;
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页 | 
