1: PACKAGE BODY ECX_ERROR_HANDLING_PVT AS
2: -- $Header: ECXERRHB.pls 120.2 2006/05/24 16:26:13 susaha ship $
3:
4: l_procedure PLS_INTEGER := ecx_debug.g_procedure;
5: l_statement PLS_INTEGER := ecx_debug.g_statement;
6: l_unexpected PLS_INTEGER := ecx_debug.g_unexpected;
7: l_procedureEnabled boolean := ecx_debug.g_procedureEnabled;
8: l_statementEnabled boolean := ecx_debug.g_statementEnabled;
1: PACKAGE BODY ECX_ERROR_HANDLING_PVT AS
2: -- $Header: ECXERRHB.pls 120.2 2006/05/24 16:26:13 susaha ship $
3:
4: l_procedure PLS_INTEGER := ecx_debug.g_procedure;
5: l_statement PLS_INTEGER := ecx_debug.g_statement;
6: l_unexpected PLS_INTEGER := ecx_debug.g_unexpected;
7: l_procedureEnabled boolean := ecx_debug.g_procedureEnabled;
8: l_statementEnabled boolean := ecx_debug.g_statementEnabled;
9: l_unexpectedEnabled boolean := ecx_debug.g_unexpectedEnabled;
2: -- $Header: ECXERRHB.pls 120.2 2006/05/24 16:26:13 susaha ship $
3:
4: l_procedure PLS_INTEGER := ecx_debug.g_procedure;
5: l_statement PLS_INTEGER := ecx_debug.g_statement;
6: l_unexpected PLS_INTEGER := ecx_debug.g_unexpected;
7: l_procedureEnabled boolean := ecx_debug.g_procedureEnabled;
8: l_statementEnabled boolean := ecx_debug.g_statementEnabled;
9: l_unexpectedEnabled boolean := ecx_debug.g_unexpectedEnabled;
10:
3:
4: l_procedure PLS_INTEGER := ecx_debug.g_procedure;
5: l_statement PLS_INTEGER := ecx_debug.g_statement;
6: l_unexpected PLS_INTEGER := ecx_debug.g_unexpected;
7: l_procedureEnabled boolean := ecx_debug.g_procedureEnabled;
8: l_statementEnabled boolean := ecx_debug.g_statementEnabled;
9: l_unexpectedEnabled boolean := ecx_debug.g_unexpectedEnabled;
10:
11: PROCEDURE Print_Parse_Error (
4: l_procedure PLS_INTEGER := ecx_debug.g_procedure;
5: l_statement PLS_INTEGER := ecx_debug.g_statement;
6: l_unexpected PLS_INTEGER := ecx_debug.g_unexpected;
7: l_procedureEnabled boolean := ecx_debug.g_procedureEnabled;
8: l_statementEnabled boolean := ecx_debug.g_statementEnabled;
9: l_unexpectedEnabled boolean := ecx_debug.g_unexpectedEnabled;
10:
11: PROCEDURE Print_Parse_Error (
12: p_err_pos IN PLS_INTEGER,
5: l_statement PLS_INTEGER := ecx_debug.g_statement;
6: l_unexpected PLS_INTEGER := ecx_debug.g_unexpected;
7: l_procedureEnabled boolean := ecx_debug.g_procedureEnabled;
8: l_statementEnabled boolean := ecx_debug.g_statementEnabled;
9: l_unexpectedEnabled boolean := ecx_debug.g_unexpectedEnabled;
10:
11: PROCEDURE Print_Parse_Error (
12: p_err_pos IN PLS_INTEGER,
13: p_string IN VARCHAR2) IS
20: l_pad PLS_INTEGER := 50;
21:
22: BEGIN
23: if (l_procedureEnabled) then
24: ecx_debug.push(i_method_name);
25: end if;
26: if (p_err_pos > l_pad) then
27: l_start_pos := p_err_pos - l_pad;
28: else
32: l_new_err_pos := p_err_pos - l_start_pos + 1;
33:
34:
35: if(l_statementEnabled) then
36: ecx_debug.log(l_statement,'ECX', 'ECX_PARSING_ERROR', i_method_name,
37: 'ERROR_POSITION', l_new_err_pos );
38: ecx_debug.log (l_statement,substrb(p_string, l_start_pos, l_new_length),i_method_name);
39: ecx_debug.log (l_statement,'ECX', 'ECX_ERROR_CODE', i_method_name,'ERROR_CODE', SQLCODE);
40: ecx_debug.log (l_statement,'ECX', 'ECX_ERROR_MESSAGE',i_method_name, 'ERROR_MESSAGE', SQLERRM);
34:
35: if(l_statementEnabled) then
36: ecx_debug.log(l_statement,'ECX', 'ECX_PARSING_ERROR', i_method_name,
37: 'ERROR_POSITION', l_new_err_pos );
38: ecx_debug.log (l_statement,substrb(p_string, l_start_pos, l_new_length),i_method_name);
39: ecx_debug.log (l_statement,'ECX', 'ECX_ERROR_CODE', i_method_name,'ERROR_CODE', SQLCODE);
40: ecx_debug.log (l_statement,'ECX', 'ECX_ERROR_MESSAGE',i_method_name, 'ERROR_MESSAGE', SQLERRM);
41: end if;
42:
35: if(l_statementEnabled) then
36: ecx_debug.log(l_statement,'ECX', 'ECX_PARSING_ERROR', i_method_name,
37: 'ERROR_POSITION', l_new_err_pos );
38: ecx_debug.log (l_statement,substrb(p_string, l_start_pos, l_new_length),i_method_name);
39: ecx_debug.log (l_statement,'ECX', 'ECX_ERROR_CODE', i_method_name,'ERROR_CODE', SQLCODE);
40: ecx_debug.log (l_statement,'ECX', 'ECX_ERROR_MESSAGE',i_method_name, 'ERROR_MESSAGE', SQLERRM);
41: end if;
42:
43: if (l_procedureEnabled) then
36: ecx_debug.log(l_statement,'ECX', 'ECX_PARSING_ERROR', i_method_name,
37: 'ERROR_POSITION', l_new_err_pos );
38: ecx_debug.log (l_statement,substrb(p_string, l_start_pos, l_new_length),i_method_name);
39: ecx_debug.log (l_statement,'ECX', 'ECX_ERROR_CODE', i_method_name,'ERROR_CODE', SQLCODE);
40: ecx_debug.log (l_statement,'ECX', 'ECX_ERROR_MESSAGE',i_method_name, 'ERROR_MESSAGE', SQLERRM);
41: end if;
42:
43: if (l_procedureEnabled) then
44: ecx_debug.pop(i_method_name);
40: ecx_debug.log (l_statement,'ECX', 'ECX_ERROR_MESSAGE',i_method_name, 'ERROR_MESSAGE', SQLERRM);
41: end if;
42:
43: if (l_procedureEnabled) then
44: ecx_debug.pop(i_method_name);
45: end if;
46: END Print_Parse_Error;
47:
48: END ECX_ERROR_HANDLING_PVT;