IFS ERP刷新字典与后台编译

DECLARE
   lang_code_         VARCHAR2(32000) := 'zh';
   module_            VARCHAR2(32000) := '%';
   CURSOR get_module IS
          SELECT *
          FROM   Module m
          -- WHERE  module IN ('INVENT','ORDER','SHPORD','CFGCHR','DOP','PURCH','PAYLED','PROSCH','INVOIC');
          WHERE  module IN ('PURCH');
BEGIN
   FOR rec_ IN get_module LOOP
       Language_Sys.Refresh_Language_Dictionary_( lang_code_, rec_.module );
   END LOOP;
   COMMIT;
   --
   -- Dictionary_Sys.Rebuild_Dictionary_Storage_( 0 );
  -- COMMIT;   
END;

-- Recompiling invalid database objects
EXEC Trace_Sys.Set_Trace_Output(1);
SET SERVEROUT ON
SPOOL Compile_Invalid_Object.log
PROMPT Refresh Database Objects
EXEC Reference_Sys.Refresh_Database_Objects__('dummy_');
SET SERVEROUT OFF

EXEC Trace_Sys.Set_Trace_Output(0);
PROMPT Refreshing Reference_SYS
EXEC Reference_SYS.Refresh_Active_List__(1 );