35: || ' ); END; ';
36:
37: EXECUTE IMMEDIATE l_exec_stmt USING out l_xml_data;
38:
39: dbms_lob.createtemporary(l_final_xml_data,false,dbms_lob.session);
40: dbms_lob.open(l_final_xml_data,dbms_lob.lob_readwrite);
41:
42:
43: l_start_pos := dbms_lob.instr( l_xml_data, '
36:
37: EXECUTE IMMEDIATE l_exec_stmt USING out l_xml_data;
38:
39: dbms_lob.createtemporary(l_final_xml_data,false,dbms_lob.session);
40: dbms_lob.open(l_final_xml_data,dbms_lob.lob_readwrite);
41:
42:
43: l_start_pos := dbms_lob.instr( l_xml_data, '
44: l_end_pos := dbms_lob.instr( l_xml_data, '?>');
39: dbms_lob.createtemporary(l_final_xml_data,false,dbms_lob.session);
40: dbms_lob.open(l_final_xml_data,dbms_lob.lob_readwrite);
41:
42:
43: l_start_pos := dbms_lob.instr( l_xml_data, '
44: l_end_pos := dbms_lob.instr( l_xml_data, '?>');
45:
46: IF l_start_pos -1 > 0 THEN
47: dbms_lob.copy(l_final_xml_data,l_xml_data,l_start_pos -1, 1,1);
40: dbms_lob.open(l_final_xml_data,dbms_lob.lob_readwrite);
41:
42:
43: l_start_pos := dbms_lob.instr( l_xml_data, '
44: l_end_pos := dbms_lob.instr( l_xml_data, '?>');
45:
46: IF l_start_pos -1 > 0 THEN
47: dbms_lob.copy(l_final_xml_data,l_xml_data,l_start_pos -1, 1,1);
48: END IF;
43: l_start_pos := dbms_lob.instr( l_xml_data, '
44: l_end_pos := dbms_lob.instr( l_xml_data, '?>');
45:
46: IF l_start_pos -1 > 0 THEN
47: dbms_lob.copy(l_final_xml_data,l_xml_data,l_start_pos -1, 1,1);
48: END IF;
49: l_charset := null;
50:
51: OPEN c_dbnlscharset;
54:
55:
56: l_header :='';
57:
58: dbms_lob.writeappend(l_final_xml_data,length(l_header),l_header);
59: l_len := dbms_lob.getlength(l_final_xml_data);
60:
61: -- Bug # 5967599
62: -- Added the below condition to handle the data if it doesn't contain
55:
56: l_header :='';
57:
58: dbms_lob.writeappend(l_final_xml_data,length(l_header),l_header);
59: l_len := dbms_lob.getlength(l_final_xml_data);
60:
61: -- Bug # 5967599
62: -- Added the below condition to handle the data if it doesn't contain
63: -- XML header.
61: -- Bug # 5967599
62: -- Added the below condition to handle the data if it doesn't contain
63: -- XML header.
64: if (l_end_pos <> 0) then
65: dbms_lob.copy(l_final_xml_data,l_xml_data, dbms_lob.getlength(l_xml_data)-l_end_pos,l_len+1, l_end_pos+2);
66: else
67: dbms_lob.copy(l_final_xml_data,l_xml_data, dbms_lob.getlength(l_xml_data)-l_end_pos,l_len+1, l_end_pos+1);
68: end if;
69: dbms_lob.close(l_xml_data);
63: -- XML header.
64: if (l_end_pos <> 0) then
65: dbms_lob.copy(l_final_xml_data,l_xml_data, dbms_lob.getlength(l_xml_data)-l_end_pos,l_len+1, l_end_pos+2);
66: else
67: dbms_lob.copy(l_final_xml_data,l_xml_data, dbms_lob.getlength(l_xml_data)-l_end_pos,l_len+1, l_end_pos+1);
68: end if;
69: dbms_lob.close(l_xml_data);
70: p_xml_data := l_final_xml_data;
71:
65: dbms_lob.copy(l_final_xml_data,l_xml_data, dbms_lob.getlength(l_xml_data)-l_end_pos,l_len+1, l_end_pos+2);
66: else
67: dbms_lob.copy(l_final_xml_data,l_xml_data, dbms_lob.getlength(l_xml_data)-l_end_pos,l_len+1, l_end_pos+1);
68: end if;
69: dbms_lob.close(l_xml_data);
70: p_xml_data := l_final_xml_data;
71:
72:
73: End exec_report_map_function;
109: || ' ); END; ';
110:
111: EXECUTE IMMEDIATE l_exec_stmt USING out l_xml_data;
112:
113: /*dbms_lob.createtemporary(l_final_xml_data,false,dbms_lob.session);
114: dbms_lob.open(l_final_xml_data,dbms_lob.lob_readwrite);
115:
116:
117: l_start_pos := dbms_lob.instr( l_xml_data, '
110:
111: EXECUTE IMMEDIATE l_exec_stmt USING out l_xml_data;
112:
113: /*dbms_lob.createtemporary(l_final_xml_data,false,dbms_lob.session);
114: dbms_lob.open(l_final_xml_data,dbms_lob.lob_readwrite);
115:
116:
117: l_start_pos := dbms_lob.instr( l_xml_data, '
118: l_end_pos := dbms_lob.instr( l_xml_data, '?>');
113: /*dbms_lob.createtemporary(l_final_xml_data,false,dbms_lob.session);
114: dbms_lob.open(l_final_xml_data,dbms_lob.lob_readwrite);
115:
116:
117: l_start_pos := dbms_lob.instr( l_xml_data, '
118: l_end_pos := dbms_lob.instr( l_xml_data, '?>');
119:
120: IF l_start_pos -1 > 0 THEN
121: dbms_lob.copy(l_final_xml_data,l_xml_data,l_start_pos -1, 1,1);
114: dbms_lob.open(l_final_xml_data,dbms_lob.lob_readwrite);
115:
116:
117: l_start_pos := dbms_lob.instr( l_xml_data, '
118: l_end_pos := dbms_lob.instr( l_xml_data, '?>');
119:
120: IF l_start_pos -1 > 0 THEN
121: dbms_lob.copy(l_final_xml_data,l_xml_data,l_start_pos -1, 1,1);
122: END IF;
117: l_start_pos := dbms_lob.instr( l_xml_data, '
118: l_end_pos := dbms_lob.instr( l_xml_data, '?>');
119:
120: IF l_start_pos -1 > 0 THEN
121: dbms_lob.copy(l_final_xml_data,l_xml_data,l_start_pos -1, 1,1);
122: END IF;
123: l_charset := null;
124:
125: OPEN c_dbnlscharset;
128:
129:
130: l_header :='';
131:
132: dbms_lob.writeappend(l_final_xml_data,length(l_header),l_header);
133: l_len := dbms_lob.getlength(l_final_xml_data);
134:
135: dbms_lob.copy(l_final_xml_data,l_xml_data, dbms_lob.getlength(l_xml_data)-l_end_pos,l_len+1, l_end_pos+2);
136: dbms_lob.close(l_xml_data);*/
129:
130: l_header :='';
131:
132: dbms_lob.writeappend(l_final_xml_data,length(l_header),l_header);
133: l_len := dbms_lob.getlength(l_final_xml_data);
134:
135: dbms_lob.copy(l_final_xml_data,l_xml_data, dbms_lob.getlength(l_xml_data)-l_end_pos,l_len+1, l_end_pos+2);
136: dbms_lob.close(l_xml_data);*/
137: p_xml_data := l_xml_data;
131:
132: dbms_lob.writeappend(l_final_xml_data,length(l_header),l_header);
133: l_len := dbms_lob.getlength(l_final_xml_data);
134:
135: dbms_lob.copy(l_final_xml_data,l_xml_data, dbms_lob.getlength(l_xml_data)-l_end_pos,l_len+1, l_end_pos+2);
136: dbms_lob.close(l_xml_data);*/
137: p_xml_data := l_xml_data;
138:
139:
132: dbms_lob.writeappend(l_final_xml_data,length(l_header),l_header);
133: l_len := dbms_lob.getlength(l_final_xml_data);
134:
135: dbms_lob.copy(l_final_xml_data,l_xml_data, dbms_lob.getlength(l_xml_data)-l_end_pos,l_len+1, l_end_pos+2);
136: dbms_lob.close(l_xml_data);*/
137: p_xml_data := l_xml_data;
138:
139:
140: End exec_report_map_function;