              b.line,
              b.col,
              case
-                when b.line = 1
-                   and b.col = 1
-                   and b.covered = 0
+                when b.line = 1
+                   and b.col = 1
+                   and b.covered = 0
                 then
                    -- fix wrong coverage of unit definition
                    -- it is not possible that this block is not covered

             b.line,
             b.col,
             case
                when b.line = 1
                   and b.col = 1
                   and b.covered = 0
                then
                   -- fix wrong coverage of unit definition
                   -- it is not possible that this block is not covered

set feedback off
set term off
spool install_options.tmp
<<install_options>>
declare
   procedure print(in_line in varchar2) is
   begin
      dbms_output.put_line(in_line);
   end print; 
   --
   procedure options is
      l_count integer;
   begin
      select count(*)
        into l_count
        from all_objects
       where object_name in ('UTL_XML', 'UTL_XML_LIB');
      if l_count > 0 then
         print('@./test/package/test_lineage_util.pks');
         print('SHOW ERRORS');
         print('@./test/package/test_parse_util.pks');
         print('SHOW ERRORS');
         print('@./test/package/test_lineage_util.pkb');
         print('SHOW ERRORS');
         print('@./test/package/test_parse_util.pkb');
         print('SHOW ERRORS');
      end if;
   end options;
begin
   options;
end install_options;
/
spool off
set feedback on
