[Home] [Help]
1: PACKAGE BODY GMA_PURGE_VALIDATE AS
2: /* $Header: GMAPRGVB.pls 115.8 2004/02/12 21:30:52 kmoizudd ship $ */
3:
4: FUNCTION is_table(p_purge_id sy_purg_mst.purge_id%TYPE,
5: p_tablename user_tables.table_name%TYPE)
6: RETURN BOOLEAN IS
7: -- check to make sure given name IS a real table
8: -- Added one more cursor parameter owner for UDTF standards by KH 3431801
9:
6: RETURN BOOLEAN IS
7: -- check to make sure given name IS a real table
8: -- Added one more cursor parameter owner for UDTF standards by KH 3431801
9:
10: CURSOR l_table_cur(c_tablename user_tables.table_name%TYPE,
11: c_schema_owner all_tables.owner%TYPE) IS
12: SELECT 1
13: FROM ALL_TABLES
14: --MADE by Khaja added one OWNER on where clause for UDTF bug fix #3431801
11: c_schema_owner all_tables.owner%TYPE) IS
12: SELECT 1
13: FROM ALL_TABLES
14: --MADE by Khaja added one OWNER on where clause for UDTF bug fix #3431801
15: --MADE by Khaja FROM user_tables
16: WHERE table_name = upper(c_tablename)
17: and owner=c_schema_owner;
18:
19: l_scratch NUMBER(1);
100: /***********************************************************/
101:
102: FUNCTION is_tablespace
103: (p_purge_id sy_purg_mst.purge_id%TYPE,
104: p_tablespace_name IN user_tablespaces.tablespace_name%TYPE)
105: RETURN BOOLEAN IS
106: -- This function takes a name and checks the user_tablespaces
107: -- view to make sure the parameter is a valid tablespace name.
108: -- Return TRUE if the tablespace exists, FALSE otherwise.
102: FUNCTION is_tablespace
103: (p_purge_id sy_purg_mst.purge_id%TYPE,
104: p_tablespace_name IN user_tablespaces.tablespace_name%TYPE)
105: RETURN BOOLEAN IS
106: -- This function takes a name and checks the user_tablespaces
107: -- view to make sure the parameter is a valid tablespace name.
108: -- Return TRUE if the tablespace exists, FALSE otherwise.
109:
110: CURSOR l_validate_tablespace_cur
107: -- view to make sure the parameter is a valid tablespace name.
108: -- Return TRUE if the tablespace exists, FALSE otherwise.
109:
110: CURSOR l_validate_tablespace_cur
111: (c_tablespace_name IN user_tablespaces.tablespace_name%TYPE) IS
112: select 'X'
113: from user_tablespaces
114: where tablespace_name = upper(c_tablespace_name);
115:
109:
110: CURSOR l_validate_tablespace_cur
111: (c_tablespace_name IN user_tablespaces.tablespace_name%TYPE) IS
112: select 'X'
113: from user_tablespaces
114: where tablespace_name = upper(c_tablespace_name);
115:
116: l_tablespace_exists CHAR(1);
117: