home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 41.ddi / UTIL70.DEI < prev    next >
Encoding:
Text File  |  1993-02-25  |  4.2 KB  |  118 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     util70.dei - OS/2 V3 de-installation script for database utilities.
  5.  
  6.   DESCRIPTION
  7.     This script removes the OS/2 database utilities files and un-registers the
  8.     product.
  9.  
  10.   OWNER
  11.     Tony Rodgers
  12.  
  13.   MODIFIED    DD-MMM-YY Reason
  14.     trodgers  01-APR-92 Created.
  15. *****************************************************************************/
  16. {
  17.   registry = registration("os2util70");
  18.   registry_label = registry_interface_label(registry);
  19.  
  20.   ui_product(registry_label);
  21.  
  22. /*****************************************************************************
  23.    Bind all nls strings here...
  24. *****************************************************************************/
  25.  
  26.   unknown_rdbms70_prompt = nls("unknown_rdbms70_prompt","It is not possible to remove %%product_label%% because of a problem with the RDBMS70 variable in your '%%ora_config%%' file.");
  27.   unknown_rdbms70_content = nls("unknown_rdbms70_content","Configuration Problem");
  28.   unknown_rdbms70_help = nls("unknown_rdbms70_help","In order to remove %%product_label%%, it is necessary to have a correct value for the RDBMS70 variable in your '%%ora_config%%' file. The RDBMS70 variable should point to the directory to which Oracle7 was installed.");
  29.  
  30.   unregistering = nls("unregistering","Unregistering %%registry_label%%...");
  31.   deinst_stubs = nls("deinst_stubs","Deinstalling %%registry_label%% Multiversion Stubs...");
  32.   modifying_config = nls("modifying_config","Modifying %%ora_config%%...");
  33.   deinst_demo = nls("deinst_demo","Deinstalling %%registry_label%% Demonstration files...");
  34.   deinst_sql = nls("deinst_sql","Deinstalling %%registry_label%% SQL Scripts...");
  35.   deinst_init = nls("deinst_init","Deinstalling INIT.ORA...");
  36.   deinst_res = nls("deinst_res","Deinstalling %%registry_label%% Resource Files...");
  37.   deinst_msb = nls("deinst_msb","Deinstalling %%registry_label%% Message Files...");
  38.   deinst_exe = nls("deinst_exe","Deinstalling %%registry_label%% Executables...");
  39.   deinst_script = nls("deinst_script","Deinstalling %%registry_label%% Installation Scripts...");
  40.  
  41. /*****************************************************************************
  42.    Continue with deinstall operations
  43. *****************************************************************************/
  44.  
  45.   doit = FALSE;
  46.  
  47.   if (unreferenced(registry))
  48.     doit = TRUE;
  49.   else if (not(internally_called))
  50.     if (uniquely_self_referenced(registry))
  51.       doit = TRUE;
  52.     else
  53.       doit = yesno_dialog(instantiate(deinstall_prompt01));
  54.  
  55.   if (doit)
  56.   {
  57.     if (registered("os2rsf70"))
  58.     {
  59.       dependent = registration("os2rsf70");
  60.  
  61.       unreference(dependent,registry);
  62.       deinstall(dependent);
  63.     }
  64.  
  65.     ui_product(registry_label);
  66.  
  67.     { rdbms70 = v7_translate("RDBMS70"); }
  68.       [ 'UNBOUND_ENVIRONMENT_VARIABLE:
  69.           information_dialog(instantiate( unknown_rdbms70_prompt ),
  70.                              unknown_rdbms70_content,
  71.                              instantiate( unknown_rdbms70_help ) );
  72.       ]
  73.  
  74.     { plsql20 = v7_translate("PLSQL20"); }
  75.        [ 'UNBOUND_ENVIRONMENT_VARIABLE: plsql20 = "%oracle_home%\PLSQL20"; ]
  76.  
  77.     ui_action( instantiate( unregistering ) );
  78.     unregister(registry);
  79.  
  80.     ui_action( instantiate( deinst_stubs ) );
  81.     dos_unstubify("RDBMS",exec);
  82.  
  83.     ui_action( instantiate( deinst_demo ) );
  84.     remove(demo);
  85.  
  86.     ui_action( instantiate( deinst_sql ) );
  87.     remove(sql);
  88.  
  89.     ui_action( deinst_init );
  90.     remove(init);
  91.  
  92.     ui_action( instantiate( deinst_res ) );
  93.     remove(res);
  94.  
  95.     ui_action( instantiate( deinst_msb ) );
  96.     remove(msg);
  97.     if ( not( registered( "os2install" ) ) )
  98.       remove(uiusmsg);
  99.  
  100.     ui_action( instantiate( deinst_exe ) );
  101.     remove(exec);
  102.  
  103.     ui_action( instantiate( deinst_script ) );
  104.     remove(deinstl);
  105.  
  106.     if (not(registered("os2rdbms70")) && not(registered("os2rsf70")))
  107.     {
  108.       modify("RDBMS70","",ora_config,"=");
  109.       modify("PLSQL20","",ora_config,"=");
  110.     }
  111.  
  112.     if (not(registered("os2rdbms70")))
  113.     {
  114.       modify("RDBMS_DFLT"," ",ora_config,"=");
  115.     }
  116.   }
  117. }
  118.