Error trapping with OPEN FOR

Question

I am trying to add some error handling to this packaged procedure written by someone else.
How can I check for an Oracle error in the query in m_sql_string? I have tried checking
SQLCODE after the 'OPEN FOR', but it is always 0 even when errors are being encountered.
I need to trap errors and write them to an error table.
CREATE OR REPLACE PACKAGE P1
AS
TYPE CHCUR IS REF CURSOR;
PROCEDURE QRY_WR_STATUS_CHANGES (tsAfter IN VARCHAR2, rsResult OUT CHCUR);
END P1;
CREATE OR REPLACE PACKAGE BODY P1
AS
PROCEDURE QRY_WR_STATUS_CHANGES(tsAfter IN VARCHAR2, rsResult OUT CHCUR)
IS
m_sql_string VARCHAR2(30000);
BEGIN
m_sql_string := 'SELECT TS_STATUS, CD_STATUS, CD_WR, RowId
FROM TABLE_A
WHERE
NOT EXISTS (SELECT ''X'' FROM TABLE_B where TABLE_B.USER_NAME =TABLE_A.ID_OPER)
) AND
NOT EXISTS (SELECT ''X'' FROM TABLE_C where TABLE_C.wr = TABLE_A.CD_WR and
TABLE_C.dist = TABLE_A.CD_DIST)
AND
TABLE_A.TS_STATUS >
TO_DATE('''||tsAfter||''', '||'''MM/DD/YYYY HH24:MI:SS'')
AND CD_STATUS Like ''%X''';
OPEN rsResult FOR m_sql_string;
END QRY_WR_STATUS_CHANGES;
END P1;
Thanks in advance.

Answer 1

Thank you. I just tried adding such an exception block. It compiles and runs fine, but isn't trapping the error. I see the error returned in the results when I call the proc from SQL*PLUS, but can't seem to trap it in the code...it's like I need to check the contents of the OUT data for the error or something. Below is the modified code and then showing executing it and the results. Any further ideas are greatly appreciated.
CREATE OR REPLACE PACKAGE P1
AS
TYPE CHCUR IS REF CURSOR;
PROCEDURE QRY_WR_STATUS_CHANGES (tsAfter IN VARCHAR2, rsResult OUT CHCUR);
END P1;
CREATE OR REPLACE PACKAGE BODY P1
AS
PROCEDURE QRY_WR_STATUS_CHANGES(tsAfter IN VARCHAR2, rsResult OUT CHCUR)
IS
m_sql_string VARCHAR2(30000);
BEGIN
m_sql_string := 'SELECT TS_STATUS, CD_STATUS, CD_WR, RowId
FROM TABLE_A
WHERE
NOT EXISTS (SELECT ''X'' FROM TABLE_B where TABLE_B.USER_NAME =TABLE_A.ID_OPER)
) AND
NOT EXISTS (SELECT ''X'' FROM TABLE_C where TABLE_C.wr = TABLE_A.CD_WR and
TABLE_C.dist = TABLE_A.CD_DIST)
AND
TABLE_A.TS_STATUS >
TO_DATE('''||tsAfter||''', '||'''MM/DD/YYYY HH24:MI:SS'')
AND CD_STATUS Like ''%X''';
OPEN rsResult FOR m_sql_string;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('Error code is: Long postings are being truncated to ~1 kB at this time.