oracle 被锁对象查询和失效包查询

被锁对象

select * from v$locked_object join user_objects on v$locked_object.OBJECT_ID=user_objects.object_id;

失效包

SELECT 'ALTER ' ||
       decode(object_type, 'PACKAGE BODY', 'PACKAGE', object_type) || ' ' ||
       object_name || decode(object_type,
                             'PACKAGE BODY',
                             ' COMPILE BODY ; ',
                             'PACKAGE',
                             ' COMPILE SPECIFICATION ; ',
                             ' COMPILE; ') AS c
  FROM user_objects
 WHERE status <> 'VALID'
   AND object_type IN ('FUNCTION', 'PACKAGE', 'PACKAGE BODY', 'PROCEDURE',
        'TRIGGER', 'VIEW')
 ORDER BY object_type DESC;