How to improve performence of the procedure using regular expressions

Question

Hi all,
I have used substr, instr functions in this procedure .
Kindly tell me how use regular_expressions in this procedure .
/* Formatted on 2011/07/20 17:18 (Formatter Plus v4.8.8) */
PROCEDURE pr_insrt_prcdr_rvne_edit ( --ver 4.4
p_pa_rqst_sid IN NUMBER,
p_err_code OUT NUMBER,
p_err_msg OUT VARCHAR2
IS
v_count NUMBER;
CURSOR error_dtls
IS
SELECT parent_target_table_sid, inbnd_target_table_cid,
target_table_sid
FROM inbnd_278_error
WHERE parent_target_table_sid = p_pa_rqst_sid
AND SUBSTR (error_data_value, INSTR (error_data_value, ':') + 1) IN
('5056', '5031');
CURSOR error_values (
p_target_table_sid inbnd_278_error.target_table_sid%TYPE
IS
SELECT MAX (DECODE (SUBSTR (error_data_value,
INSTR (error_data_value, ':', 1) + 1
'5056', SUBSTR (error_data_value,
1,
INSTR (error_data_value, ':', 1) - 1
) AS e5056,
MAX (DECODE (SUBSTR (error_data_value,
INSTR (error_data_value, ':', 1) + 1
'5031', SUBSTR (error_data_value,
1,
INSTR (error_data_value, ':', 1) - 1
) AS e5031
FROM inbnd_278_error
WHERE target_table_sid = p_target_table_sid
AND SUBSTR (error_data_value, INSTR (error_data_value, ':', 1) + 1) IN
('5056', '5031');
v_error_values error_values%ROWTYPE;
BEGIN
p_err_code := 0;
p_err_msg := 'Success';
FOR curr_error_dtls_rec IN error_dtls
LOOP
OPEN error_values (curr_error_dtls_rec.target_table_sid);
FETCH error_values
INTO v_error_values;
IF (v_error_values.e5056 IS NOT NULL
AND v_error_values.e5031 IS NOT NULL
THEN
DELETE FROM inbnd_278_error
WHERE SUBSTR (error_data_value,
INSTR (error_data_value, ':') + 1
) IN ('5056', '5031')
AND target_table_sid = curr_error_dtls_rec.target_table_sid
AND inbnd_target_table_cid = 109;
INSERT INTO inbnd_278_error
(inbnd_278_error_sid,
parent_target_table_sid, inbnd_target_table_cid,
target_table_sid, meta_data_cid,
error_data_value,
created_by, created_date
VALUES (inbnd_278_error_seq.NEXTVAL,
curr_error_dtls_rec.parent_target_table_sid, 109,
curr_error_dtls_rec.target_table_sid, 161,
v_error_values.e5056
|| ','
|| v_error_values.e5031
|| ':'
|| '5059',
1, SYSDATE
END IF;
CLOSE error_values;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
p_err_code := SQLCODE;
p_err_msg :=
'Error occured in pr_insrt_prcdr_rvne_edit procedure '
|| SUBSTR (SQLERRM, 1, 100);
END pr_insrt_prcdr_rvne_edit;
Thanks,
P Prakash
Edited by: prakash on Jul 20, 2011 4:48 AM

Answer 1

Yes as explained in the forum FAQ which you should read
http://forums.oracle.com/forums/ann.jspa?annID=1535
*2. How do I ask a question on the forums?*
SQL and PL/SQL FAQ
And the section beginning.
*9) Formatting with {noformat}{noformat} Tags*