1020install.inst

faxcomlib + crystal report

---------------------------------------------------------------------------------------
--
--  File:         1020Install.inst
--  Version:      2007-05-15
--
--  Date        Sign    History
--  ----------  ------  ---------------------------------------------------------------
--  2007-05-15  mabrus  Created!
---------------------------------------------------------------------------------------
SET VERIFY OFF
SET FEEDBACK OFF
SET ARRAYSIZE 1
SET TRIMSPOOL ON
SET SERVEROUT ON SIZE 1000000
SPOOL &1
 
-- Define any constants here.  You will need to review the business logic
-- In order to determine if any constants need to be defined for
-- Replacement variables.
 
-- DEFINE [ModuleName]_DATA   = IFSAPP_DATA
-- DEFINE [ModuleName]_INDEX  = IFSAPP_INDEX
-- DEFINE [ModuleName]_REPORT = IFSAPP_REPORT
-- DEFINE [ModuleName]_REPORT = IFSAPP_REPORT
-- DEFINE normal = 'INITIAL 40K NEXT 200K MINEXTENTS 1 MAXEXTENTS 121 PCTINCREASE 50'
-- DEFINE storage = 'INITIAL 40K NEXT 200K MINEXTENTS 1 MAXEXTENTS 121 PCTINCREASE 50'
---------------------------------------------------------------------------------------
PROMPT Business Logic Installation For Delivery 1020.
 
PROMPT Installing Database Alterations For Delivery 1020...
PROMPT Finished...
 
PROMPT Installing Package Declarations For Delivery 1020...
@ProductionReceiptManager.api
COMMIT;
PROMPT Finished...
 
PROMPT Installing Package Bodies For Delivery 1020...
@accting.apy
@CVmoOrderEntryUtil.apy
@InquiryOrder.apy
@ProductionReceiptManager.apy
COMMIT;
PROMPT Finished...
 
PROMPT Installing Languages and Report Logic For Delivery 1020...
PROMPT Finished...

-- Updating Module List with delivery information
--
DEFINE PackageGroup = 1020
PROMPT Updating Module List with delivery information...
DECLARE
   module_        VARCHAR2(6);
   name_          VARCHAR2(50);
   attr_          VARCHAR2(32000) := NULL;
   objversion_    VARCHAR2(2000);
   objid_         ROWID;
   info_          VARCHAR2(32000) := NULL;
BEGIN
   SELECT SUBSTR(TO_CHAR( NVL( ( MIN( module ) - 1 ), 999999 ) ), 1, 6 ) INTO module_
   FROM Module
   WHERE SUBSTR( module, 1, 1 ) BETWEEN CHR(48) AND CHR(57);
   name_ := SUBSTR( '* ' || RPAD('&PackageGroup', 20 ) || ' - ' || to_char( sysdate, 'YYYY-MM-DD HH24:MI:SS' ), 1, 50 );
   Client_SYS.Set_Item_Value( 'MODULE', module_, attr_ );
   Client_SYS.Set_Item_Value( 'NAME', name_, attr_ );
   Client_SYS.Set_Item_Value( 'DESCRIPTION', 'DELIVERY', attr_ );
   Client_SYS.Set_Item_Value( 'VERSION', '*', attr_ );
   Client_SYS.Set_Item_Value( 'REG_DATE', sysdate, attr_ );
   Module_API.New__(info_, objid_, objversion_, attr_, 'DO');
COMMIT;
END;
/
 
---------------------------------------------------------------------------------------
-- Recompile invalid database objects.
--
PROMPT Recompiling invalid database objects...
EXEC Trace_Sys.Set_Trace_Output(1);
SET SERVEROUT ON
EXEC Reference_Sys.Refresh_Database_Objects__('dummy_');
---------------------------------------------------------------------------------------
-- Refresh Database Cache
PROMPT Refreshing Database Cache, this may take a while...
PROMPT Refreshing Security SYS
EXEC Security_SYS.Refresh_Active_List__(1);
COMMIT;
PROMPT Refreshing Reference SYS
EXEC Reference_SYS.Refresh_Active_List__(1);
COMMIT;
PROMPT Refreshing Object Connection SYS
EXEC Object_Connection_SYS.Refresh_Active_List__(1);
COMMIT;
PROMPT Refreshing Dictionary SYS
EXEC Dictionary_SYS.Rebuild_Dictionary_Storage_(1);
COMMIT;
PROMPT Refreshing Report SYS
EXEC Report_SYS.Refresh_Active_List__(1);
COMMIT;
PROMPT All Caches Refreshed
COMMIT;
SPOOL OFF
SET SERVEROUT OFF
EXEC Trace_Sys.Set_Trace_Output(0);
---------------------------------------------------------------------------------------
EXIT
/