43: l_chunk_size := 3000;
44:
45: WHILE (l_clob_size > 0) LOOP
46: l_chunk := dbms_lob.substr (p_xml_clob, l_chunk_size, l_offset);
47: fnd_file.put
48: (which => fnd_file.output
49: ,buff => l_chunk);
50:
51: l_clob_size := l_clob_size - l_chunk_size;
44:
45: WHILE (l_clob_size > 0) LOOP
46: l_chunk := dbms_lob.substr (p_xml_clob, l_chunk_size, l_offset);
47: fnd_file.put
48: (which => fnd_file.output
49: ,buff => l_chunk);
50:
51: l_clob_size := l_clob_size - l_chunk_size;
52: l_offset := l_offset + l_chunk_size;
51: l_clob_size := l_clob_size - l_chunk_size;
52: l_offset := l_offset + l_chunk_size;
53: END LOOP;
54:
55: fnd_file.new_line(fnd_file.output,1);
56:
57: EXCEPTION
58: WHEN OTHERS THEN
59: APP_EXCEPTION.RAISE_EXCEPTION;
63:
64: PROCEDURE put_starttag(tag_name IN VARCHAR2) IS
65: BEGIN
66:
67: fnd_file.put_line(fnd_file.output, '<'||tag_name||'>');
68: --fnd_file.new_line(fnd_file.output,1);
69:
70: EXCEPTION
71:
64: PROCEDURE put_starttag(tag_name IN VARCHAR2) IS
65: BEGIN
66:
67: fnd_file.put_line(fnd_file.output, '<'||tag_name||'>');
68: --fnd_file.new_line(fnd_file.output,1);
69:
70: EXCEPTION
71:
72: WHEN OTHERS then
76:
77: PROCEDURE put_endtag(tag_name IN VARCHAR2) IS
78: BEGIN
79:
80: fnd_file.put_line(fnd_file.output, '');
81: --fnd_file.new_line(fnd_file.output,1);
82:
83: EXCEPTION
84:
77: PROCEDURE put_endtag(tag_name IN VARCHAR2) IS
78: BEGIN
79:
80: fnd_file.put_line(fnd_file.output, '');
81: --fnd_file.new_line(fnd_file.output,1);
82:
83: EXCEPTION
84:
85: WHEN OTHERS then
90: PROCEDURE put_element(tag_name IN VARCHAR2,
91: value IN VARCHAR2) IS
92: BEGIN
93:
94: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
95: fnd_file.put(fnd_file.output, '
96: fnd_file.put(fnd_file.output, value);
97: fnd_file.put(fnd_file.output, ']]>');
98: fnd_file.put_line(fnd_file.output, '');
91: value IN VARCHAR2) IS
92: BEGIN
93:
94: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
95: fnd_file.put(fnd_file.output, '
96: fnd_file.put(fnd_file.output, value);
97: fnd_file.put(fnd_file.output, ']]>');
98: fnd_file.put_line(fnd_file.output, '');
99:
92: BEGIN
93:
94: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
95: fnd_file.put(fnd_file.output, '
96: fnd_file.put(fnd_file.output, value);
97: fnd_file.put(fnd_file.output, ']]>');
98: fnd_file.put_line(fnd_file.output, '');
99:
100: EXCEPTION
93:
94: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
95: fnd_file.put(fnd_file.output, '
96: fnd_file.put(fnd_file.output, value);
97: fnd_file.put(fnd_file.output, ']]>');
98: fnd_file.put_line(fnd_file.output, '');
99:
100: EXCEPTION
101:
94: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
95: fnd_file.put(fnd_file.output, '
96: fnd_file.put(fnd_file.output, value);
97: fnd_file.put(fnd_file.output, ']]>');
98: fnd_file.put_line(fnd_file.output, '');
99:
100: EXCEPTION
101:
102: WHEN OTHERS then