316: begin
317: l_dotpos := instr(object_name, '.');
318: if l_dotpos > 1 then
319: l_package := substr(object_name, 1, l_dotpos-1);
320: l_csr_sql := dbms_sql.open_cursor;
321: dbms_sql.parse
322: (l_csr_sql
323: ,'ALTER PACKAGE ' || l_package || ' COMPILE SPECIFICATION'
324: ,dbms_sql.native
317: l_dotpos := instr(object_name, '.');
318: if l_dotpos > 1 then
319: l_package := substr(object_name, 1, l_dotpos-1);
320: l_csr_sql := dbms_sql.open_cursor;
321: dbms_sql.parse
322: (l_csr_sql
323: ,'ALTER PACKAGE ' || l_package || ' COMPILE SPECIFICATION'
324: ,dbms_sql.native
325: );
320: l_csr_sql := dbms_sql.open_cursor;
321: dbms_sql.parse
322: (l_csr_sql
323: ,'ALTER PACKAGE ' || l_package || ' COMPILE SPECIFICATION'
324: ,dbms_sql.native
325: );
326: l_rows := dbms_sql.execute( l_csr_sql );
327: dbms_sql.close_cursor( l_csr_sql );
328: else
322: (l_csr_sql
323: ,'ALTER PACKAGE ' || l_package || ' COMPILE SPECIFICATION'
324: ,dbms_sql.native
325: );
326: l_rows := dbms_sql.execute( l_csr_sql );
327: dbms_sql.close_cursor( l_csr_sql );
328: else
329: --
330: -- The name supplied is that of a standalone procedure/function
323: ,'ALTER PACKAGE ' || l_package || ' COMPILE SPECIFICATION'
324: ,dbms_sql.native
325: );
326: l_rows := dbms_sql.execute( l_csr_sql );
327: dbms_sql.close_cursor( l_csr_sql );
328: else
329: --
330: -- The name supplied is that of a standalone procedure/function
331: -- or some other odd name.
333: raise invalid_package;
334: end if;
335: exception
336: when others then
337: if dbms_sql.is_open( l_csr_sql ) then
338: dbms_sql.close_cursor( l_csr_sql );
339: end if;
340: --
341: -- Compilation failed so the package is still invalid.
334: end if;
335: exception
336: when others then
337: if dbms_sql.is_open( l_csr_sql ) then
338: dbms_sql.close_cursor( l_csr_sql );
339: end if;
340: --
341: -- Compilation failed so the package is still invalid.
342: --
1355: l_text := replace (l_text, '
1356: --
1357: -- Run the dynamic pl/sql
1358: --
1359: l_dbms_cursor := dbms_sql.open_cursor;
1360: dbms_sql.parse ( l_dbms_cursor,
1361: l_text,
1362: dbms_sql.v7);
1363: l_dummy := dbms_sql.execute (l_dbms_cursor);
1356: --
1357: -- Run the dynamic pl/sql
1358: --
1359: l_dbms_cursor := dbms_sql.open_cursor;
1360: dbms_sql.parse ( l_dbms_cursor,
1361: l_text,
1362: dbms_sql.v7);
1363: l_dummy := dbms_sql.execute (l_dbms_cursor);
1364: dbms_sql.close_cursor (l_dbms_cursor);
1358: --
1359: l_dbms_cursor := dbms_sql.open_cursor;
1360: dbms_sql.parse ( l_dbms_cursor,
1361: l_text,
1362: dbms_sql.v7);
1363: l_dummy := dbms_sql.execute (l_dbms_cursor);
1364: dbms_sql.close_cursor (l_dbms_cursor);
1365: --
1366: exception
1359: l_dbms_cursor := dbms_sql.open_cursor;
1360: dbms_sql.parse ( l_dbms_cursor,
1361: l_text,
1362: dbms_sql.v7);
1363: l_dummy := dbms_sql.execute (l_dbms_cursor);
1364: dbms_sql.close_cursor (l_dbms_cursor);
1365: --
1366: exception
1367: when others then
1360: dbms_sql.parse ( l_dbms_cursor,
1361: l_text,
1362: dbms_sql.v7);
1363: l_dummy := dbms_sql.execute (l_dbms_cursor);
1364: dbms_sql.close_cursor (l_dbms_cursor);
1365: --
1366: exception
1367: when others then
1368: if dbms_sql.is_open (l_dbms_cursor) then
1364: dbms_sql.close_cursor (l_dbms_cursor);
1365: --
1366: exception
1367: when others then
1368: if dbms_sql.is_open (l_dbms_cursor) then
1369: dbms_sql.close_cursor (l_dbms_cursor);
1370: end if;
1371: raise;
1372: --
1365: --
1366: exception
1367: when others then
1368: if dbms_sql.is_open (l_dbms_cursor) then
1369: dbms_sql.close_cursor (l_dbms_cursor);
1370: end if;
1371: raise;
1372: --
1373: end check_HR_version;