10: l_new_err_pos NUMBER;
11: l_pad NUMBER := 50;
12:
13: BEGIN
14: ec_debug.push ('ECE_ERROR_HANDLING_PVT.Print_Parse_Error');
15: if (p_err_pos > l_pad) then
16: l_start_pos := p_err_pos - l_pad;
17: else
18: l_start_pos := 0;
19: end if;
20:
21: l_new_err_pos := p_err_pos - l_start_pos + 1;
22:
23: ec_debug.pl (0,'EC', 'ECE_PARSING_ERROR', 'ERROR_POSITION', l_new_err_pos );
24: ec_debug.pl (0,substrb(p_string, l_start_pos, l_new_length));
25: ec_debug.pl (0,'EC', 'ECE_ERROR_CODE', 'ERROR_CODE', SQLCODE);
26: ec_debug.pl (0,'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
27: ec_debug.pop ('ECE_ERROR_HANDLING_PVT.Print_Parse_Error');
20:
21: l_new_err_pos := p_err_pos - l_start_pos + 1;
22:
23: ec_debug.pl (0,'EC', 'ECE_PARSING_ERROR', 'ERROR_POSITION', l_new_err_pos );
24: ec_debug.pl (0,substrb(p_string, l_start_pos, l_new_length));
25: ec_debug.pl (0,'EC', 'ECE_ERROR_CODE', 'ERROR_CODE', SQLCODE);
26: ec_debug.pl (0,'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
27: ec_debug.pop ('ECE_ERROR_HANDLING_PVT.Print_Parse_Error');
28: END Print_Parse_Error;
21: l_new_err_pos := p_err_pos - l_start_pos + 1;
22:
23: ec_debug.pl (0,'EC', 'ECE_PARSING_ERROR', 'ERROR_POSITION', l_new_err_pos );
24: ec_debug.pl (0,substrb(p_string, l_start_pos, l_new_length));
25: ec_debug.pl (0,'EC', 'ECE_ERROR_CODE', 'ERROR_CODE', SQLCODE);
26: ec_debug.pl (0,'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
27: ec_debug.pop ('ECE_ERROR_HANDLING_PVT.Print_Parse_Error');
28: END Print_Parse_Error;
29:
22:
23: ec_debug.pl (0,'EC', 'ECE_PARSING_ERROR', 'ERROR_POSITION', l_new_err_pos );
24: ec_debug.pl (0,substrb(p_string, l_start_pos, l_new_length));
25: ec_debug.pl (0,'EC', 'ECE_ERROR_CODE', 'ERROR_CODE', SQLCODE);
26: ec_debug.pl (0,'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
27: ec_debug.pop ('ECE_ERROR_HANDLING_PVT.Print_Parse_Error');
28: END Print_Parse_Error;
29:
30: END ECE_ERROR_HANDLING_PVT;
23: ec_debug.pl (0,'EC', 'ECE_PARSING_ERROR', 'ERROR_POSITION', l_new_err_pos );
24: ec_debug.pl (0,substrb(p_string, l_start_pos, l_new_length));
25: ec_debug.pl (0,'EC', 'ECE_ERROR_CODE', 'ERROR_CODE', SQLCODE);
26: ec_debug.pl (0,'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
27: ec_debug.pop ('ECE_ERROR_HANDLING_PVT.Print_Parse_Error');
28: END Print_Parse_Error;
29:
30: END ECE_ERROR_HANDLING_PVT;
31: