1 procedure validate_exf as
2 retnum NUMBER;
3 begin
4 -- ensure that the expression filter objects are all valid --
5 -- ignore any rules manager objects in this schema --
6 select 1 into retnum from all_objects where
7 owner = 'EXFSYS' and status != 'VALID' and
8 (object_name like 'EXF$%' or object_name like '%EXPFIL%') and
9 rownum < 2;
10
11 sys.dbms_registry.invalid('EXF');
12 exception
13 when no_data_found then
14 sys.dbms_registry.valid('EXF');
15 end;