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