26:
27: --DBMS_OUTPUT.PUT_LINE('NUMBER OF THEMES := '||p_index);
28: IF (p_index > 0) THEN
29: WHILE (l_bool) LOOP
30: SELECT INSTR(p_theme_str, '
32: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
33: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_themes(l_count).THEME FROM DUAL;
34: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_themes(l_count).WEIGHT FROM DUAL;
27: --DBMS_OUTPUT.PUT_LINE('NUMBER OF THEMES := '||p_index);
28: IF (p_index > 0) THEN
29: WHILE (l_bool) LOOP
30: SELECT INSTR(p_theme_str, '
31: SELECT SUBSTR(p_theme_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
32: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
33: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_themes(l_count).THEME FROM DUAL;
34: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_themes(l_count).WEIGHT FROM DUAL;
35: l_count := l_count+1;
28: IF (p_index > 0) THEN
29: WHILE (l_bool) LOOP
30: SELECT INSTR(p_theme_str, '
31: SELECT SUBSTR(p_theme_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
32: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;33: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_themes(l_count).THEME FROM DUAL;
34: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_themes(l_count).WEIGHT FROM DUAL;
35: l_count := l_count+1;
36: SELECT SUBSTR(p_theme_str,l_loc_t+3) INTO l_theme_str FROM DUAL;
29: WHILE (l_bool) LOOP
30: SELECT INSTR(p_theme_str, '
31: SELECT SUBSTR(p_theme_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
32: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
33: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_themes(l_count).THEME FROM DUAL;
34: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_themes(l_count).WEIGHT FROM DUAL;
35: l_count := l_count+1;
36: SELECT SUBSTR(p_theme_str,l_loc_t+3) INTO l_theme_str FROM DUAL;
37: p_theme_str := l_theme_str;
30: SELECT INSTR(p_theme_str, '
31: SELECT SUBSTR(p_theme_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
32: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
33: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_themes(l_count).THEME FROM DUAL;
34: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_themes(l_count).WEIGHT FROM DUAL;
35: l_count := l_count+1;
36: SELECT SUBSTR(p_theme_str,l_loc_t+3) INTO l_theme_str FROM DUAL;
37: p_theme_str := l_theme_str;
38: p_index := p_index-1;
32: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
33: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_themes(l_count).THEME FROM DUAL;
34: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_themes(l_count).WEIGHT FROM DUAL;
35: l_count := l_count+1;
36: SELECT SUBSTR(p_theme_str,l_loc_t+3) INTO l_theme_str FROM DUAL;
37: p_theme_str := l_theme_str;
38: p_index := p_index-1;
39:
40: IF (p_index < 1) THEN
80:
81: --DBMS_OUTPUT.PUT_LINE('NUMBER OF THEMES := '||p_index);
82: IF (p_index > 0) THEN
83: WHILE (l_bool) LOOP
84: SELECT INSTR(p_highlight_str, '
86: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
87: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_highlight_buf(l_count).offset FROM DUAL;
88: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_highlight_buf(l_count).length FROM DUAL;
81: --DBMS_OUTPUT.PUT_LINE('NUMBER OF THEMES := '||p_index);
82: IF (p_index > 0) THEN
83: WHILE (l_bool) LOOP
84: SELECT INSTR(p_highlight_str, '
85: SELECT SUBSTR(p_highlight_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
86: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
87: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_highlight_buf(l_count).offset FROM DUAL;
88: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_highlight_buf(l_count).length FROM DUAL;
89: l_count := l_count+1;
82: IF (p_index > 0) THEN
83: WHILE (l_bool) LOOP
84: SELECT INSTR(p_highlight_str, '
85: SELECT SUBSTR(p_highlight_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
86: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;87: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_highlight_buf(l_count).offset FROM DUAL;
88: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_highlight_buf(l_count).length FROM DUAL;
89: l_count := l_count+1;
90: SELECT SUBSTR(p_highlight_str,l_loc_t+3) INTO l_highlight_str FROM DUAL;
83: WHILE (l_bool) LOOP
84: SELECT INSTR(p_highlight_str, '
85: SELECT SUBSTR(p_highlight_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
86: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
87: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_highlight_buf(l_count).offset FROM DUAL;
88: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_highlight_buf(l_count).length FROM DUAL;
89: l_count := l_count+1;
90: SELECT SUBSTR(p_highlight_str,l_loc_t+3) INTO l_highlight_str FROM DUAL;
91: p_highlight_str := l_highlight_str;
84: SELECT INSTR(p_highlight_str, '
85: SELECT SUBSTR(p_highlight_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
86: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
87: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_highlight_buf(l_count).offset FROM DUAL;
88: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_highlight_buf(l_count).length FROM DUAL;
89: l_count := l_count+1;
90: SELECT SUBSTR(p_highlight_str,l_loc_t+3) INTO l_highlight_str FROM DUAL;
91: p_highlight_str := l_highlight_str;
92: p_index := p_index-1;
86: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
87: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_highlight_buf(l_count).offset FROM DUAL;
88: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_highlight_buf(l_count).length FROM DUAL;
89: l_count := l_count+1;
90: SELECT SUBSTR(p_highlight_str,l_loc_t+3) INTO l_highlight_str FROM DUAL;
91: p_highlight_str := l_highlight_str;
92: p_index := p_index-1;
93:
94: IF (p_index < 1) THEN
133: EXECUTE IMMEDIATE l_plsql_block USING OUT l_status, IN p_message_id,OUT
134: p_part_str, OUT p_index;
135: IF (p_index > 0) THEN
136: WHILE (l_bool) LOOP
137: SELECT INSTR(p_part_str, '
139:
140: SELECT SUBSTR(p_part_str,l_loc_t+3) INTO l_part_str FROM DUAL;
141: p_part_str := l_part_str;
134: p_part_str, OUT p_index;
135: IF (p_index > 0) THEN
136: WHILE (l_bool) LOOP
137: SELECT INSTR(p_part_str, '
138: SELECT SUBSTR(p_part_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
139:
140: SELECT SUBSTR(p_part_str,l_loc_t+3) INTO l_part_str FROM DUAL;
141: p_part_str := l_part_str;
142: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
136: WHILE (l_bool) LOOP
137: SELECT INSTR(p_part_str, '
138: SELECT SUBSTR(p_part_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
139:
140: SELECT SUBSTR(p_part_str,l_loc_t+3) INTO l_part_str FROM DUAL;
141: p_part_str := l_part_str;
142: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
143: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_parts(l_count).part_number FROM DUAL;
144:
138: SELECT SUBSTR(p_part_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
139:
140: SELECT SUBSTR(p_part_str,l_loc_t+3) INTO l_part_str FROM DUAL;
141: p_part_str := l_part_str;
142: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;143: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_parts(l_count).part_number FROM DUAL;
144:
145: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO l_temp_str FROM DUAL;
146:
139:
140: SELECT SUBSTR(p_part_str,l_loc_t+3) INTO l_part_str FROM DUAL;
141: p_part_str := l_part_str;
142: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
143: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_parts(l_count).part_number FROM DUAL;
144:
145: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO l_temp_str FROM DUAL;
146:
147: SELECT INSTR(l_temp_str, '
141: p_part_str := l_part_str;
142: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
143: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_parts(l_count).part_number FROM DUAL;
144:
145: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO l_temp_str FROM DUAL;
146:
147: SELECT INSTR(l_temp_str, '
148: SELECT SUBSTR(l_temp_str,1,l_loc_f-1) INTO p_parts(l_count).content_type FROM DUAL;
149:
143: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_parts(l_count).part_number FROM DUAL;
144:
145: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO l_temp_str FROM DUAL;
146:
147: SELECT INSTR(l_temp_str, '
149:
150: SELECT SUBSTR(l_temp_str,l_loc_f+3) INTO l_work_str FROM DUAL;
151:
144:
145: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO l_temp_str FROM DUAL;
146:
147: SELECT INSTR(l_temp_str, '
148: SELECT SUBSTR(l_temp_str,1,l_loc_f-1) INTO p_parts(l_count).content_type FROM DUAL;
149:
150: SELECT SUBSTR(l_temp_str,l_loc_f+3) INTO l_work_str FROM DUAL;
151:
152:
146:
147: SELECT INSTR(l_temp_str, '
148: SELECT SUBSTR(l_temp_str,1,l_loc_f-1) INTO p_parts(l_count).content_type FROM DUAL;
149:
150: SELECT SUBSTR(l_temp_str,l_loc_f+3) INTO l_work_str FROM DUAL;
151:
152:
153: SELECT INSTR(l_work_str, '
154: SELECT SUBSTR(l_work_str,1, l_loc_g-1) INTO p_parts(l_count).is_binary FROM DUAL;
149:
150: SELECT SUBSTR(l_temp_str,l_loc_f+3) INTO l_work_str FROM DUAL;
151:
152:
153: SELECT INSTR(l_work_str, '
155:
156:
157: SELECT SUBSTR(l_work_str,l_loc_g+3) INTO l_temp_str FROM DUAL;
150: SELECT SUBSTR(l_temp_str,l_loc_f+3) INTO l_work_str FROM DUAL;
151:
152:
153: SELECT INSTR(l_work_str, '
154: SELECT SUBSTR(l_work_str,1, l_loc_g-1) INTO p_parts(l_count).is_binary FROM DUAL;
155:
156:
157: SELECT SUBSTR(l_work_str,l_loc_g+3) INTO l_temp_str FROM DUAL;
158:
153: SELECT INSTR(l_work_str, '
154: SELECT SUBSTR(l_work_str,1, l_loc_g-1) INTO p_parts(l_count).is_binary FROM DUAL;
155:
156:
157: SELECT SUBSTR(l_work_str,l_loc_g+3) INTO l_temp_str FROM DUAL;
158:
159: SELECT INSTR(l_temp_str, '
160: SELECT SUBSTR(l_temp_str,1, l_loc_h-1) INTO p_parts(l_count).att_size FROM DUAL;
161:
155:
156:
157: SELECT SUBSTR(l_work_str,l_loc_g+3) INTO l_temp_str FROM DUAL;
158:
159: SELECT INSTR(l_temp_str, '
161:
162: SELECT SUBSTR(l_temp_str,l_loc_h+3) INTO p_parts(l_count).att_name FROM DUAL;
163:
156:
157: SELECT SUBSTR(l_work_str,l_loc_g+3) INTO l_temp_str FROM DUAL;
158:
159: SELECT INSTR(l_temp_str, '
160: SELECT SUBSTR(l_temp_str,1, l_loc_h-1) INTO p_parts(l_count).att_size FROM DUAL;
161:
162: SELECT SUBSTR(l_temp_str,l_loc_h+3) INTO p_parts(l_count).att_name FROM DUAL;
163:
164: l_count := l_count+1;
158:
159: SELECT INSTR(l_temp_str, '
160: SELECT SUBSTR(l_temp_str,1, l_loc_h-1) INTO p_parts(l_count).att_size FROM DUAL;
161:
162: SELECT SUBSTR(l_temp_str,l_loc_h+3) INTO p_parts(l_count).att_name FROM DUAL;
163:
164: l_count := l_count+1;
165: p_index := p_index-1;
166:
201: OUT p_header_str, OUT p_index;
202:
203: IF (p_index > 0) THEN
204: WHILE (l_bool) LOOP
205: SELECT INSTR(p_header_str, '
207: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
208: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_headers(l_count).hdr_name FROM DUAL;
209: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_headers(l_count).hdr_value FROM DUAL;
202:
203: IF (p_index > 0) THEN
204: WHILE (l_bool) LOOP
205: SELECT INSTR(p_header_str, '
206: SELECT SUBSTR(p_header_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
207: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
208: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_headers(l_count).hdr_name FROM DUAL;
209: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_headers(l_count).hdr_value FROM DUAL;
210: l_count := l_count+1;
203: IF (p_index > 0) THEN
204: WHILE (l_bool) LOOP
205: SELECT INSTR(p_header_str, '
206: SELECT SUBSTR(p_header_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
207: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;208: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_headers(l_count).hdr_name FROM DUAL;
209: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_headers(l_count).hdr_value FROM DUAL;
210: l_count := l_count+1;
211: SELECT SUBSTR(p_header_str,l_loc_t+3) INTO l_header_str FROM DUAL;
204: WHILE (l_bool) LOOP
205: SELECT INSTR(p_header_str, '
206: SELECT SUBSTR(p_header_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
207: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
208: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_headers(l_count).hdr_name FROM DUAL;
209: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_headers(l_count).hdr_value FROM DUAL;
210: l_count := l_count+1;
211: SELECT SUBSTR(p_header_str,l_loc_t+3) INTO l_header_str FROM DUAL;
212: p_header_str := l_header_str;
205: SELECT INSTR(p_header_str, '
206: SELECT SUBSTR(p_header_str,1, l_loc_t-1) INTO l_work_str FROM DUAL;
207: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
208: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_headers(l_count).hdr_name FROM DUAL;
209: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_headers(l_count).hdr_value FROM DUAL;
210: l_count := l_count+1;
211: SELECT SUBSTR(p_header_str,l_loc_t+3) INTO l_header_str FROM DUAL;
212: p_header_str := l_header_str;
213: p_index := p_index-1;
207: SELECT INSTR(l_work_str, '', 1, 1) INTO l_loc_s FROM DUAL;
208: SELECT SUBSTR(l_work_str,1,l_loc_s-1) INTO p_headers(l_count).hdr_name FROM DUAL;
209: SELECT SUBSTR(l_work_str,l_loc_s+3) INTO p_headers(l_count).hdr_value FROM DUAL;
210: l_count := l_count+1;
211: SELECT SUBSTR(p_header_str,l_loc_t+3) INTO l_header_str FROM DUAL;
212: p_header_str := l_header_str;
213: p_index := p_index-1;
214:
215: IF (p_index < 1) THEN
250: EXECUTE IMMEDIATE l_plsql_block USING OUT l_status, IN p_folder,
251: OUT p_id_str, OUT p_index,IN l_flag,IN l_batchsize;
252: IF (p_index > 0) THEN
253: WHILE (l_bool) LOOP
254: SELECT INSTR(p_id_str, '
256: l_count := l_count+1;
257: SELECT SUBSTR(p_id_str,l_loc_t+3) INTO l_id_str FROM DUAL;
258: p_id_str := l_id_str;
251: OUT p_id_str, OUT p_index,IN l_flag,IN l_batchsize;
252: IF (p_index > 0) THEN
253: WHILE (l_bool) LOOP
254: SELECT INSTR(p_id_str, '
255: SELECT SUBSTR(p_id_str,1, l_loc_t-1) INTO p_messages(l_count) FROM DUAL;
256: l_count := l_count+1;
257: SELECT SUBSTR(p_id_str,l_loc_t+3) INTO l_id_str FROM DUAL;
258: p_id_str := l_id_str;
259: p_index := p_index-1;
253: WHILE (l_bool) LOOP
254: SELECT INSTR(p_id_str, '
255: SELECT SUBSTR(p_id_str,1, l_loc_t-1) INTO p_messages(l_count) FROM DUAL;
256: l_count := l_count+1;
257: SELECT SUBSTR(p_id_str,l_loc_t+3) INTO l_id_str FROM DUAL;
258: p_id_str := l_id_str;
259: p_index := p_index-1;
260: IF (p_index < 1) THEN
261: l_bool := FALSE;