如何自动获取Oracle数据库启动时在Shared pool里面的对象（翻译）[4]

    10   fetch pkgs into own, nam;

    11   exit when pkgs%notfound;

    12   sys.dbms_shared_pool.keep(''|| own || '.' || nam || '');

    13   end loop;

    14   sys.dbms_shared_pool.keep('sys.standard');

    15   sys.dbms_shared_pool.keep('sys.diutil');

    16  end;

    17  /

   procedure created.

2．编译、测试procedure