106: IF p_recepients is not null and nvl(p_cc_flag,' ')='Y' then
107: l_str:=l_str||' AND (upper(a.to_str) like :tostr OR upper(a.cc_str) like :tostr)';
108: END IF;
109: END IF; -- End if for p_email_queue<>'I'
110: l_cursorID := DBMS_SQL.OPEN_CURSOR;
111: DBMS_SQL.PARSE(l_cursorID, l_str, DBMS_SQL.native);
112: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':id', p_email_account_id);
113: IF p_email_queue <>'I' THEN
114: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':q_status', p_email_queue);
107: l_str:=l_str||' AND (upper(a.to_str) like :tostr OR upper(a.cc_str) like :tostr)';
108: END IF;
109: END IF; -- End if for p_email_queue<>'I'
110: l_cursorID := DBMS_SQL.OPEN_CURSOR;
111: DBMS_SQL.PARSE(l_cursorID, l_str, DBMS_SQL.native);
112: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':id', p_email_account_id);
113: IF p_email_queue <>'I' THEN
114: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':q_status', p_email_queue);
115: END IF;
108: END IF;
109: END IF; -- End if for p_email_queue<>'I'
110: l_cursorID := DBMS_SQL.OPEN_CURSOR;
111: DBMS_SQL.PARSE(l_cursorID, l_str, DBMS_SQL.native);
112: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':id', p_email_account_id);
113: IF p_email_queue <>'I' THEN
114: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':q_status', p_email_queue);
115: END IF;
116: IF p_resource_id is not null then
110: l_cursorID := DBMS_SQL.OPEN_CURSOR;
111: DBMS_SQL.PARSE(l_cursorID, l_str, DBMS_SQL.native);
112: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':id', p_email_account_id);
113: IF p_email_queue <>'I' THEN
114: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':q_status', p_email_queue);
115: END IF;
116: IF p_resource_id is not null then
117: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':resource_id', p_resource_id);
118: END IF;
113: IF p_email_queue <>'I' THEN
114: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':q_status', p_email_queue);
115: END IF;
116: IF p_resource_id is not null then
117: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':resource_id', p_resource_id);
118: END IF;
119: If p_sent_date_from is not null then
120: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':f_dt', p_sent_date_from);
121: end if;
116: IF p_resource_id is not null then
117: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':resource_id', p_resource_id);
118: END IF;
119: If p_sent_date_from is not null then
120: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':f_dt', p_sent_date_from);
121: end if;
122:
123: if p_sent_date_to is not null then
124: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':t_dt', p_sent_date_to);
120: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':f_dt', p_sent_date_from);
121: end if;
122:
123: if p_sent_date_to is not null then
124: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':t_dt', p_sent_date_to);
125: end if;
126: IF p_subject is not null then
127: l_subject1:=upper(p_subject);
128: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':subject', l_subject1);
124: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':t_dt', p_sent_date_to);
125: end if;
126: IF p_subject is not null then
127: l_subject1:=upper(p_subject);
128: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':subject', l_subject1);
129: END IF;
130: IF p_from_str is not null then
131: l_from_str1:='%'||upper(p_from_str)||'%';
132: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':from1', l_from_str1);
128: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':subject', l_subject1);
129: END IF;
130: IF p_from_str is not null then
131: l_from_str1:='%'||upper(p_from_str)||'%';
132: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':from1', l_from_str1);
133: END IF;
134: IF p_recepients is not null then
135: l_to_str1:='%'||upper(p_recepients)||'%';
136: DBMS_SQL.BIND_VARIABLE(l_cursorid,':tostr',l_to_str1);
132: DBMS_SQL.BIND_VARIABLE(l_cursorid, ':from1', l_from_str1);
133: END IF;
134: IF p_recepients is not null then
135: l_to_str1:='%'||upper(p_recepients)||'%';
136: DBMS_SQL.BIND_VARIABLE(l_cursorid,':tostr',l_to_str1);
137: END IF;
138: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 1, l_message_id);
139: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 2, l_ih_media_item_id);
140: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 3, l_from_str,2000);
134: IF p_recepients is not null then
135: l_to_str1:='%'||upper(p_recepients)||'%';
136: DBMS_SQL.BIND_VARIABLE(l_cursorid,':tostr',l_to_str1);
137: END IF;
138: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 1, l_message_id);
139: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 2, l_ih_media_item_id);
140: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 3, l_from_str,2000);
141: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 4, l_to_str,2000);
142: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 5, l_subject,2000);
135: l_to_str1:='%'||upper(p_recepients)||'%';
136: DBMS_SQL.BIND_VARIABLE(l_cursorid,':tostr',l_to_str1);
137: END IF;
138: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 1, l_message_id);
139: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 2, l_ih_media_item_id);
140: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 3, l_from_str,2000);
141: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 4, l_to_str,2000);
142: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 5, l_subject,2000);
143: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 6, l_sent_date,60);
136: DBMS_SQL.BIND_VARIABLE(l_cursorid,':tostr',l_to_str1);
137: END IF;
138: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 1, l_message_id);
139: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 2, l_ih_media_item_id);
140: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 3, l_from_str,2000);
141: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 4, l_to_str,2000);
142: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 5, l_subject,2000);
143: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 6, l_sent_date,60);
144:
137: END IF;
138: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 1, l_message_id);
139: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 2, l_ih_media_item_id);
140: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 3, l_from_str,2000);
141: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 4, l_to_str,2000);
142: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 5, l_subject,2000);
143: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 6, l_sent_date,60);
144:
145: l_dummy := DBMS_SQL.EXECUTE(l_cursorID);
138: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 1, l_message_id);
139: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 2, l_ih_media_item_id);
140: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 3, l_from_str,2000);
141: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 4, l_to_str,2000);
142: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 5, l_subject,2000);
143: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 6, l_sent_date,60);
144:
145: l_dummy := DBMS_SQL.EXECUTE(l_cursorID);
146: LOOP
139: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 2, l_ih_media_item_id);
140: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 3, l_from_str,2000);
141: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 4, l_to_str,2000);
142: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 5, l_subject,2000);
143: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 6, l_sent_date,60);
144:
145: l_dummy := DBMS_SQL.EXECUTE(l_cursorID);
146: LOOP
147: IF (DBMS_SQL.FETCH_ROWS(l_cursorid) = 0) THEN
141: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 4, l_to_str,2000);
142: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 5, l_subject,2000);
143: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 6, l_sent_date,60);
144:
145: l_dummy := DBMS_SQL.EXECUTE(l_cursorID);
146: LOOP
147: IF (DBMS_SQL.FETCH_ROWS(l_cursorid) = 0) THEN
148: EXIT;
149: END IF;
143: DBMS_SQL.DEFINE_COLUMN(l_cursorID, 6, l_sent_date,60);
144:
145: l_dummy := DBMS_SQL.EXECUTE(l_cursorID);
146: LOOP
147: IF (DBMS_SQL.FETCH_ROWS(l_cursorid) = 0) THEN
148: EXIT;
149: END IF;
150: DBMS_SQL.COLUMN_VALUE(l_cursorID, 1, l_message_id);
151: DBMS_SQL.COLUMN_VALUE(l_cursorID, 2, l_ih_media_item_id);
146: LOOP
147: IF (DBMS_SQL.FETCH_ROWS(l_cursorid) = 0) THEN
148: EXIT;
149: END IF;
150: DBMS_SQL.COLUMN_VALUE(l_cursorID, 1, l_message_id);
151: DBMS_SQL.COLUMN_VALUE(l_cursorID, 2, l_ih_media_item_id);
152: DBMS_SQL.COLUMN_VALUE(l_cursorID, 3, l_from_str);
153: DBMS_SQL.COLUMN_VALUE(l_cursorID, 4, l_to_str);
154: DBMS_SQL.COLUMN_VALUE(l_cursorID, 5, l_subject);
147: IF (DBMS_SQL.FETCH_ROWS(l_cursorid) = 0) THEN
148: EXIT;
149: END IF;
150: DBMS_SQL.COLUMN_VALUE(l_cursorID, 1, l_message_id);
151: DBMS_SQL.COLUMN_VALUE(l_cursorID, 2, l_ih_media_item_id);
152: DBMS_SQL.COLUMN_VALUE(l_cursorID, 3, l_from_str);
153: DBMS_SQL.COLUMN_VALUE(l_cursorID, 4, l_to_str);
154: DBMS_SQL.COLUMN_VALUE(l_cursorID, 5, l_subject);
155: DBMS_SQL.COLUMN_VALUE(l_cursorID, 6, l_sent_date);
148: EXIT;
149: END IF;
150: DBMS_SQL.COLUMN_VALUE(l_cursorID, 1, l_message_id);
151: DBMS_SQL.COLUMN_VALUE(l_cursorID, 2, l_ih_media_item_id);
152: DBMS_SQL.COLUMN_VALUE(l_cursorID, 3, l_from_str);
153: DBMS_SQL.COLUMN_VALUE(l_cursorID, 4, l_to_str);
154: DBMS_SQL.COLUMN_VALUE(l_cursorID, 5, l_subject);
155: DBMS_SQL.COLUMN_VALUE(l_cursorID, 6, l_sent_date);
156:
149: END IF;
150: DBMS_SQL.COLUMN_VALUE(l_cursorID, 1, l_message_id);
151: DBMS_SQL.COLUMN_VALUE(l_cursorID, 2, l_ih_media_item_id);
152: DBMS_SQL.COLUMN_VALUE(l_cursorID, 3, l_from_str);
153: DBMS_SQL.COLUMN_VALUE(l_cursorID, 4, l_to_str);
154: DBMS_SQL.COLUMN_VALUE(l_cursorID, 5, l_subject);
155: DBMS_SQL.COLUMN_VALUE(l_cursorID, 6, l_sent_date);
156:
157: x_message_tbl(l_counter).message_id:=l_message_id;
150: DBMS_SQL.COLUMN_VALUE(l_cursorID, 1, l_message_id);
151: DBMS_SQL.COLUMN_VALUE(l_cursorID, 2, l_ih_media_item_id);
152: DBMS_SQL.COLUMN_VALUE(l_cursorID, 3, l_from_str);
153: DBMS_SQL.COLUMN_VALUE(l_cursorID, 4, l_to_str);
154: DBMS_SQL.COLUMN_VALUE(l_cursorID, 5, l_subject);
155: DBMS_SQL.COLUMN_VALUE(l_cursorID, 6, l_sent_date);
156:
157: x_message_tbl(l_counter).message_id:=l_message_id;
158: x_message_tbl(l_counter).ih_media_item_id:=l_ih_media_item_id;
151: DBMS_SQL.COLUMN_VALUE(l_cursorID, 2, l_ih_media_item_id);
152: DBMS_SQL.COLUMN_VALUE(l_cursorID, 3, l_from_str);
153: DBMS_SQL.COLUMN_VALUE(l_cursorID, 4, l_to_str);
154: DBMS_SQL.COLUMN_VALUE(l_cursorID, 5, l_subject);
155: DBMS_SQL.COLUMN_VALUE(l_cursorID, 6, l_sent_date);
156:
157: x_message_tbl(l_counter).message_id:=l_message_id;
158: x_message_tbl(l_counter).ih_media_item_id:=l_ih_media_item_id;
159: x_message_tbl(l_counter).from_str:=l_from_str;
162: x_message_tbl(l_counter).sent_date:=l_sent_date;
163: l_counter:=l_counter+1;
164: END LOOP;
165:
166: DBMS_SQL.CLOSE_CURSOR(l_cursorID);
167:
168: IF p_commit='T' THEN
169: COMMIT WORK;
170: END IF;