Error while compiling the procedure

Question

Hi all,
When i compiled a procedure i m getting the following error.
The following error has occurred:
PROCEDURE LIMSARCT.DELETE_OLD_DATA
On line:  62
PLS-00201: identifier 'SYS.DBMS_LOCK' must be declared
Details:
PROCEDURE LIMSARCT.DELETE_OLD_DATA
On line:  62
PLS-00201: identifier 'SYS.DBMS_LOCK' must be declared
Kindly help me on the issue.
Thanks.

Answer 1

Hi,
Thanks for ur response.
CREATE OR REPLACE Procedure DELETE_OLD_DATA
(table_name IN VARCHAR2,
time_var IN VARCHAR2,
max_age IN NUMBER)
IS
-- Purpose: slowly delete old data (older than MAX_AGE days old) from a table
-- using dynamic SQL. Input parameter TIME_VAR is the key date field in the table.
-- MODIFICATION HISTORY
-- Person Date Comments
-- M Panarusky 00-11-13 procedure created
cursor_id integer;
sql_string varchar2(100);
return_var integer;
oldest_date date;
age_var number;
TIME_INCREMENT constant number := 0.004; -- about 6 minutes
BEGIN
-- open a cursor
cursor_id := DBMS_SQL.OPEN_CURSOR;
-- determine age of oldest record in table
sql_string := 'select min(' || time_var || ') from ' || table_name;
-- parse the cursor and define the output column
DBMS_SQL.PARSE(cursor_id, sql_string, DBMS_SQL.NATIVE);
DBMS_SQL.DEFINE_COLUMN(cursor_id, 1, oldest_date);
-- execute the cursor and retrieve the output
return_var := DBMS_SQL.EXECUTE_AND_FETCH(cursor_id);
DBMS_SQL.COLUMN_VALUE(cursor_id, 1, oldest_date);
-- calculate age to delta days
age_var := round((sysdate - oldest_date), 3);
-- close the cursor
DBMS_SQL.CLOSE_CURSOR(cursor_id);
-- open the cursor again
cursor_id := DBMS_SQL.OPEN_CURSOR;
-- delete records
loop
age_var := age_var - TIME_INCREMENT;
exit when age_var < max_age;
-- build an SQL string
sql_string := 'delete from ' || table_name || ' where ' || time_var ||
' < (sysdate - ' || age_var || ')';
-- parse and excute the cursor
DBMS_SQL.PARSE(cursor_id, sql_string, DBMS_SQL.NATIVE);
return_var := DBMS_SQL.EXECUTE(cursor_id);
commit;
dbms_lock.sleep(2); -- wait 2 seconds
end loop;
-- close the cursor
DBMS_SQL.CLOSE_CURSOR(cursor_id);
END DELETE_OLD_DATA; -- Procedure
ORCALE VERSION - 8i Developement tools - Toad.