/* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */

/*************************************************************************
  NAME
    user.avf - user-defined .avf script

  DESCRIPTION
    This script allows users access to their own customizable .avf script.

  OWNER
    Amanda Harrison

  MODIFIED    DD/MM/YY  Reason
  rjclark     09/11/99  Added NLS strings to fix bug 877694
  jewillia    16/04/97  Use REGEDIT instead of REGEDT32 for NT 3.51
  jewillia    06/03/95  Added all products in platform independent mode
  jewillia    06/03/95  Added dbtools and des2000 sections
  jewillia    06/03/95  Modified quick_install check and use 'set' function for global values
  aharriso    19/08/96  Updated OS independent code with new Installer functions.
  aharriso    15/06/96  Added variables for program group names and
                              set them in the Registry for Restore Icons.
  aharriso    18/04/96     Added flag and nls for adobe acrobat.
  aharriso    27/11/95  Added directory separator variable.
   rbansal    23/08/95  Modified to copy *.USR files to %INSTALLER_HOME%
   rbansal    10/07/95  Modified for Billboards
   rbansal    23/01/95  Modified for Language Supplements
   gpadmana   14/12/94  Removed unused variables and cleaned up messages
                        for CDE2 tables
   rbansal    04/12/94  Modified for CDE database tables
    bsabol    18/03/94  Created.
**************************************************************************/

  /* the Designer/2000, Object Database Designer, Datamart Designer,
     and Mentor section sets these variables to indicate the bundle
         DESIGNER2000_RELEASE
         ODD_RELEASE
         OBM_RELEASE
         BPD_RELEASE
         REPOSITORY_RELEASE
         FIRST_PRACTICE_RELEASE
         DATAMART_DESIGNER_RELEASE
         DESIGNER_HELP_RELEASE
         BUGFIX_RELEASE
         PATCHSET_RELEASE
     if not already set (eg in user.stp). To incorporate this Designer
     based user.avf without using the Designer user.stp or to override the
     dynamic testing and seting of  these variables you can set them here.
     (You can set them all to FALSE).
     You may also wish to set:
         DEVELOPER2000_RELEASE
         DISCOVERER2000_RELEASE
  */

/**************************************************************************/

{

  /***********************************************************************
     make sure we are running from drive letter
  ***********************************************************************/

     /* make sure we are running from drive letter */
     if (not (contains (product_home, ":")))
     {
        information_dialog ("The drive for the Oracle products is not mapped to a
drive letter. UNC paths are not supported. Map a directory above the Oracle
products to a drive letter and restart Installer."  , "ERROR", 'NOCANCEL);
        signal ('CANCEL, "UNC paths not supported");
     }

  /***********************************************************************
    Set Installer variables according to the <os.prd> being used.
  ***********************************************************************/

  /* used in this script; so do it here */

  prefix = operating_system;
  {instver_product = evaluate("%prefix%instver"); } ['UNBOUND_VARIABLE: continue(); ]
  {orainst_product = evaluate("%prefix%install"); } ['UNBOUND_VARIABLE: continue(); ]
  {instver_prod    = evaluate("%prefix%instver"); } ['UNBOUND_VARIABLE: continue(); ]
  {orainst_prod    = evaluate("%prefix%install"); } ['UNBOUND_VARIABLE: continue(); ]

  /* [Jewillia] */
  /* overwrite_mode is set in the .stp file so will not be read
     if you run the installer from a local hard disk.
     Check it here and set it if necessary. Individual products
     may override this default
  */
  { overwrite_mode = overwrite_mode; }
  [ 'UNBOUND_VARIABLE:
    {
    /* Let the installer know to always overwrite by default */
    overwrite_mode = 'ALWAYS;
    }
  ]


  /* [jewillia] check that the installer will accept the set command.
     This is just to ensure there is no problem later on if the script
     was called by a very early version of the installer (eg by using
     the "from..." button.
  */
  { set("dummy", "", 'GLOBAL); }
  ['Default(A,B,C,D):
   {
   required_version = product_version(instver_product);
   information_dialog("The wrong version of the installer has been invoked. Please run the Oracle Installer version %required_version% found on the distribution medium.",
                      "Wrong Version",
                      "The following error was encountered whilst interpreting a script%carriage_return%%carriage_return%%A%%carriage_return%%B%%carriage_return%%C%%carriage_return%%D%%carriage_return%%carriage_return%The syntax in the script is not supported. The installer and the script are of incompatible versions.",
                      'NO_CANCEL);
   signal('CANCEL,"Wrong Version of Installer. Installation terminated.");
   }
  ]

  /***********************************************************************
    A test case for a bug in the installer
  ***********************************************************************/

  /* variables set using var = value in the user.avf scripts do not seem
     to be in the GLOBAL namespace because they can not be manipulated
     by set(,,'GLOBAL) statements inside product verification scripts.
    So use the set(,,'GLOBAL) to initialize them if they may be changed.
  */

  /* The following code is the test case to exhibit the bug and can be removed */

  /* clear value in local namespace */
  /* a_global_value = true; */
  /* a_global_value = unbound_variable(); */

  /* ...
  set_a_global_value = TRUE;

  {
  t1 = evaluate("a_global_value",'GLOBAL);
  information_dialog("global value %t1%");
  }
  ['UNBOUND_VARIABLE: information_dialog("global value unbound");]

  {
  t1 = evaluate("a_global_value",'LOCAL);
  information_dialog("local value %t1%");
  }
  ['UNBOUND_VARIABLE: information_dialog("local value unbound");]

  information_dialog("a_global_value : %a_global_value%");
  ... */

  /* set value in global namespace */
  /* ...
  set("a_global_value", set_a_global_value,'GLOBAL);
  information_dialog("settting a_global_value in global namespace");
  ... */

/*...
  information_dialog("a_global_value : %a_global_value%");

  {
  t1 = evaluate("a_global_value",'GLOBAL);
  information_dialog("global value %t1%");
  }
  ['UNBOUND_VARIABLE: information_dialog("global value unbound");]

  {
  t1 = evaluate("a_global_value",'LOCAL);
  information_dialog("local value %t1%");
  }
  ['UNBOUND_VARIABLE: information_dialog("local value unbound");]
...*/

  /********************************
    Version detection stuff for WinNT
  *********************************/

  osVer = operating_system_version();
  osVerStr = "You are running WinNT version 3.50.  This version of WinNT probably will not work with some of the Oracle Developer stuff.  It would be a good to upgrade now.";
  osVerTitle = "WinNT 3.50 Version Warning";

  if (operating_system == "nt")  /* see first if we are running NT */
  {
       if (osVer < "3.51")
       {
            information_dialog( instantiate( osVerStr ), instantiate( osVerTitle ), 'NO_CANCEL );
       } /* end osVerStr compare if */
  } /* end of os system if loop */

  /***********************************************************************
    Set windows directory variables
  ***********************************************************************/

  /* used by Designer/2000 & Developer/2000 */

  windows_sys_dir = windows_system_directory();
  windows_dir = windows_directory();

  /* used by OEM */

  WIN_SYSTEM_ROOT = win32_system_root();
  WIN_SYSTEM_DIR = windows_system_directory();

  OPSYS=platform();

  if (contains("%OPSYS%","nt"))
          OPSYS = "WindowsNT";

  if (contains("%OPSYS%","95"))
          OPSYS = "Windows95";

  /********************************
    MOH Stuff, actually for Installer V3.3
  *********************************/

  /* Define a list that will contain all products being selected to  */
  /* that are not MOH compliant and are already installed in another */
  /* home.  This list will be modified by REGNMOH.VRF and displayed  */
  /* in USER.PVF.                                                    */
  non_moh_prod_list = list();

  /*******************************************************************************
   ********************** START MOH SID DETECTION CODE ***************************
   *******************************************************************************

     This code fragment is meant to be used with the MOH-compliant installer (3.3.x).
     It determines which SID value should be used for an installation of the RDBMS
     and sets the variable "available_sid" to this value.  The algorithm is:

     1. Get a list of all SIDs which exist on machine by looking at the services
        defined in the registry and the rdbms files in each Oracle Home.
     2. See if any SIDs "belong" to the current home by comparing the service ImagePath
        to the Oracle Home path.
     3. If no SIDs "belong" to current home, then we will choose a new SID - the first unused
        value from this list: ORCL, ORC1, ORC2, ... , ORC9, OR10, OR11, ... , OR99.
        If one or more SIDs "belong" to current home, then we choose the "first" one (where
        "first" is relative to the ordering of the list above) and we set the variable
        "overwrite_sid" to TRUE.  This indicates that we will prompt the user during
        RDBMS verification whether to overwrite the SID/database or not.  If not, no
        seed database will be installed. */

  /* Assume that we are not in an overwrite scenario at first. */
  overwrite_sid = false;

  /* Do we need to determine the new SID based on the predefined ordered list? */
  need_new_sid = false;

  /* Start with a default value for available_sid. */
  available_sid = "ORCL";

  /* First, get the list of all services on the machine. */
  {
   all_services_list = win32_enumerate_keys("HKEY_LOCAL_MACHINE", "SYSTEM\CurrentControlSet\Services");
  }
   [
    'DEFAULT: all_services_list = list();
   ]

  /* Now, reduce the list to only those services which contain the "OracleService" substring. */
  only_OracleService_list = list();
  while(not(empty(all_services_list))) {
     temp_service = first(all_services_list);
     if (contains(temp_service, "OracleService"))
        add(only_OracleService_list, temp_service);
     all_services_list = rest(all_services_list);
  }

  /* Now we've got the list of all "OracleService..." services.  We need to check to see if any
     of these services "belong" to the current Oracle Home.  If not, we can check the current home
     for DB files and select a new SID if the files aren't found.  If so, we will create a list of
     such services for further processing. */
  oracle_home_with_backslash = instantiate("%oracle_home%\");
  temp_OracleService_list = only_OracleService_list;
  curhome_service_list = list();
  while(not(empty(temp_OracleService_list))) {
     temp_service = first(temp_OracleService_list);
     {
      image_path = win32_get_value("HKEY_LOCAL_MACHINE", instantiate("SYSTEM\CurrentControlSet\Services\%temp_service%"), "ImagePath");
     }
      [
       'DEFAULT: image_path = "";
      ]
     if (contains(image_path, oracle_home_with_backslash)) {
        add(curhome_service_list, temp_service);
     }
     temp_OracleService_list = rest(temp_OracleService_list);
  }

  /* Now check to see if there are any services belonging to this home. */
  if (not(empty(curhome_service_list))) {
     /* Here we need to examine the list of services found in this home and determine which
        is the one to (potentially) overwrite. */
     temp_service_list = curhome_service_list;
     found_sid = false;
     while(not(empty(temp_service_list))) {
        temp_sid_string = first(temp_service_list);
        if (contains(temp_sid_string, "ORCL")) {
           found_sid = true;
           available_sid = "ORCL";
           overwrite_sid = true;
           break();
        }
        temp_service_list = rest(temp_service_list);
     }
     if(not(found_sid)) {
        i = 1;
        while(i < 10) {
           checksid = instantiate("ORC%i%");
           temp_service_list = curhome_service_list;
           found_sid = false;
           while(not(empty(temp_service_list))) {
              temp_sid_string = first(temp_service_list);
              if (contains(temp_sid_string, checksid)) {
                 found_sid = true;
                 available_sid = checksid;
                 overwrite_sid = true;
                 break();
              }
              temp_service_list = rest(temp_service_list);
           }
           if (found_sid) break();
           i = i + 1;
        }
        if(not(found_sid)) {
           while(i < 100) {
              checksid = instantiate("OR%i%");
              temp_service_list = curhome_service_list;
              found_sid = false;
              while(not(empty(temp_service_list))) {
                 temp_sid_string = first(temp_service_list);
                 if (contains(temp_sid_string, checksid)) {
                    found_sid = true;
                    available_sid = checksid;
                    overwrite_sid = true;
                    break();
                 }
                 temp_service_list = rest(temp_service_list);
              }
              if (found_sid) break();
              i = i + 1;
           }
        }
     }
     /* If we reach here and haven't found a SID, then all SIDs used
        by the current home are not on our search list.  In this case, we will
        choose a new SID and, of course, not overwrite. */
     if(not(found_sid))
        need_new_sid = true;
  } else { /* No OracleService for this home. */
     /* Now check the filesystem for the current home to see if there are DB files.
        If not, we can select a new SID and we're done.  If so, we must offer the
        overwrite option to the user (in the RDBMS component). */
     {
      filenames_list = files("%oracle_home%\database\sys1*.ora");
     }
      [
       'DEFAULT: filenames_list = list();
      ]
     if (empty(filenames_list)) {
        /* No DB files in this home.  We are free to select a new SID and install the seed. */
        need_new_sid = true;
     } else {
        /* DB files were found in this home - pull the first SID from the filenames and
           offer an overwrite to the user (in rdbms component). */
        temp_filename_list = filenames_list;
        found_sid = false;
        while(not(empty(temp_filename_list))) {
           temp_sid_string = first(temp_filename_list);
           if (contains(temp_sid_string, "ORCL")) {
              found_sid = true;
              available_sid = "ORCL";
              overwrite_sid = true;
              break();
           }
           temp_filename_list = rest(temp_filename_list);
        }
        if(not(found_sid)) {
           i = 1;
           while(i < 10) {
              checksid = instantiate("ORC%i%");
              temp_filename_list = filenames_list;
              found_sid = false;
              while(not(empty(temp_filename_list))) {
                 temp_sid_string = first(temp_filename_list);
                 if (contains(temp_sid_string, checksid)) {
                    found_sid = true;
                    available_sid = checksid;
                    overwrite_sid = true;
                    break();
                 }
                 temp_filename_list = rest(temp_filename_list);
              }
              if(found_sid) break();
              i = i + 1;
           }
           if(not(found_sid)) {
              while(i < 100) {
                 checksid = instantiate("OR%i%");
                 temp_filename_list = filenames_list;
                 found_sid = false;
                 while(not(empty(temp_filename_list))) {
                    temp_sid_string = first(temp_filename_list);
                    if (contains(temp_sid_string, checksid)) {
                       found_sid = true;
                       available_sid = checksid;
                       overwrite_sid = true;
                       break();
                    }
                    temp_filename_list = rest(temp_filename_list);
                 }
                 if (found_sid) break();
                 i = i + 1;
              }
           }
        }
        /* If we reach here and haven't found a SID, then all SIDs used
           by the current home are not on our search list.  In this case, we will
           choose a new SID and, of course, not overwrite. */
        if(not(found_sid))
           need_new_sid = true;
     }
  }

  /* Now we are done with sid selection UNLESS the need_new_sid flag has been set.  If it
     has, then we need to select a new SID from our predefined ordered list. */
  if(need_new_sid) {
     done = false;
     temp_SID_elim_list = only_OracleService_list;
     found_sid = false;
     while(not(empty(temp_SID_elim_list))) {
        temp_sid_string = first(temp_SID_elim_list);
        if (contains(temp_sid_string, "ORCL")) {
           found_sid = true;
           break();
        }
        temp_SID_elim_list = rest(temp_SID_elim_list);
     }
     if(not(found_sid)) {
        available_sid = "ORCL";
        done = true;
     } else {
        i = 1;
        while(i < 10) {
           checksid = instantiate("ORC%i%");
           temp_SID_elim_list = only_OracleService_list;
           found_sid = false;
           while(not(empty(temp_SID_elim_list))) {
              temp_sid_string = first(temp_SID_elim_list);
              if (contains(temp_sid_string, checksid)) {
                 found_sid = true;
                 break();
              }
              temp_SID_elim_list = rest(temp_SID_elim_list);
           }
           if(not(found_sid)) {
              available_sid = checksid;
              done = true;
              break();
           }
           i = i + 1;
        }
        if(not(done)) {
           while(i < 100) {
              checksid = instantiate("OR%i%");
              temp_SID_elim_list = only_OracleService_list;
              found_sid = false;
              while(not(empty(temp_SID_elim_list))) {
                 temp_sid_string = first(temp_SID_elim_list);
                 if (contains(temp_sid_string, checksid)) {
                    found_sid = true;
                    break();
                 }
                 temp_SID_elim_list = rest(temp_SID_elim_list);
              }
              if(not(found_sid)) {
                 available_sid = checksid;
                 done = true;
                 break();
              }
              i = i + 1;
           }
        }
     }
     if(not(done)) {
        /* Couldn't find an unused SID - do something interesting. */
        available_sid = "";
        signal('CANCEL, "You have at least 100 Database SIDs in your registry.  Please delete one or more before installing additional Oracle products.");
     }
  }

  /*******************************************************************************
   *********************** END MOH SID DETECTION CODE ****************************
   *******************************************************************************/

/****** Start of EM global variables **********/

  /* Setup Enterprise Manager global Variables */
  /* EM, Performance Pack, and doc add elements to exit_messages, list is displayed by user.pin */

  exit_messages = list();

  exit_message_content = nls("exit_message_content", "Installation Completed");
  oem_exit_msg = nls("oem_exit_msg","Oracle Enterprise Manager was successfully installed.%carriage_return%%carriage_return%");
  perfpak_exit_msg = nls("perfpak_exit_msg","Oracle Enterprise Manager Performance Pack was successfully installed.%carriage_return%%carriage_return%");
  doc_exit_msg = nls("doc_exit_msg","Oracle Enterprise Manager Documentation was successfully installed. View the documentation by launching the icon in the Enterprise Manager program group.%carriage_return%%carriage_return%");
  oem_repository_msg = nls("oem_repository_req","The Repository Manager is a new feature in Enterprise Manager 1.3. Refer to the Enterprise Manager
Installation Guide for details on creating a new repository or updating an existing repository.%carriage_return%%carriage_return%");
   oem_readme_msg = nls("oem_readme_msg","Please read the Enterprise Manager Readme in the Oracle Enterprise Manager program group.%carriage_return%%carriage_return%");

/****** End of EM global variables **********/

/****** Begin Common to Developer, Designer/2000, Object Database Designer, Datamart Designer & Mentor Declarations **********/

  /***********************************************************************
    Set the directory separator
  ***********************************************************************/

  dir_separator = "\";

  /***********************************************************************
    Standard script template
  ***********************************************************************/

  execute("%installer_home%%dir_separator%%operating_system%.avf");

  permit_invisible_registrations = FALSE;

  {installation_mode = installation_mode;}
  ['UNBOUND_VARIABLE: installation_mode = 'stand_alone;]

  /***********************************************************************
    Set a flag for Adobe Acrobat reader message at end of install
  ***********************************************************************/

  set("acro_flag", FALSE, 'GLOBAL);

  /***********************************************************************
    Set a flag for asking user to install dev/2000 Demos & Add-on
  ***********************************************************************/

  /* set FALSE for Designer, TRUE for Developer */
  set("demos_flag", FALSE, 'GLOBAL);

  /***********************************************************************
    Set the Registry editor EXE depending on the Platform
  ***********************************************************************/

  current_platform = platform();

  if (current_platform == "nt")
  {
   if (osVer == "3.51")
        /* [jewillia] using regedt32 does not seem to work */
        /* REGEXE="%windows_sys_dir%%dir_separator%REGEDT32.EXE"; */
        REGEXE="%windows_dir%%dir_separator%REGEDIT.EXE";
   else
        REGEXE="%windows_dir%%dir_separator%REGEDIT.EXE";
  }
  else
   REGEXE="%windows_dir%%dir_separator%REGEDIT.EXE";

/****** End Common to Developer, Designer/2000, Object Database Designer, Datamart Designer & Mentor Declarations **********/

/****** End Developer Declarations **********/

/****** Start Developer Declarations **********/

         RSF_PRODUCT = w32rsf80;
         PLUS_PRODUCT = w32plus80;

     /**********************************************
       Set variables for program groups for .MAP files
     ***********************************************/
           developer_icon = nls("developer_icon","Forms & Reports");
           d2k_icon = developer_icon;
     D2K60_COMPONENTS = nls("D2K60_COMPONENTS","Oracle %d2k_icon% 6i Comps");
     D2K60_ADMINISTRATION = nls("D2K60_ADMINISTRATION","Oracle %d2k_icon% 6i Admin");
     D2KOR60_ADMINISTRATION = nls("D2KOR60_ADMINISTRATION","Oracle Reports 6i Admin");
     D2KIF60_ADMINISTRATION = nls("D2KIF60_ADMINISTRATION","Oracle Forms 6i Admin");
     D2K60_DEMOS = nls("D2K60_DEMOS","Oracle %d2k_icon% 6i Demos");
     D2K60_DOCS = nls("D2K60_DOCS","Oracle %d2k_icon% 6i Doc");
     D2K60_DRIVERS = nls("D2K60_DRIVERS","Oracle %d2k_icon% 6i Direct Drivers");
     D2K60_GROUP = nls("D2K60_GROUP","Oracle %d2k_icon% 6i");
     D2KOR60_GROUP = nls("D2KOR60_GROUP","Oracle Reports 6i");
     D2KIF60_GROUP = nls("D2KIF60_GROUP","Oracle Forms 6i");
     OLAP22_CLIENT = nls("OLAP22_CLIENT","Oracle Olap Client 2.2");

     D2K60_COMPONENTS_OLD = nls("D2K60_COMPONENTS_OLD","Oracle Developer 60 Comps");
     D2K60_ADMINISTRATION_OLD = nls("D2K60_ADMINISTRATION_OLD","Oracle Developer 60 Admin");
     D2K60_DEMOS_OLD = nls("D2K60_DEMOS_OLD","Oracle Developer 60 Demos");
     D2K60_DOCS_OLD = nls("D2K60_DOCS_OLD","Oracle Developer 60 Doc");
     D2K60_DRIVERS_OLD = nls("D2K60_DRIVERS_OLD","Oracle Developer 60 Direct Drivers");
     D2K60_GROUP_OLD = nls("D2K60_GROUP_OLD","Oracle Developer 60");

     D2K60_COMPONENTS ="%D2K60_COMPONENTS%%oracle_home_group%";
     D2K60_ADMINISTRATION = "%D2K60_ADMINISTRATION%%oracle_home_group%";
     D2KOR60_ADMINISTRATION = "%D2KOR60_ADMINISTRATION%%oracle_home_group%";
     D2KIF60_ADMINISTRATION = "%D2KIF60_ADMINISTRATION%%oracle_home_group%";
     D2K60_DEMOS = "%D2K60_DEMOS%%oracle_home_group%";
     D2K60_DOCS = "%D2K60_DOCS%%oracle_home_group%";
     D2K60_DRIVERS = "%D2K60_DRIVERS%%oracle_home_group%";
     D2K60_GROUP = "%D2K60_GROUP%%oracle_home_group%";
     D2KOR60_GROUP = "%D2KOR60_GROUP%%oracle_home_group%";
     D2KIF60_GROUP = "%D2KIF60_GROUP%%oracle_home_group%";
     OLAP22_CLIENT = "%OLAP22_CLIENT%%oracle_home_group%";


     OPEN2K60_DOCS = D2K60_DOCS;

     D2K60_COMPONENTS_NEW =D2K60_COMPONENTS;
     D2K60_ADMINISTRATION_NEW = D2K60_ADMINISTRATION;
     D2KOR60_ADMINISTRATION_NEW = D2KOR60_ADMINISTRATION;
     D2KIF60_ADMINISTRATION_NEW = D2KIF60_ADMINISTRATION;
     D2K60_DEMOS_NEW = D2K60_DEMOS;
     D2K60_DOCS_NEW = D2K60_DOCS;
     D2K60_DRIVERS_NEW = D2K60_DRIVERS;
     D2K60_GROUP_NEW = D2K60_GROUP;
     D2KOR60_GROUP_NEW = D2KOR60_GROUP;
     D2KIF60_GROUP_NEW = D2KIF60_GROUP;


     D2K60_COMPONENTS_OLD ="%D2K60_COMPONENTS_OLD%%oracle_home_group%";
     D2K60_ADMINISTRATION_OLD = "%D2K60_ADMINISTRATION_OLD%%oracle_home_group%";
     D2K60_DEMOS_OLD = "%D2K60_DEMOS_OLD%%oracle_home_group%";
     D2K60_DOCS_OLD = "%D2K60_DOCS_OLD%%oracle_home_group%";
     D2K60_DRIVERS_OLD = "%D2K60_DRIVERS_OLD%%oracle_home_group%";
     D2K60_GROUP_OLD = "%D2K60_GROUP_OLD%%oracle_home_group%";

     /**********************************************/

     /****************************************************************
     Set each variable in the Registry so that Restore Icons will work
     *****************************************************************/
       modify("D2K60_COMPONENTS", D2K60_COMPONENTS, ora_config);
       modify("D2K60_ADMINISTRATION", D2K60_ADMINISTRATION, ora_config);
       modify("D2KOR60_ADMINISTRATION", D2KOR60_ADMINISTRATION, ora_config);
       modify("D2KIF60_ADMINISTRATION", D2KIF60_ADMINISTRATION, ora_config);
       modify("D2K60_DEMOS", D2K60_DEMOS, ora_config);
       modify("D2K60_DOCS", D2K60_DOCS, ora_config);
       modify("D2K60_GROUP", D2K60_GROUP, ora_config);
       modify("D2KOR60_GROUP", D2KOR60_GROUP, ora_config);
       modify("D2KIF60_GROUP", D2KIF60_GROUP, ora_config);
       modify("D2K60_DRIVERS", D2K60_DRIVERS, ora_config);
       modify("OPEN2K60_DOCS", OPEN2K60_DOCS, ora_config);
     /****************************************************************/

     /******************************
     Set up variables for Billboards
     *******************************/
     DEV2K_BB01 = FALSE;
     DEV2K_BB02 = FALSE;
     DEV2K_BB03 = FALSE;
     DEV2K_BB04 = FALSE;
     DEV2K_BB05 = FALSE;
     DEV2K_BB06 = FALSE;
     DEV2K_BB07 = FALSE;
     DEV2K_BB08 = FALSE;
     DEV2K_BB09 = FALSE;
     DEV2K_BB10 = FALSE;
     DEV2K_BB11 = FALSE;
     DEV2K_BB12 = FALSE;
     DEV2K_BB13 = FALSE;

     DEVELOPER2000_RELEASE = FALSE; /* [jewillia - modified for Designer Release] */
     DISCOVERER2000_RELEASE = FALSE;
     PJ = FALSE;
     /******************************/

     /*******************************************************************
     Copy Developer generic billboards to %installer_home% location
     ********************************************************************/
     bboard_list = files("%product_home%%dir_separator%d*.bmp");

     while(not(empty(bboard_list)))
     {
          current_bboard = file_name(first(bboard_list));

          {
               if(not(exists("%installer_home%%dir_separator%%current_bboard%")))
                    copy_file("%product_home%%dir_separator%%current_bboard%", "%installer_home%%dir_separator%%current_bboard%");
          }
          [
               'INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'READ_ERROR: continue();
                'WRITE_ERROR: signal('FAILURE, "Insufficient disk space.");
          ]

          bboard_list = rest(bboard_list);
     }
     /*************************************/

     /*************************
     Remove any temporary files
     **************************/
     install_loc_file = "%installer_home%%dir_separator%varfile.tmp";
     {
          if(exists(install_loc_file))
               remove_file(install_loc_file);
     }
     ['INVALID_FILE_NAME: continue();]
     /*************************/

     /***********************************
     Copy *.USR files to %INSTALLER_HOME%
     ************************************/
     userfiles_list = files("%product_home%%dir_separator%*.usr");

     while(not(empty(userfiles_list)))
     {
          current_userfile = file_name(first(userfiles_list));

          { copy_file("%product_home%%dir_separator%%current_userfile%", "%installer_home%%dir_separator%%current_userfile%"); }
          [
               'INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'READ_ERROR: continue();
                'WRITE_ERROR: signal('FAILURE, "Insufficient disk space.");
          ]

          userfiles_list = rest(userfiles_list);
     }
     /***********************************/

     /*********************
     Setup global variables
     **********************/
     release = "D2KSRV";
     display_product_label = "%%product_label%% %%display_version%%";
     display_main_label       = "%%product_main%% %%display_version_main%%";
     /*...
     quick_install = FALSE;
     {
         if (mn_menu_type == mn_menu_st1)
         {
         if ((dev_menu_type == dev_menu_st1) || (dev_menu_type == dev_menu_st2) || (dev_menu_type == dev_menu_st3))
                quick_install = TRUE;
     }
          else if (mn_menu_type == mn_menu_st2)
          {
          if ((dep_menu_type == dep_menu_st1) || (dep_menu_type == dep_menu_st2))
                quick_install = TRUE;
          }
      }
      [ 'UNBOUND_VARIABLE: CONTINUE();]
     ... */

     CDE1_PRODUCT_EXISTS = FALSE;
     CALLED_BY_DBTABLES = FALSE;
     OLD_SECTION_HEADING_EXISTS = FALSE;
     implode_explode_delimiter = ";";                                             /* default delimiter for implode/explode functions */
     /*********************/

     /****************************************
     Setup the nls() stuff for install scripts
     *****************************************/

/*** Begin - Common Declarations ***/
     install_exe               = nls("install_exe", "Installing %%product_label%% Executables...");
     install_dll               = nls("install_dll", "Installing %%product_label%% Dynamic Link Libraries...");
     install_files             = nls("install_files", "Installing %%product_label%% ...");
     install_register          = nls("install_register", "Registering %%product_label%%...");
     install_loc_conflict      = nls("install_loc_conflict","Another product is already installed at this location. Please specify a different location to install %%product_label%%.");
     deinstall_delold          = nls("deinstall_delold", "De-Installing old files...");
     halt_installation         = nls("halt_installation", "Cancelled installation at user's request...");
     reference_dependencies    = nls("reference_dependencies","Referencing %%product_label%% Dependencies...");
     modify_variables          = nls("modify_variables", "Modifying %%product_label%% Environment Variables...");
     install_product           = nls("install_product","Where should %%product_label%% be installed?");

/*** End Common ***/

/*** Begin -  Open Client adapter for ODBC Declarations ***/
     odbc_demo_question        = nls("odbc_demo_question", "Would you like to install the %%product_label%% Examples?");
     odbc_demo_content         = nls("odbc_demo_content", "%%product_label%% Examples");
     odbc_demo_help            = nls("odbc_demo_help", "You may choose to automatically install the Examples for %%product_label%%. Choose NO if you don't want to install the Examples, CANCEL to halt the installation process.");
/*** End - Open client adapter for ODBC ***/

/*** Begin - Reinstall product over existing version of product Declarations ***/
     reinstall_group           = nls("reinstall_group","Version %%installed_version%% of %%product_label%% has already been installed and is up to date, although a component could be outdated or not installed.  Do you want to reinstall the main product and all its components?");
     reinstall_group_content   = nls("reinstall_group_content","Up To Date");
     reinstall_group_help      = nls("reinstall_group_help","You selected the main product, %%product_label%%, which is up to date. However, a component of the main product could be outdated or not installed.  Choose 'No' to skip the reinstallation of %%product_label%% and its component(s). Choose 'Yes' if you want to reinstall %%product_label%% and all its components.  If you want to install one or more specific components, click 'Cancel' and then select the appropriate component(s) to be reinstalled.");
/*** End Reinstall ***/

/*** Following message has to be declared get the message in Japanese. Right now this string is defined in
     in win32.stp but for some reason, it is not available for our install. */
     install_success = nls("install_success","Installation Successful.");
/*** Begin Adobe Acrobat Reader Declarations ***/
        acro_installation_successful = nls("acro_installation_successful","Installation Successful.%carriage_return%%carriage_return%Some of the products you have installed require the Adobe Acrobat Reader.  If you do not already have this installed on your machine, you should select it from the 'Products available' list.");
/*** End Adobe Acrobat Reader Declarations ***/

     pjs_msg       =nls("pjs_msg","Before setting up your projects, please read the chapter 'Managing Oracle Forms & Reports Developer Applications' in the manual 'Oracle Forms & Reports Developer: Guidelines for Building Applications'.");

/************ Begin Oracle Book Declarations **********************************/
     book_missing              = nls("book_missing","You must install Oracle Book Runtime to be able to use online documentation.  Do you wish to install Oracle Book Runtime?");
     book_missing_help         = nls("book_missing_help","If you choose 'Yes', Oracle Book Runtime will automatically be installed, along with the other selected products.  Selecting 'No' will not install Oracle Book Runtime, but will continue to install other previously selected products.  To cancel the installation, click 'Cancel'.
If there are settings in your current PREFS.ORA you would like to preserve, choose 'Preserve current PREFS.ORA'.  A file called PREFS.NEW will be copied to the %%OB21%% directory.  In order for links between documents in the Oracle Book document set to function, you must copy certain info from PREFS.NEW into PREFS.ORA.  See the Installation Guide for details.

If your current PREFS.ORA file has no settings you would like to keep, choose 'Overwrite current PREFS.ORA'.  This will overwrite your old PREFS.ORA and all old settings will be lost.");

     replace_overwrite         = nls("replace_overwrite","Overwrite existing PREFS.ORA");
     replace_preserve          = nls("replace_preserve","Preserve existing PREFS.ORA");
     replace_list              = list(replace_overwrite, replace_preserve);
     replace_prompt            = nls("replace_prompt","A copy of PREFS.ORA, the configuration file which sets up bookshelves and other user preferences, has been found in %%Old_Prefs_Location%%.  Should the installer overwrite the existing PREFS.ORA?");
     replace_content           = nls("replace_content","PREFS.ORA Conflict");
     replace_help              = nls("replace_help","The PREFS.ORA file is where your Oracle Book preferences and customizations are kept.  For the Oracle Book documentation to work correctly, there are certain settings which must be defined in this file.

If there are settings in your current PREFS.ORA you would like to preserve, choose 'Preserve current PREFS.ORA'.  A file called PREFS.NEW will be copied to the %%OB21%% directory.  In order for links between documents in the Oracle Book document set to function, you must copy certain info from PREFS.NEW into PREFS.ORA.  See the Installation Guide for details.

If your current PREFS.ORA file has no settings you would like to keep, choose 'Overwrite current PREFS.ORA'.  This will overwrite your old PREFS.ORA and all old settings will be lost.");

/************ End Oracle Book Declarations **********************************/

/*** Begin -  Language Supplement Declarations ***/
     lang_products_missing     = nls("lang_products_missing","Language Supplement files are installed to your machine based on the Oracle products you have installed.  You cannot install the %%product_label%% without having first installed one of the main products.");
     lang_products_content     = nls("lang_products_content","Main Products Missing");
     lang_products_help        = nls("lang_products_help","None of the Main Products required for this installation are installed. Please make sure to install the desired Main Product first before continuing with the installation. Choose OK or CANCEL to halt the installation process.");
/*** End -  Language Supplement Declarations ***/

/**********************Smart Server related variables and dialogs ****************/
     if (operating_system == "nt")
     {
        configureProcesses = FALSE;
        need_to_start_f_server = FALSE;
        need_to_start_r_server = FALSE;
        Developer_6i_install= TRUE;

        if(registered("w32www21")|| member(selected_products,w32www21))
             install_webdb_listner = TRUE;
        forms_config_instruction_file = "%ORACLE_HOME%\orainst\forms6iconfig.txt";
        reports_config_instruction_file = "%ORACLE_HOME%\orainst\reports6iconfig.txt";
        forms_config_instruction_bak_file = "%ORACLE_HOME%\orainst\forms6iconfig.bak";
        reports_config_instruction_bak_file = "%ORACLE_HOME%\orainst\reports6iconfig.bak";

     if(member(selected_products,d2lc) || member(selected_products,d2ls)||
        member(selected_products,w32frunw60)||member(selected_products,w32rmts60)||
      member(selected_products,w32forms60)||member(selected_products,w32report60))
      {
         prompt_string=nls("prompt_string",

"One or more components that you have selected need to be started up before they can be used.  Please indicate whether you want this to be done for you.

NOTE: Oracle Enterprise Manager (OEM) users should select 'No' here and use OEM to start the required processes later.

Create and start services now? ");
        prompt_default=TRUE;
        prompt_content=nls("path_modn_content","Process Startup");
        path_modify = yesno_dialog(prompt_string, prompt_default,
                                  prompt_content, 'NOHELP, 'NOCANCEL);
        if(path_modify)
        {
            configureProcesses = TRUE;
            if(member(selected_products,w32rmts60) || member(selected_products,w32report60))
               need_to_start_r_server = TRUE;

            if(member(selected_products,w32frunw60) || member(selected_products,w32forms60))
                 need_to_start_f_server = TRUE;
        }
    }

        set("data_port","9010",'GLOBAL) ;
      set("request_port","9020",'GLOBAL);
        set("f__server_port","9000", 'GLOBAL);
        set("f__server_protocol","Socket", 'GLOBAL);

     /* Following added for Multiple Oracle Home support */
     if (oracle_home_info == default_home_info)
     {
       oracle_home_group1 = "";
     }
     else
     {
       oracle_home_group1 = "-%oracle_home_name%";
     }
        if((configureProcesses)||member(selected_products,w32rmts60))
        {
           forms_config_file_creation_error = nls("forms_config_file_creation_error","File %%forms_config_instruction_file%% couldn't create.");
           reports_config_file_cre_error = nls("reports_config_file_cre_error","File %%reports_config_instruction_file%% couldn't create.");
           make_directory("%Oracle_Home%\orainst");

           if(exists(forms_config_instruction_file))
           {
             forms_bak_file_creation_error = nls("forms_bak_file_creation_error","File %%forms_config_instruction_file%% couldn't move to file %%forms_config_instruction_bak_file%%.");
             { move_file(forms_config_instruction_file, forms_config_instruction_bak_file);}
             [ 'INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR:
                  {information_dialog(forms_bak_file_creation_error);}
             ]
           }

           { create_file(forms_config_instruction_file);}
           ['INVALID_FILE_NAME, 'WRITE_ERROR:
                {information_dialog(forms_config_file_creation_error);} ]
           if(exists(reports_config_instruction_file))
           {
             reports_bak_file_creation_error = nls("reports_bak_file_creation_error","File %%reports_config_instruction_file%% couldn't move to file %%reports_config_instruction_bak_file%%.");
             { move_file(reports_config_instruction_file, reports_config_instruction_bak_file);}
             [ 'INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR:
                  {information_dialog(reports_bak_file_creation_error);}
             ]
           }

           { create_file(reports_config_instruction_file);}
           ['INVALID_FILE_NAME, 'WRITE_ERROR:
                {information_dialog(reports_config_file_cre_error);} ]

         current_date = system_date();
         current_time = system_time();
        forms_config_file_header = nls("forms_config_file_header",
"Configuration Steps for Oracle Forms installation of %current_time% %current_date%
__________________________________________________________________
");
        reports_config_file_header = nls("reports_config_file_header",
"Configuration Steps for Oracle Reports installation of %current_time% %current_date%
__________________________________________________________________
");

        introductory_message = nls("introductory_message",
"This file gives details of the configuration steps done for you by the installation process
(marked '[INFO]') and of any actions you need to do manually (marked '[ACTION]').  Please read
this file and perform the requested actions.
");

        modify("",forms_config_file_header,forms_config_instruction_file);
        modify("",introductory_message,forms_config_instruction_file);
        modify("",reports_config_file_header,reports_config_instruction_file);
        modify("",introductory_message,reports_config_instruction_file);

        }
        if(not(exists(forms_config_instruction_file)))
        {
                   { create_file(forms_config_instruction_file);}
           ['INVALID_FILE_NAME, 'WRITE_ERROR:
                {information_dialog(forms_config_file_creation_error);} ]
        }
        if(not(exists(reports_config_instruction_file)))
        {
                   { create_file(reports_config_instruction_file);}
           ['INVALID_FILE_NAME, 'WRITE_ERROR:
                {information_dialog(reports_config_file_cre_error);} ]
        }

  execute("user1.avf");
     }
/****** End Developer Declarations **********/

/****** Begin Designer/200, Object Database Designer, Datamart Designer & Mentor Declarations **********/

  /***********************************************************************
    oracle_key is used for start folder names
  ***********************************************************************/

  {oracle_key = oracle_key;}
  ['UNBOUND_VARIABLE:
    {
      {
      if (oracle_home_info == default_home_info)
        {
          oracle_key = "SOFTWARE\ORACLE";
        }
      else
        {
          oracle_key = "SOFTWARE\ORACLE\%oracle_home_key%";
        }
      }
      ['UNBOUND_VARIABLE: oracle_key = "SOFTWARE\ORACLE"; ]
    }
  ]

  /***********************************************************************
    Set the script version - not currently checked
  ***********************************************************************/

  user_script_ratchet = "7.0.16.0.0";

  /***********************************************************************
    Set generic version independent names for all dependent products
  ***********************************************************************/

  /* set product name variables */
  EXECUTE_SCRIPT = "DES2_PRODUCT_NAMES.VRF";
  execute("des2k_72.avf");

  forms60_registry_name  = "W32FORMS60";
  report60_registry_name = "W32REPORT60";
  graph60_registry_name  = "W32GRAPH60";
  forms60_registry_filename  = "FORMS60";
  report60_registry_filename = "REPORT60";
  graph60_registry_filename  = "GRAPH60";

  /***********************************************************************
    Set some nls message strings so that they can be used in
    the Designer specific versions of win32.* without needing to be
    in the win32.<lang> message file
  ***********************************************************************/

  /* modified from base message win32.stp */
  non_moh_msg3     = nls("non_moh_msg3",     "The following products have previously been installed in another Oracle home:%carriage_return%%carriage_return%%non_moh_prods%%carriage_return%%carriage_return%These products can only be installed in one Oracle home.  Click [OK] to continue installation without installing the products listed above.  Click [Cancel] to exit Oracle Installer.  Click [Help] for more information.%carriage_return%%carriage_return%%carriage_return%");
  non_moh_msg2     = nls("non_moh_msg2",     "The following products have previously been installed in another Oracle home:%carriage_return%%carriage_return%%non_moh_prods%%carriage_return%%carriage_return%These products can only be installed in one Oracle home.  Click [OK] to view the rest of the list and then continue installation without installing the products listed above.  Click [Cancel] to exit Oracle Installer.  Click [Help] for more information.%carriage_return%%carriage_return%%carriage_return%");

  /* from win32.vrf */
  new_install_prompt01  = nls("new_install_prompt01","Would you like to install %%product_label%%, version %%current_version%%?");
  new_install_content01 = nls("new_install_content01","New Install");
  new_install_help01    = nls("new_install_help01","Choose 'Yes' to install %%product_label%% %%current_version%%. Choose 'No' if you do not want to install the product.");
  reinstall_prompt01a   = nls("reinstall_prompt01a","Would you like to update %%registry_label%%, version %%installed_version%%, with the available release of %%product_label%%, version %%current_version%%?");

  /* from win32.pvf */
  all_products_uptodate       = nls("all_products_uptodate",       "All the products that you selected are up to date and do not need to be copied to your machine.");
  standard_product_prompt2    = nls("standard_product_prompt2",    "The following product that you selected will be copied to your machine:%carriage_return%%carriage_return%%%standardstring%%");
  standard_product_prompt2r   = nls("standard_product_prompt2r",   "The following product that you selected will be copied to your machine:%carriage_return%%carriage_return%%%standardstring%%%carriage_return%%carriage_return%Click on OK to continue and view the list of additional required products.");
  standard_products_prompt2   = nls("standard_products_prompt2",   "The following %%selected_count_products%% products that you selected will be copied to your machine:%carriage_return%%carriage_return%%%standardstring%%");
  standard_products_prompt2r  = nls("standard_products_prompt2r",  "The following %%selected_count_products%% products that you selected will be copied to your machine:%carriage_return%%carriage_return%%%standardstring%%%carriage_return%%carriage_return%Click on OK to continue and view the list of additional required products.");
  standard_products_prompt2m  = nls("standard_products_prompt2m",  "The following %%selected_count_products%% products that you selected will be copied to your machine:%carriage_return%%carriage_return%%%standardstring%%%%carriage_return%%carriage_return%More follows...");
  standard_products_content   = nls("standard_products_content",   "Install Products");
  required_product_prompt2    = nls("required_product_prompt2",    "The following product is required in addition to the ones you selected and will be copied to your machine:%carriage_return%%carriage_return%%%extrastring%%");
  required_products_prompt2   = nls("required_products_prompt2",   "The following %%required_count_products%% products are required in addition to the ones you selected and will be copied to your machine:%carriage_return%%carriage_return%%%extrastring%%");
  required_products_prompt2m  = nls("required_products_prompt2m",  "The following %%required_count_products%% products are required in addition to the ones you selected and will be copied to your machine:%carriage_return%%carriage_return%%%extrastring%%%carriage_return%%carriage_return%More follows...");
  required_products_content   = nls("required_products_content",   "Required Products");
  pfi_help                    = nls("pfi_help","The following %%length_composite%% products will be installed:%carriage_return%%carriage_return%%%compositestring%%");

  /* from des2k_72.cmn */
  analyze_filassoc_error      = nls("analyze_filassoc_error","There was an error analyzing the file association for the %%analyze_filassoc_command%% command for files with extension %%analyze_filassoc_extension%%. The default value of NOTEPAD will be used. Please correct this error before re-installing this product or it will re-occur.");
  analyze_filassoc_content    = nls("analyze_filassoc_content","File Associations");
  analyze_filassoc_help       = nls("analyze_filassoc_help","The Oracle installer was attempting to determine the shell command to use when opening or editing files with a particular extension. The error is probably due to embedded quote characters in the string.%carriage_return%
Please edit the registry entry SOFTWARE\Classes\%%analyze_filassoc_application%%\shell\%%analyze_filassoc_command%%\command and correct the error and then re-install this product.%carriage_return%
You may wish to ignore this error in which case the default value will be used. However, if you attempt to re-install this product without correcting the error the same problem will re-occurr.");

  /* from des2k_72.vrf */
  patchset_new_install        = nls("patchset_new_install","You must install a base version of %%current_label%% before trying to install this patch set version %%current_version%%");
  lang_not_supported          = nls("lang not supported","This installation does not support your chosen language (language code '%%nls_abbreviation%%'), although underlying dependent products from the Oracle Server or Oracle Developer toolset may do so. English (American) versions of products (language code '%%language_subgroup%%') will be installed where no translated product is available.");
  case_makedir_help           = nls("case_makedir_help","Please Select a Directory where to install %%current_product_il%%"); /*Added by RJCLARK to make the help work*/
  cancel_message              = nls("cancel_message","Installation terminated by User");
  cancel_prompt               = nls("cancel_prompt","Installation cancelled by user. Select option.");
  cancel_content              = nls("cancel_content","Installation cancelled");
  cancel_help                 = nls("cancel_help","Installation cancelled by user. Select option to proceed with installation or terminate installation.");
  cancel_now                  = nls("cancel_now","Abort complete installation now");
  cancel_proceed              = nls("cancel_proceed","Proceed with installation");
  cancel_proceed2             = nls("cancel_proceed2","Proceed with installation using defaults");
  case_lost_files_message     = nls("case_lost_files_message","The directory specified for %%product_label%% has changed to %%case_value%%.%%carriage_return%%%%carriage_return%%The files in %%case_config_value%% will not be overwritten and will remain even if the product is de-installed.");

  /***********************************************************************
        NOTE - The following nls lines have been duplicated into user.avf
        (from des2k_72.dei) for translation.  If the lines are changed they need
        copied again into des2k_72.dei
  ***********************************************************************/

  deinstall_which             = nls("deinstall_which","Remove which %%installed_registry_label%%?");
  deinstall_location          = nls("deinstall_location", "%%installed_registry_label%% is not found in this directory.  Do you wish to attempt to deinstall at this location anyway?");

  /***********************************************************************
        NOTE - The following nls line was cut from des2k_72.ins
  ***********************************************************************/

  reg_variable_not_set       = nls("reg_variable_not_set","Warning! Failed to find unique file/directory with tag %%execute_id%%. Registry variable %%execute_variable%% will be incorrectly set.");
  breg_variable_not_set      = nls("breg_variable_not_set","Warning! Failed to find unique file/directory with tag %%broadcast_id%%. Registry variable %%broadcast_variable%% will be incorrectly set.");

  /***********************************************************************
        NOTE - The following nls lines was taken from des2k_72.vrf
  ***********************************************************************/

  required_version_info    = nls("instver_too_early", "The version of the Installer currently running is %%installer_version%%. The installation you have chosen requires version %%required_version%% or later.%carriage_return%
Please run version %%required_version%% or later in order to perform this installation.");
  required_version_help    = nls("instver_too_early_error","Error %%B%% whilst installing %%product_label%%");
  required_version_content = nls("instver_too_early_content","Installer verion mismatch");
  required_version_failure = nls("instver_too_early_failure","Installation terminated with Installer version mismatch.");
  patchset_new_install     = nls("patchset_new_install","You must install a base version of %%current_label%% before trying to install this patch set version %%current_version%%");
  lang_not_supported       = nls("lang not supported","This installation does not support your chosen language (language code '%%nls_abbreviation%%'), although underlying dependent products from the Oracle Server or Developer/2000 toolset may do so. English (American) versions of products (language code '%%language_subgroup%%') will be installed where no translated product is available.");
  makedir_help             = nls("makedir_help","Please Select a Directory where to install %%current_product_il%%"); /*Added by RJCLARK to make the help work*/
  cancel_message           = nls("cancel_message","Installation terminated by User");
  cancel_prompt            = nls("cancel_prompt","Installation cancelled by user. Select option.");
  cancel_content           = nls("cancel_content","Installation cancelled");
  cancel_help              = nls("cancel_help","Installation cancelled by user. Select option to proceed with installation or terminate installation.");
  cancel_now               = nls("cancel_now","Abort complete installation now");
  cancel_proceed           = nls("cancel_proceed","Proceed with installation");
  cancel_proceed2          = nls("cancel_proceed2","Proceed with installation using defaults");
  case_lost_files_message  = nls("case_lost_files_message","The directory specified for %%product_label%% has changed to %%case_value%%.%carriage_return%%carriage_return%The files in %%case_config_value%% will not be overwritten and will remain even if the product is de-installed.");

  /***********************************************************************
    Decide on which CD (bundle) the user is installing from
    (Designer/ODD can be bundled on one CD so a dynamic test is used
    to decide which bundle it is; can be set in user.stp if this was run)
  ***********************************************************************/

  {
    product_status = "Production";      /* could be overwritten in each vrf file */

    bundle_known = FALSE;

    /* check to see if the bundle has been defined already (eg in user.avf) */
    /* define other values to be FALSE as later scripts will test these variables
       without trapping for 'UNBOUND_VARIABLE
    */

    DESIGNER2000_RELEASE = FALSE;
    ODD_RELEASE = FALSE;
    OBM_RELEASE = FALSE;
    BPD_RELEASE = FALSE;
    REPOSITORY_RELEASE = FALSE;
    FIRST_PRACTICE_RELEASE = FALSE;
    DATAMART_DESIGNER_RELEASE = FALSE;
    DESIGNER_HELP_RELEASE = FALSE;
    BUGFIX_RELEASE = FALSE;

    {DESIGNER2000_RELEASE = set_OMR_RELEASE;}
    ['UNBOUND_VARIABLE: DESIGNER2000_RELEASE = FALSE || DESIGNER2000_RELEASE;]

    {DESIGNER2000_RELEASE = set_DESIGNER_RELEASE;}
    ['UNBOUND_VARIABLE: DESIGNER2000_RELEASE = FALSE || DESIGNER2000_RELEASE;]

    {DESIGNER2000_RELEASE = set_DESIGNER_CLIENT_RELEASE;}
    ['UNBOUND_VARIABLE: DESIGNER2000_RELEASE = FALSE || DESIGNER2000_RELEASE;]

    {DESIGNER2000_RELEASE = set_DESIGNER_SERVER_RELEASE;}
    ['UNBOUND_VARIABLE: DESIGNER2000_RELEASE = FALSE || DESIGNER2000_RELEASE;]

    {DESIGNER2000_RELEASE = set_DESIGNER_REPTOOL_RELEASE;}
    ['UNBOUND_VARIABLE: DESIGNER2000_RELEASE = FALSE || DESIGNER2000_RELEASE;]

    {DESIGNER2000_RELEASE = set_R21_DESIGNER_RELEASE;}
    ['UNBOUND_VARIABLE: DESIGNER2000_RELEASE = FALSE || DESIGNER2000_RELEASE;]

    {DESIGNER2000_RELEASE = set_R21_SEEDED_REPOSITORY_RELEASE;}
    ['UNBOUND_VARIABLE: DESIGNER2000_RELEASE = FALSE || DESIGNER2000_RELEASE;]

    {ODD_RELEASE = set_ODD_RELEASE;}
    ['UNBOUND_VARIABLE: ODD_RELEASE = FALSE || ODD_RELEASE;]

    {ODD_RELEASE = set_R21_ODD_RELEASE;}
    ['UNBOUND_VARIABLE: ODD_RELEASE = FALSE  || ODD_RELEASE;]

    {OBM_RELEASE = set_OBM_RELEASE;}
    ['UNBOUND_VARIABLE: OBM_RELEASE = FALSE || OBM_RELEASE;]

    {BPD_RELEASE = set_BPD_RELEASE;}
    ['UNBOUND_VARIABLE: BPD_RELEASE = FALSE || BPD_RELEASE;]

    {REPOSITORY_RELEASE = set_REPOSITORY_RELEASE;}
    ['UNBOUND_VARIABLE: REPOSITORY_RELEASE = FALSE || REPOSITORY_RELEASE;]

    {FIRST_PRACTICE_RELEASE = set_FIRST_PRACTICE_RELEASE;}
    ['UNBOUND_VARIABLE: FIRST_PRACTICE_RELEASE = FALSE || FIRST_PRACTICE_RELEASE;]

    {FIRST_PRACTICE_RELEASE = set_R21_FIRST_PRACTICE_RELEASE;}
    ['UNBOUND_VARIABLE: FIRST_PRACTICE_RELEASE = FALSE || FIRST_PRACTICE_RELEASE;]

    {DATAMART_DESIGNER_RELEASE = set_DATAMART_DESIGNER_RELEASE;}
    ['UNBOUND_VARIABLE: DATAMART_DESIGNER_RELEASE = FALSE || DATAMART_DESIGNER_RELEASE;]

    {DESIGNER_HELP_RELEASE = set_DESIGNER_HELP_RELEASE;}
    ['UNBOUND_VARIABLE: DESIGNER_HELP_RELEASE = FALSE  || DESIGNER_HELP_RELEASE;]

    {BUGFIX_RELEASE = set_BUGFIX_RELEASE;}
    ['UNBOUND_VARIABLE: BUGFIX_RELEASE = FALSE || BUGFIX_RELEASE;]

    if (DESIGNER2000_RELEASE) bundle_known = TRUE;
    if (ODD_RELEASE) bundle_known = TRUE;
    if (OBM_RELEASE) bundle_known = TRUE;
    if (BPD_RELEASE) bundle_known = TRUE;
    if (REPOSITORY_RELEASE) bundle_known = TRUE;
    if (FIRST_PRACTICE_RELEASE) bundle_known = TRUE;
    if (DATAMART_DESIGNER_RELEASE) bundle_known = TRUE;
    if (DESIGNER_HELP_RELEASE) bundle_known = TRUE;
    if (BUGFIX_RELEASE) bundle_known = TRUE;

    if (bundle_known == FALSE)
      {
        /* still not found; so look for other indicators */
        if (exists("%product_home%\des2k.rel"))
          {
            bundle_known = TRUE;
            DESIGNER2000_RELEASE = TRUE;
          }
        else if (exists("cksr.rel"))
          {
            bundle_known = TRUE;
            DESIGNER2000_RELEASE = TRUE;
          }
        else if (exists("%product_home%\des2ko.rel"))
          {
            bundle_known = TRUE;
            DESIGNER2000_RELEASE = TRUE;
          }
        else if (exists("%product_home%\odd.rel"))
          {
            bundle_known = TRUE;
            ODD_RELEASE = TRUE;
          }
        if (exists("%product_home%\repos.rel"))
          {
            bundle_known = TRUE;
            REPOSITORY_RELEASE = TRUE;
          }
        else if (exists("%product_home%\obm.rel"))
          {
            bundle_known = TRUE;
            OBM_RELEASE = TRUE;
          }
        else if (exists("%product_home%\bpd.rel"))
          {
            bundle_known = TRUE;
            BPD_RELEASE = TRUE;
          }
        else if (exists("des2kh.rel"))
          {
            bundle_known = TRUE;
            DESIGNER_HELP_RELEASE = TRUE;
          }
        else if (exists("firstp.rel"))
          {
            bundle_known = TRUE;
            FIRST_PRACTICE_RELEASE = TRUE;
          }
        else if (exists("bugfix.rel"))
          {
            bundle_known = TRUE;
            BUGFIX_RELEASE = TRUE;
          }
        else if (exists("%product_home%\dmd.rel"))
          {
            bundle_known = TRUE;
            DATAMART_DESIGNER_RELEASE = TRUE;
          }
        else if (exists("%product_home%\des2kh.rel"))
          {
            bundle_known = TRUE;
            DESIGNER_HELP_RELEASE = TRUE;
          }
      }
    if (bundle_known == FALSE)
      {
        /* still not found; assume something */
        bundle_known = TRUE;
        DESIGNER2000_RELEASE = TRUE;
      }

    /* now check for patchset */
    { PATCHSET_RELEASE = set_PATCHSET_RELEASE;}
    ['UNBOUND_VARIABLE:
      if (exists("patchset.rel"))
        {
          PATCHSET_RELEASE = TRUE;
        }
      else
        {
          PATCHSET_RELEASE = FALSE;
        }
    ]

    /* special conditions exist for Designer Limited Production when
       Repository is still part of Designer and not seperate.
       Set a global flag. (Remove for Full Production).
    */
    if (DESIGNER2000_RELEASE)
      {
        /* DESIGNER2000_LP_RELEASE = TRUE; */
        DESIGNER2000_LP_RELEASE = FALSE;
      }
    else
      {
        DESIGNER2000_LP_RELEASE = FALSE;
      }
    if (DESIGNER2000_LP_RELEASE) information_dialog("Installing Limited Production Release");

    /* special conditions exist for OBM Beta Release when
       the PL/SQL Tramsformers should be used instead of the JAVA based ones.
       Set a global flag. (Remove for Full Production).
    */
    if (OBM_RELEASE)
      {
        OBM_BETA_RELEASE = TRUE;
        /* OBM_BETA_RELEASE = FALSE; */
      }
    else
      {
        OBM_BETA_RELEASE = FALSE;
      }
    if (OBM_BETA_RELEASE) information_dialog("Installing PL/SQL version of Transformers");

  }

  /***************************************************
    Miscellaneous variables
  ***************************************************/

  /* set before any other files are called as these variables may be used */

product_size_list = list();              /* used by patch install */
case_billboards_displayed = list();      /* used by des2k_72.vr2 called by all */
case_remind_list = list();               /* similar to golbal remind_list except that this is displayed in user.pin */
set("case_upgrade_check", false,'GLOBAL);

  /***************************************************
    Copy DES2*.* script files to %INSTALLER_HOME%
  ***************************************************/

  /* do this early on so that we can call them in the subsequent code */

userfiles_spec  = list();
add (userfiles_spec,list("%product_home%\D2KR2*.*","%installer_home%"));
add (userfiles_spec,list("%product_home%\DES2K_72.*","%installer_home%"));

  /***************************************************
    Decide which bundle bitmaps to use
  ***************************************************/

if (DESIGNER2000_RELEASE)
  {
    DESIGNER01_GRAPHICS_FILE = "DES01.BMP";
    DESIGNER02_GRAPHICS_FILE = "DES02.BMP";
    CASE_GRAPHICS_DIRECTORY = "DES";
  }
else if (REPOSITORY_RELEASE)
  {
    DESIGNER01_GRAPHICS_FILE = "DES01.BMP";
    DESIGNER02_GRAPHICS_FILE = "DES02.BMP";
    CASE_GRAPHICS_DIRECTORY = "REP";
  }
else if (ODD_RELEASE)
  {
    DESIGNER01_GRAPHICS_FILE = "ODD01.BMP";
    DESIGNER02_GRAPHICS_FILE = "ODD02.BMP";
    CASE_GRAPHICS_DIRECTORY = "DES";
  }
else if (OBM_RELEASE)
  {
    DESIGNER01_GRAPHICS_FILE = "OBM01.BMP";
    DESIGNER02_GRAPHICS_FILE = "OBM02.BMP";
    CASE_GRAPHICS_DIRECTORY = "UML";
  }
else if (BPD_RELEASE)
  {
    DESIGNER01_GRAPHICS_FILE = "BPD01.BMP";
    DESIGNER02_GRAPHICS_FILE = "BPD02.BMP";
    CASE_GRAPHICS_DIRECTORY = "BPD";
  }
else if (DESIGNER_HELP_RELEASE)
  {
    DESIGNER01_GRAPHICS_FILE = "DESHLP01.BMP";
    DESIGNER02_GRAPHICS_FILE = "DESHLP02.BMP";
    CASE_GRAPHICS_DIRECTORY = "";
  }
else
  {
    DESIGNER01_GRAPHICS_FILE = "";
    DESIGNER02_GRAPHICS_FILE = "";
    CASE_GRAPHICS_DIRECTORY = "";
  }

while(not(empty(userfiles_spec)))
  {
    source_and_target = first(userfiles_spec);
    userfiles_spec = rest(userfiles_spec);
    source_spec = first(source_and_target);
    target_spec = first(rest(source_and_target));
    userfiles_list = files(source_spec);

    while(not(empty(userfiles_list)))
      {
        current_userfile = first(userfiles_list);
        userfiles_list = rest(userfiles_list);
        userfile_name = file_name(current_userfile);

        /* information_dialog("copy %current_userfile% %target_spec%\%userfile_name%"); */
        { copy_file("%current_userfile%", "%target_spec%\%userfile_name%"); }
        [
          'INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'READ_ERROR: continue();
          'WRITE_ERROR: signal('FAILURE, "Insufficient disk space.");
        ]
      }
  }

case_graphics_file = DESIGNER01_GRAPHICS_FILE;
EXECUTE_SCRIPT = "DES2_BB.DIS";
execute("%product_home%\des2k_72.vrf");

  /***********************************************************************
    Install Parameters
  ***********************************************************************/

/* NOTE the use of the 'set' command to set globally bound variables
   as per latest install guide specifications. (Also avoids associated
   problems in variable space - see bug database #449779)
*/

{
  if (DATAMART_DESIGNER_RELEASE)
    set_quick_install = TRUE;
  else if (install_type == install_type_custom)
    set_quick_install = not(verbose);
  else
    /* set_quick_install = (install_type == install_type_quick); */
    set_quick_install = set_quick_install;
}
['UNBOUND_VARIABLE: set_quick_install = not(verbose); ]
set("quick_install", set_quick_install,'GLOBAL);

/* the defaults to use when quick_install is false */
set("case_accept_caseparent_default", false,'GLOBAL);
set("case_accept_home_default",       false,'GLOBAL);
set("case_accept_help_default",       false,'GLOBAL);
set("case_accept_tutorial_default",   false,'GLOBAL);
set("case_accept_required_default",   true,'GLOBAL);
set("case_accept_seeded_database_default",   true,'GLOBAL);
set("case_accept_fixes_default",      true,'GLOBAL);

  /***********************************************************************
    Registry Only Install and associated defaults.
    (used for debugging it allows us to install just the
    .map and .dei scripts and modify the registry settings.

    Also allow install of Designer without installing
    dependencies from Developer or Database Tools/V7 Utilities
    either for debugging or when a patchset install
  ***********************************************************************/

if (PATCHSET_RELEASE)
  {
    /* override any settting from the debug dialog if patchset */
    set_install_net_dependencies = false;
    set_install_dbtool_dependencies = false;
    set_install_dev2000_runtime_dependencies = false;
    set_install_dev2000_dependencies = false;
    set_install_oci_dependencies = false;
    set_install_firstp_dependencies = false;
  }

{
  /* set_registry_install = (install_type == install_type_registry); */
  set_registry_install = set_registry_install;
}
['UNBOUND_VARIABLE: set_registry_install = false; ]
set("case_registry_only_install", set_registry_install, 'GLOBAL);

{ set_install_net_dependencies = set_install_net_dependencies; }
['UNBOUND_VARIABLE: set_install_net_dependencies = true; ]
set("case_install_net_dependencies", set_install_net_dependencies, 'GLOBAL);

{ set_install_dbtool_dependencies = set_install_dbtool_dependencies; }
['UNBOUND_VARIABLE: set_install_dbtool_dependencies = true; ]
set("case_install_dbtool_dependencies", set_install_dbtool_dependencies, 'GLOBAL);

{ set_install_dev2000_runtime_dependencies = set_install_dev2000_runtime_dependencies; }
['UNBOUND_VARIABLE: set_install_dev2000_runtime_dependencies = false; ]
set("case_install_dev2000_runtime_dependencies", set_install_dev2000_runtime_dependencies, 'GLOBAL);

{ set_install_dev2000_dependencies = set_install_dev2000_dependencies; }
['UNBOUND_VARIABLE: set_install_dev2000_dependencies = false; ]
set("case_install_dev2000_dependencies", set_install_dev2000_dependencies, 'GLOBAL);

{ set_install_oci_dependencies = set_install_oci_dependencies; }
['UNBOUND_VARIABLE: set_install_oci_dependencies = false; ]
set("case_install_oci_dependencies", set_install_oci_dependencies, 'GLOBAL);

{ set_install_firstp_dependencies = set_install_firstp_dependencies; }
['UNBOUND_VARIABLE: set_install_firstp_dependencies = false; ]
set("case_install_firstp_dependencies", set_install_firstp_dependencies, 'GLOBAL);

{ set_install_81_dependencies = set_install_81_dependencies; }
['UNBOUND_VARIABLE: set_install_81_dependencies = false; ]
set("case_install_81_dependencies", set_install_81_dependencies, 'GLOBAL);

{ set_designer_products_moh = set_designer_products_moh; }
['UNBOUND_VARIABLE:
  set_designer_products_moh = false;
  /* set the key
     HKEY_CURRENT_USER\SOFTWARE\ORACLE\des2_72\set_designer_products_moh
     to the DWORD value 1 to turn on this option
     *** THIS IS NOT MOH COMPLIANT ***
  */
  translate_key = "HKEY_CURRENT_USER";
  translate_subkey = "SOFTWARE\ORACLE\des2_72";
  translate_variable = "set_designer_products_moh";
  translate_value = win32_get_value(translate_key, translate_subkey, translate_variable);
  if (translate_value == 1)
    {
      set_designer_products_moh = TRUE;
    }
  }
  ['FILE_NOT_FOUND: continue();]
]
set("case_designer_products_moh", set_designer_products_moh, 'GLOBAL);

  /***********************************************************************
    If Designer 6.5 (7.2.28.8.0) is installed then later versions
    (MR1, MR2...) can only be installed over the top (ie upgrade)
    and not into a seperate home as 6.5 was non-MOH and could only
    be installed into the DEFAULT_HOME home.
  ***********************************************************************/

  if (set_designer_products_moh)
    {
      if (not(oracle_home_info == default_home_info))
        {

          /* ............
          home_list = all_homes();

          while(not(empty(home_list)))
          {
            hm = first(home_list);

            if (registered(product_name(current_product), hm))
              {
                registry = registration(product_name(current_product), hm);
                installed_version = registry_version(registry);

                if (earlier_version(registry,current_version))
                  xx_version_status = 'UPGRADE;
                else if (later_version(registry,current_version))
                  xx_version_status = 'DOWNGRADE;
                else
                  xx_version_status = 'REINSTALL;
              }
            home_list = rest(home_list);
          }
          ............ */

          hm = default_home_info;
          designer_moh_version = "6.5.39.0.0"; /* first version of Designr that was MOH */

          {
             default_home_name = home_name(default_home_info);
          }
          ['HOME_NOT_FOUND: signal('HOME_NOT_FOUND);]

          if (registered(product_name(odes65_product), hm))
            {
              registry = registration(product_name(odes65_product), hm);
              if (earlier_version(registry,designer_moh_version))
                {
                  designer_moh_warning = nls("designer_moh_warning","WARNING ! Incompatible versions of Oracle Designer.%carriage_return%%carriage_return%You are about to install Oracle Designer products into the oracle home '%oracle_home_name%'. There is a non multiple oracle home version of Oracle Designer already installed into the oracle home '%default_home_name%'. We recommend that you upgrade the version in '%default_home_name%' or deinstall the version in '%default_home_name%' before installing this version into '%oracle_home_name%'.%carriage_return%%carriage_return%Choose OK to continue with the installation, choose Cancel to terminate the installation.");
                  designer_moh_help    = nls("designer_moh_help",   "There is a non multiple oracle home version of Oracle Designer already installed into the oracle home '%default_home_name%'. That version is not certified to co-exist with another version of Oracle Designer installed into a different oracle home.%carriage_return%%carriage_return%We recommend that you upgrade the version in '%default_home_name%' or deinstall the version in '%default_home_name%' before installing this new version into '%oracle_home_name%'. Choose Cancel to terminate the installation and then re-run the installer choosing the oracle home '%default_home_name%'. Either install this version of Oracle Designer into the oracle home '%default_home_name%' (upgrading the version that is there) or choose the custom option, select and deinstall the existing Oracle Designer products, and re-run the installer to install Oracle Designer into the oracle home '%oracle_home_name%'.");
                  designer_moh_content = nls("designer_moh_content","Incompatible Versions");
                  information_dialog(designer_moh_warning, designer_moh_content, designer_moh_help);
                }
            }
        }
    }

  /***********************************************************************
    Variables used to control which
    products are installed
  ***********************************************************************/

/* The list case_selected_products is a list of (case) products
   selected for installation by the user startup script in addition
   to the selected_products list. This additional list is used so
   selected_products only needs to contain des2_72 (the case parent).
   This avoids problems with the namespace(s) disappearing and makes
   for a neater install. The list case_selected_products is treated
   just like selected products in the <os>.vrf file (modified for case).

   Convert case_selected_products (a string list when defined by user.avf) to
   a product list.
   (The installer does this automatically for selected_products)
*/
{
  copy_case_selected_products = list();
  /* the next line will cause an unbound variable signal if the list was not
     defined in user.stp. This is trapped and the list initialised.
  */
  union(copy_case_selected_products, case_selected_products);
  /* reset the list */
  case_selected_products = list();         /* used by des2k_72.vrf called by all */
  all_products_list = all_products();
  while (not(empty(all_products_list)))
    {
    next_product = first(all_products_list);
    all_products_list= rest(all_products_list);
    next_product_name = product_name(next_product);
    if (member(copy_case_selected_products,next_product_name)) add(case_selected_products,next_product);
    }
}
['UNBOUND_VARIABLE: case_selected_products = list();]


/* The list case_dependent_products is a list of case products that are
   to be called as dependencies. If you are in this list then install
   all your children. Any product can add a case product to this list.
*/
case_dependent_products = list();        /* used by des2k_72.vrf called by all */

/* the header products list is used so that a product can work up its
   hierarchy to its parent even if someone has re-arranged the hierarchy
   in the .prd file.
*/
header_products = list();
{ add(header_products, odes65_product);    } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, des2_72_product);   } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, orepos10_product);  } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, repos61_product);   } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, obpd10_product);    } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, bpdt10_product);    } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, jdee30_product);    } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, obm10_product);     } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, cksr40_product);    } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, desrep61_product);  } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, desrep11_product);  } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, desrep10_product);  } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, desbs61_product);   } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, odd61_product);     } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, chelp72_product);   } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, cdoc72_product);    } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, olment60_product);  } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, patches_product);   } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, despsr70_product);  } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, bugfix10_product);  } ['UNBOUND_VARIABLE: continue(); ]
{ add(header_products, firstp61_product);  } ['UNBOUND_VARIABLE: continue(); ]

  { case_selected_products = case_selected_products; } ['UNBOUND_VARIABLE: case_selected_products = list();]
  selected_designer_products = list();
  union(selected_designer_products, selected_products);
  union(selected_designer_products, case_selected_products);
  intersect(selected_designer_products, header_products);
  if (not(empty(selected_designer_products)))
    {
      if (verbose)
        {
          {
          if (DESIGNER2000_RELEASE)
            {
              dependent_products_info = nls("dependent_products_info","The installation of Oracle Designer products will automatically verify, and if necessary install, other products from the Oracle 8.0.6 toolset.
%carriage_return%Dependent on prior installation of the correct versions of these other Oracle products, you may receive information or be asked questions about the installation of these products.");
              information_dialog(instantiate(dependent_products_info));
            }
          }
          ['UNBOUND_VARIABLE : continue();]

          {
          if (REPOSITORY_RELEASE)
            {
              dependent_products_info = nls("dependent_products_info","The installation of Oracle Repository products will automatically verify, and if necessary install, other products from the Oracle 8.0.6 toolset.
%carriage_return%Dependent on prior installation of the correct versions of these other Oracle products, you may receive information or be asked questions about the installation of these products.");
              information_dialog(instantiate(dependent_products_info));
            }
          }
          ['UNBOUND_VARIABLE : continue();]

          {
          if (ODD_RELEASE)
            {
              dependent_products_info = nls("dependent_products_info","The installation of Object Database Designer products will automatically verify, and if necessary install, other products from the Oracle 8.0.6 toolset.
%carriage_return%Dependent on prior installation of the correct versions of these other Oracle products, you may receive information or be asked questions about the installation of these products.");
              information_dialog(instantiate(dependent_products_info));
            }
          }
          ['UNBOUND_VARIABLE : continue();]
        }
     }

  /***************************************************
    Get/Set variables for program groups for .MAP files
  ***************************************************/

  /****************************************
    Map variables for Designer/2000 Release
  ****************************************/

  DESIGNER_HOME_SERVICE  = oracle_home_service;
  DESIGNER_HOME_NAME     = oracle_home_name;
  DESIGNER_HOME_GROUP    = oracle_home_group;
  DESIGNER_HOME_KEY      = oracle_home_key;
  DESIGNER_KEY           = oracle_key;

  /* first a local list */
  des2k_folder_name_reuse_msg_list = list();
  /* des2k_folder_name_reuse_msg = nls("des2k_folder_name_reuse_msg","The folder name '%%des2k_old_folder_name%%' from a previous installation has been re-used. You may wish to rename this to%%des2k_new_folder_name%%"); */
  des2k_folder_name_reuse_msg = nls("des2k_folder_name_reuse_msg","The folder name '%%des2k_old_folder_name%%' from a previous installation has been re-used.");

  /* these need to be in the registry for restore icons to work */

  {
    if (not(DATAMART_DESIGNER_RELEASE))
      {
        DES2K_R61_GROUP     = nls("DES2K_R61_GROUP",     "Oracle Designer 6i%oracle_home_group%");
      }
    else
      {
        DES2K_R61_GROUP     = nls("DES2K_R61_GROUP",     "Data Mart Designer 6i%oracle_home_group%");
      }
    des2k_new_folder_name = DES2K_R61_GROUP;
    case_translate_list = list("DES2K_R61_GROUP",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    DES2K_R61_GROUP = execute("%installer_home%\des2k_72.cmn");
    if (DES2K_R61_GROUP == "%%DES2K_R61_GROUP%%") DES2K_R61_GROUP = des2k_new_folder_name; /* to overcome error intoduced in R6.0 Patchset 1 */
    des2k_old_folder_name = DES2K_R61_GROUP;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
    DES2K_R61_GROUP = des2k_new_folder_name;
  ]
  {
    if (not(DATAMART_DESIGNER_RELEASE))
      {
        DES2K_R61_BULLETINS = nls("DES2K_R61_BULLETINS", "Oracle Designer 6i Doc%oracle_home_group%");
      }
    else
      {
        DES2K_R61_BULLETINS = nls("DES2K_R61_BULLETINS", "Data Mart Designer 6i Bulletins%oracle_home_group%");
      }
    des2k_new_folder_name = DES2K_R61_BULLETINS;
    case_translate_list = list("DES2K_R61_BULLETINS",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    DES2K_R61_BULLETINS = execute("%installer_home%\des2k_72.cmn");
    if (DES2K_R61_BULLETINS == "%%DES2K_R61_BULLETINS%%") DES2K_R61_BULLETINS = des2k_new_folder_name; /* to overcome error intoduced in R6.0 Patchset 1 */
    des2k_old_folder_name = DES2K_R61_BULLETINS;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     DES2K_R61_BULETINS = des2k_new_folder_name;
  ]
  {
    if (not(DATAMART_DESIGNER_RELEASE))
      {
        DES2K_R61_TUTORIAL  = nls("DES2K_R61_TUTORIAL",  "Oracle Designer 6i Tutorial%oracle_home_group%");
      }
    else
      {
        DES2K_R61_TUTORIAL  = nls("DES2K_R61_TUTORIAL",  "Data Mart Designer 6i Tutorial%oracle_home_group%");
      }
    des2k_new_folder_name = DES2K_R61_TUTORIAL;
    case_translate_list = list("DES2K_R61_TUTORIAL",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    DES2K_R61_TUTORIAL = execute("%installer_home%\des2k_72.cmn");
    if (DES2K_R61_TUTORIAL == "%%DES2K_R61_TUTORIAL%%") DES2K_R61_TUTORIAL = des2k_new_folder_name; /* to overcome error intoduced in R6.0 Patchset 1 */
    des2k_old_folder_name = DES2K_R61_TUTORIAL;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     DES2K_R61_TUTORIAL = des2k_new_folder_name;
  ]

  while (not(empty(des2k_folder_name_reuse_msg_list)))
    {
      temp_reuse_msg = first(des2k_folder_name_reuse_msg_list);
      des2k_folder_name_reuse_msg_list = rest(des2k_folder_name_reuse_msg_list);
      { add(case_remind_list,temp_reuse_msg); }
      ['UNBOUND_VARIABLE:
        {
          /* the case implementation of this has not been defined so use the global version instead */
          add(remind_list,temp_reuse_msg);
        }
      ]

    }

  /****************************************
    Map variables for Repository Release
  ****************************************/

  REPOSITORY_HOME_SERVICE  = oracle_home_service;
  REPOSITORY_HOME_NAME     = oracle_home_name;
  REPOSITORY_HOME_GROUP    = oracle_home_group;
  REPOSITORY_HOME_KEY      = oracle_home_key;
  REPOSITORY_KEY           = oracle_key;

  /* first a local list */
  des2k_folder_name_reuse_msg_list = list();
  /* des2k_folder_name_reuse_msg = nls("des2k_folder_name_reuse_msg","The folder name '%%des2k_old_folder_name%%' from a previous installation has been re-used. You may wish to rename this to%%des2k_new_folder_name%%"); */
  des2k_folder_name_reuse_msg = nls("des2k_folder_name_reuse_msg","The folder name '%%des2k_old_folder_name%%' from a previous installation has been re-used.");

  /* these need to be in the registry for restore icons to work */

  {
    REPOS_R10_GROUP     = nls("REPOS_R10_GROUP",     "Oracle Repository 6i%oracle_home_group%");
    if (DESIGNER2000_LP_RELEASE) REPOS_R10_GROUP = DES2K_R61_GROUP;
    des2k_new_folder_name = REPOS_R10_GROUP;
    case_translate_list = list("REPOS_R10_GROUP",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    REPOS_R10_GROUP = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = REPOS_R10_GROUP;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
    REPOS_R10_GROUP = des2k_new_folder_name;
  ]
  {
    REPOS_R10_BULLETINS = nls("REPOS_R10_BULLETINS", "Oracle Repository 6i Doc%oracle_home_group%");
    if (DESIGNER2000_LP_RELEASE) REPOS_R10_BULLETINS = DES2K_R61_BULLETINS;
    des2k_new_folder_name = REPOS_R10_BULLETINS;
    case_translate_list = list("REPOS_R10_BULLETINS",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    REPOS_R10_BULLETINS = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = REPOS_R10_BULLETINS;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     DES2K_R61_BULETINS = des2k_new_folder_name;
  ]
  {
    REPOS_R10_TUTORIAL  = nls("REPOS_R10_TUTORIAL",  "Oracle Repository 6i Tutorial%oracle_home_group%");
    if (DESIGNER2000_LP_RELEASE) REPOS_R10_TUTORIAL = DES2K_R61_TUTORIAL;
    des2k_new_folder_name = REPOS_R10_TUTORIAL;
    case_translate_list = list("REPOS_R10_TUTORIAL",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    REPOS_R10_TUTORIAL = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = REPOS_R10_TUTORIAL;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     REPOS_R10_TUTORIAL = des2k_new_folder_name;
  ]

  while (not(empty(des2k_folder_name_reuse_msg_list)))
    {
      temp_reuse_msg = first(des2k_folder_name_reuse_msg_list);
      des2k_folder_name_reuse_msg_list = rest(des2k_folder_name_reuse_msg_list);
      { add(case_remind_list,temp_reuse_msg); }
      ['UNBOUND_VARIABLE:
        {
          /* the case implementation of this has not been defined so use the global version instead */
          add(remind_list,temp_reuse_msg);
        }
      ]

    }

  /****************************************
    Map variables for BPD Release
  ****************************************/

  /* first a local list */
  des2k_folder_name_reuse_msg_list = list();
  /* des2k_folder_name_reuse_msg = nls("des2k_folder_name_reuse_msg","The folder name '%%des2k_old_folder_name%%' from a previous installation has been re-used. You may wish to rename this to%%des2k_new_folder_name%%"); */
  des2k_folder_name_reuse_msg = nls("des2k_folder_name_reuse_msg","The folder name '%%des2k_old_folder_name%%' from a previous installation has been re-used.");

  /* these need to be in the registry for restore icons to work */

  {
    BPD_R10_GROUP     = nls("BPD_R10_GROUP",     "Oracle BPD R1.0%oracle_home_group%");
    des2k_new_folder_name = BPD_R10_GROUP;
    case_translate_list = list("BPD_R10_GROUP",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    BPD_R10_GROUP = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = BPD_R10_GROUP;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
    BPD_R10_GROUP = des2k_new_folder_name;
  ]
  {
    BPD_R10_BULLETINS = nls("BPD_R10_BULLETINS", "Oracle BPD R1.0 Doc%oracle_home_group%");
    des2k_new_folder_name = BPD_R10_BULLETINS;
    case_translate_list = list("BPD_R10_BULLETINS",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    BPD_R10_BULLETINS = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = BPD_R10_BULLETINS;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     DES2K_R61_BULETINS = des2k_new_folder_name;
  ]
  {
    BPD_R10_TUTORIAL  = nls("BPD_R10_TUTORIAL",  "Oracle BPD R1.0 Tutorial%oracle_home_group%");
    des2k_new_folder_name = BPD_R10_TUTORIAL;
    case_translate_list = list("BPD_R10_TUTORIAL",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    BPD_R10_TUTORIAL = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = BPD_R10_TUTORIAL;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     BPD_R10_TUTORIAL = des2k_new_folder_name;
  ]

  while (not(empty(des2k_folder_name_reuse_msg_list)))
    {
      temp_reuse_msg = first(des2k_folder_name_reuse_msg_list);
      des2k_folder_name_reuse_msg_list = rest(des2k_folder_name_reuse_msg_list);
      { add(case_remind_list,temp_reuse_msg); }
      ['UNBOUND_VARIABLE:
        {
          /* the case implementation of this has not been defined so use the global version instead */
          add(remind_list,temp_reuse_msg);
        }
      ]

    }

  /****************************************
    Map variables for OBM Release
  ****************************************/

  /* first a local list */
  des2k_folder_name_reuse_msg_list = list();
  /* des2k_folder_name_reuse_msg = nls("des2k_folder_name_reuse_msg","The folder name '%%des2k_old_folder_name%%' from a previous installation has been re-used. You may wish to rename this to%%des2k_new_folder_name%%"); */
  des2k_folder_name_reuse_msg = nls("des2k_folder_name_reuse_msg","The folder name '%%des2k_old_folder_name%%' from a previous installation has been re-used.");

  /* these need to be in the registry for restore icons to work */

  {
    OBM_R10_GROUP     = nls("OBM_R10_GROUP",     "Oracle UML Modeling R3.0%oracle_home_group%");
    /* if (BPD_RELEASE) OBM_R10_GROUP = BPD_R10_GROUP; */
    if (DESIGNER2000_LP_RELEASE) OBM_R10_GROUP = DES2K_R61_GROUP;
    des2k_new_folder_name = OBM_R10_GROUP;
    case_translate_list = list("OBM_R10_GROUP",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    OBM_R10_GROUP = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = OBM_R10_GROUP;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
    OBM_R10_GROUP = des2k_new_folder_name;
  ]
  {
    OBM_R10_BULLETINS = nls("OBM_R10_BULLETINS", "Oracle UML Modeling R3.0 Doc%oracle_home_group%");
    /* if (BPD_RELEASE) OBM_R10_BULLETINS = BPD_R10_BULLETINS; */
    if (DESIGNER2000_LP_RELEASE) OBM_R10_BULLETINS = DES2K_R61_BULLETINS;
    des2k_new_folder_name = OBM_R10_BULLETINS;
    case_translate_list = list("OBM_R10_BULLETINS",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    OBM_R10_BULLETINS = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = OBM_R10_BULLETINS;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     DES2K_R61_BULETINS = des2k_new_folder_name;
  ]
  {
    OBM_R10_TUTORIAL  = nls("OBM_R10_TUTORIAL",  "Oracle UML Modeling R3.0 Tutorial%oracle_home_group%");
    /* if (BPD_RELEASE) OBM_R10_TUTORIAL = BPD_R10_TUTORIAL"; */
    if (DESIGNER2000_LP_RELEASE) OBM_R10_TUTORIAL = DES2K_R61_TUTORIAL;
    des2k_new_folder_name = OBM_R10_TUTORIAL;
    case_translate_list = list("OBM_R10_TUTORIAL",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    OBM_R10_TUTORIAL = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = OBM_R10_TUTORIAL;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     OBM_R10_TUTORIAL = des2k_new_folder_name;
  ]

  while (not(empty(des2k_folder_name_reuse_msg_list)))
    {
      temp_reuse_msg = first(des2k_folder_name_reuse_msg_list);
      des2k_folder_name_reuse_msg_list = rest(des2k_folder_name_reuse_msg_list);
      { add(case_remind_list,temp_reuse_msg); }
      ['UNBOUND_VARIABLE:
        {
          /* the case implementation of this has not been defined so use the global version instead */
          add(remind_list,temp_reuse_msg);
        }
      ]

    }

  /****************************************
    Map variables for ODD Release
  ****************************************/

  /* first a local list */
  des2k_folder_name_reuse_msg_list = list();
  des2k_folder_name_reuse_msg = nls("des2k_folder_name_reuse_msg","The folder name '%%des2k_old_folder_name%%' from a previous installation has been re-used.");

  /* these need to be in the registry for restore icons to work */
  /* ...
  ODD_R61_GROUP     = nls("ODD_R61_GROUP",     "Object Database Designer R2.1");
  ODD_R61_BULLETINS = nls("ODD_R61_BULLETINS", "ODD R2.1 Bulletins");
  ODD_R61_TUTORIAL  = nls("ODD_R61_TUTORIAL",  "ODD R2.1 HandsOn Workshop");
  ... */
  {
    if (not(DATAMART_DESIGNER_RELEASE))
      {
        ODD_R61_GROUP     = nls("ODD_R61_GROUP",     "ODD R2.1.2%oracle_home_group%");
      }
    else
      {
        ODD_R61_GROUP     = nls("ODD_R61_GROUP",     "Data Mart Designer R2.1%oracle_home_group%");
      }
    des2k_new_folder_name = ODD_R61_GROUP;
    case_translate_list = list("ODD_R61_GROUP",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    ODD_R61_GROUP = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = ODD_R61_GROUP;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
    ODD_R61_GROUP = des2k_new_folder_name;
  ]
  {
    if (not(DATAMART_DESIGNER_RELEASE))
      {
        ODD_R61_BULLETINS = nls("ODD_R61_BULLETINS", "ODD R2.1.2 Bulletins%oracle_home_group%");
      }
    else
      {
        ODD_R61_BULLETINS = nls("ODD_R61_BULLETINS", "Data Mart Designer R2.1 Bulletins%oracle_home_group%");
      }
    des2k_new_folder_name = ODD_R61_BULLETINS;
    case_translate_list = list("ODD_R61_BULLETINS",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    ODD_R61_BULLETINS = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = ODD_R61_BULLETINS;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     ODD_R61_BULETINS = des2k_new_folder_name;
  ]
  {
    if (not(DATAMART_DESIGNER_RELEASE))
      {
        ODD_R61_TUTORIAL  = nls("ODD_R61_TUTORIAL",  "ODD R2.1.2 Tutorial%oracle_home_group%");
      }
    else
      {
        ODD_R61_TUTORIAL  = nls("ODD_R61_TUTORIAL",  "Data Mart Designer R2.1 Tutorial%oracle_home_group%");
      }
    des2k_new_folder_name = ODD_R61_TUTORIAL;
    case_translate_list = list("ODD_R61_TUTORIAL",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    ODD_R61_TUTORIAL = execute("%installer_home%\des2k_72.cmn");
    des2k_old_folder_name = ODD_R61_TUTORIAL;
    if (not(des2k_old_folder_name == des2k_new_folder_name)) add(des2k_folder_name_reuse_msg_list,instantiate(des2k_folder_name_reuse_msg));
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     ODD_R61_TUTORIAL = des2k_new_folder_name;
  ]

  while (not(empty(des2k_folder_name_reuse_msg_list)))
    {
      temp_reuse_msg = first(des2k_folder_name_reuse_msg_list);
      des2k_folder_name_reuse_msg_list = rest(des2k_folder_name_reuse_msg_list);
      { add(case_remind_list,temp_reuse_msg); }
      ['UNBOUND_VARIABLE:
        {
          /* the case implementation of this has not been defined so use the global version instead */
          add(remind_list,temp_reuse_msg);
        }
      ]

    }

  /* get the map variables used in R1.0 Beta */
  {
    case_translate_list = list("ODD_GROUP",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    ODD_GROUP = execute("%installer_home%\des2k_72.cmn");
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     ODD_GROUP     = "Object Database Designer";
  ]
  {
    case_translate_list = list("ODD_BULLETINS",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    ODD_BULLETINS = execute("%installer_home%\des2k_72.cmn");
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     ODD_BULLETINS = "ODD Bulletins";
  ]
  {
    case_translate_list = list("ODD_WORKSHOP",ora_config,"",'TOP_LEVEL);
    EXECUTE_SCRIPT = "TRANSLATE_VARIABLES.CMN";
    ODD_WORKSHOP = execute("%installer_home%\des2k_72.cmn");
  }
  [ 'UNBOUND_ENVIRONMENT_VARIABLE:
     ODD_WORKSHOP  = "ODD HandsOn Workshop";
  ]

  /***************************************************
    now look at the external dependencies
  ***************************************************/

/*  temporary measure for freeze D1
  set("creq_net_dependency_list",FALSE,'GLOBAL);
  set("case_install_dbtool_dependencies",FALSE,'GLOBAL);
  set("case_install_dev2000_runtime_dependencies",FALSE,'GLOBAL);
*/

  /* initialise the dependency lists */

{ case_dependency_list = case_dependency_list;}
['UNBOUND_VARIABLE: case_dependency_list = list();]


  /***************************************************
    The First Practice Release
  ***************************************************/

  /***************************************************
    The complete set of first practice dependencies
    Would be nice if the .prd file gave this on each
    product line.
    c.f. the .rgs file where dependencies are listed
    against the dependent product.
  ***************************************************/

firstp61_dependency_list  = list();
union(case_dependency_list, list(firstp61_product, firstp61_dependency_list));

  /* reset home variables (in case of cancel in custom mode) */

set("firstp61", "", 'GLOBAL);

  /***************************************************
    The Oracle Repository Release
  ***************************************************/

  /***************************************************
    The complete set of Oracle Repository dependencies
    Would be nice if the .prd file gave this on each
    product line.
    c.f. the .rgs file where dependencies are listed
    against the dependent product.
  ***************************************************/

orepos10_dependency_list  = list();
/*
   If the user has selected the "Repository Product" product from the custom
   menu then add in all the Repository components as a dependency
   (if the product was selected from the package install then selected_products
   and case_selected_products will contain the installable products)
   Note that this product is a dependency of all the products components
   (and so will be verified/installed) and so should not automatically
   install all the components (unless selected as described).
*/
if ((member(selected_products,orepos10_product)) && (bootstrap == FALSE))
  {
    /* could get this list from a package file */
    /* ... but won't...
    pkg_loc = product_location(orepos10_product);
    pkg_filename = product_name(repos_product);
    { execute("%pkg_loc%\%pkg_filename%.pkg"); }
    [ 'FILE_NOT_FOUND: products = list(); ]
    if (not(empty(products)))
      {
      union(orepos10_dependency_list,products);
      }
    ... */
    /* ... and will code it here instead */

    /* Help bits */
    /* add(orepos10_dependency_list, chelp72_product); */
    add(orepos10_dependency_list, cmnhlp72_product);
    /* add(orepos10_dependency_list, deshlp72_product); */
    /* add(orepos10_dependency_list, bpdhlp72_product); */
    add(orepos10_dependency_list, cdoc72_product);

    /* Repository bits */
    add(orepos10_dependency_list, repos61_product);
    add(orepos10_dependency_list, repadm61_product);
    add(orepos10_dependency_list, repman61_product);
    add(orepos10_dependency_list, rssisa61_product);
    add(orepos10_dependency_list, rssisb61_product);
    /* add(orepos10_dependency_list, rssisc61_product); */
    /* add(orepos10_dependency_list, rssisd61_product); */
    /* add(orepos10_dependency_list, rssise61_product); */
    /* add(orepos10_dependency_list, rssisf61_product); */
    add(orepos10_dependency_list, cktl61_product);
    add(orepos10_dependency_list, repcom61_product);
    add(orepos10_dependency_list, repico61_product);
    add(orepos10_dependency_list, creq72_product);
    /* add(orepos10_dependency_list, sysdes61_product); */
    /* add(orepos10_dependency_list, desrep11_product); */
  }
union(case_dependency_list, list(orepos10_product, orepos10_dependency_list));

/*
   If you are installing Repository components from a Repository CD then add
   add the Repository Product component as a dependency to all components
*/

repos61_dependency_list  = list();
if (REPOSITORY_RELEASE) add(repos61_dependency_list,orepos10_product);
if (distribution) add (repos61_dependency_list,orainst_product);
union(case_dependency_list, list(repos61_product, repos61_dependency_list));

creq72_dependency_list   = list();
if (REPOSITORY_RELEASE) add(creq72_dependency_list,orepos10_product);
{
  if (not(DATAMART_DESIGNER_RELEASE))
    {
      /* creq_net_dependency_list = list(ssf21_product, rsf73_product, ocx13_product, netclt23_product, plus33_product); */
      /* creq_net_dependency_list = list(ssf21_product, ocx60_product, netclt80_product, net8a80_product, plus80_product); */
      creq_net_dependency_list    = list(ssf60_product, rsf80_product, netclt80_product, net8a80_product, plus80_product, ocx60_product, jdbc_product);
    }
  else
    {
      /* creq_net_dependency_list = list(ssf21_product, rsf73_product, ocx13_product, netclt23_product, plus33_product); */
      creq_net_dependency_list    = list(ssf60_product, rsf80_product, netclt80_product, net8a80_product, plus80_product, ocx60_product);
    }
  if (evaluate("case_install_net_dependencies",'GLOBAL)) union(creq72_dependency_list,creq_net_dependency_list);
}
['UNBOUND_VARIABLE: creq_net_dependency_list = list();]
{
  if (not(DATAMART_DESIGNER_RELEASE))
    {
      /* creq_dbtool_dependency_list = list(util73_product,util80_product); */
      /* creq_dbtool_dependency_list = list(util80_product); */
      creq_dbtool_dependency_list = list();
    }
  else
    {
      /* creq_dbtool_dependency_list = list(util80_product); */
      creq_dbtool_dependency_list = list();
    }
  if (evaluate("case_install_dbtool_dependencies",'GLOBAL)) union(creq72_dependency_list,creq_dbtool_dependency_list);
}
['UNBOUND_VARIABLE: creq_dbtool_dependency_list = list();]
{
  creq_dev2000_dependency_list = list();
  if (evaluate("case_install_dev2000_runtime_dependencies",'GLOBAL)) union(creq72_dependency_list,creq_dev2000_dependency_list);
}
['UNBOUND_VARIABLE: creq_dev2000_dependency_list = list();]
union(case_dependency_list, list(creq72_product, creq72_dependency_list));

cktl61_dependency_list = list(creq72_product, cgenrx61_product, /* chelp72_product,*/ cmnhlp72_product, cdoc72_product);
if (REPOSITORY_RELEASE) add(cktl61_dependency_list,orepos10_product);
{
  cktl61_dev2000_dependency_list = list(forms60_product, fdes60_product, report60_product, rdes60_product);
  if (evaluate("case_install_dev2000_dependencies",'GLOBAL)) union(cktl61_dependency_list,cktl61_dev2000_dependency_list);
}
['UNBOUND_VARIABLE: cktl61_dev2000_dependency_list = list();]
union(case_dependency_list, list(cktl61_product, cktl61_dependency_list));

repcom61_dependency_list = list(creq72_product, cgenrx61_product, cktl61_product);
if (REPOSITORY_RELEASE) add(repcom61_dependency_list,orepos10_product);
{
  repcom61_dev2000_dependency_list = list(forms60_product, fdes60_product, report60_product, rdes60_product);
  if (evaluate("case_install_dev2000_dependencies",'GLOBAL)) union(repcom61_dependency_list,repcom61_dev2000_dependency_list);
}
['UNBOUND_VARIABLE: repcomn61_dev2000_dependency_list = list();]
union(case_dependency_list, list(repcom61_product, repcom61_dependency_list));

repico61_dependency_list = list();
if (REPOSITORY_RELEASE) add(repico61_dependency_list,orepos10_product);
union(case_dependency_list, list(repico61_product, repico61_dependency_list));

repadm61_dependency_list = list(creq72_product, cktl61_product, repcom61_product, repman61_product, /* chelp72_product,*/ cmnhlp72_product, cdoc72_product);
if (REPOSITORY_RELEASE) add(repadm61_dependency_list,orepos10_product);
union(case_dependency_list, list(repadm61_product, repadm61_dependency_list));

repman61_dependency_list = list(cktl61_product, repcom61_product, rssisa61_product);
if (REPOSITORY_RELEASE) add(repman61_dependency_list,orepos10_product);
union(case_dependency_list, list(repman61_product, repman61_dependency_list));

rssisa61_dependency_list = list(repman61_product);
if (REPOSITORY_RELEASE) add(rssisa61_dependency_list,orepos10_product);
union(case_dependency_list, list(rssisa61_product, rssisa61_dependency_list));

rssisb61_dependency_list = list(repman61_product, rssisa61_product/* , rssisf61_product */);
if (REPOSITORY_RELEASE) add(rssisb61_dependency_list,orepos10_product);
union(case_dependency_list, list(rssisb61_product, rssisb61_dependency_list));

if (false)
{
rssisc61_dependency_list = list(repman61_product, rssisa61_product /*, rssise61_product */);
if (REPOSITORY_RELEASE) add(rssisc61_dependency_list,orepos10_product);
union(case_dependency_list, list(rssisc61_product, rssisc61_dependency_list));
}

if (false)
{
rssisd61_dependency_list = list(repman61_product, rssisa61_product, rssisc61_product);
if (REPOSITORY_RELEASE) add(rssisd61_dependency_list,orepos10_product);
union(case_dependency_list, list(rssisd61_product, rssisd61_dependency_list));
}

if (false)
{
rssise61_dependency_list = list(repman61_product, rssisa61_product);
if (REPOSITORY_RELEASE) add(rssise61_dependency_list,orepos10_product);
union(case_dependency_list, list(rssise61_product, rssise61_dependency_list));
}

if (false)
{
rssisf61_dependency_list = list(repman61_product, rssisa61_product);
if (REPOSITORY_RELEASE) add(rssisf61_dependency_list,orepos10_product);
union(case_dependency_list, list(rssisf61_product, rssisf61_dependency_list));
}

cgenrx61_dependency_list  = list();
if (DESIGNER2000_RELEASE) add(cgenrx61_dependency_list,odes65_product);
{
  cgenrx61_dev2000_dependency_list = list(report60_product);
  if (evaluate("case_install_dev2000_dependencies",'GLOBAL)) union(cgenrx61_dependency_list,cgenrx61_dev2000_dependency_list);
}
['UNBOUND_VARIABLE: cgenrx61_dev2000_dependency_list = list();]
union(case_dependency_list, list(cgenrx61_product, cgenrx61_dependency_list));

  /* reset home variables (in case of cancel in custom mode) */

set("orepos10", "", 'GLOBAL);
set("repos61",  "", 'GLOBAL);
set("creq72",   "", 'GLOBAL);
set("cktl61",   "", 'GLOBAL);
set("repcom61", "", 'GLOBAL);
set("repico61", "", 'GLOBAL);
set("repadm61", "", 'GLOBAL);
set("repman61", "", 'GLOBAL);
set("rssisa61", "", 'GLOBAL);
set("rssisb61", "", 'GLOBAL);
set("rssisc61", "", 'GLOBAL);
set("rssisd61", "", 'GLOBAL);
set("rssise61", "", 'GLOBAL);
set("rssisf61", "", 'GLOBAL);
set("cgenrx61", "", 'GLOBAL);

  /***************************************************
    The Designer/2000 Release
  ***************************************************/

  /***************************************************
    The complete set of Designer/2000 dependencies
    Would be nice if the .prd file gave this on each
    product line.
    c.f. the .rgs file where dependencies are listed
    against the dependent product.
  ***************************************************/

odes65_dependency_list  = list();
/*
   If the user has selected the "Designer Product" product from the custom
   menu then add in all the Designer components as a dependency
   (if the product was selected from the package install then selected_products
   and case_selected_products will contain the installable products)
   Note that this product is a dependency of all the products components
   (and so will be verified/installed) and so should not automatically
   install all the components (unless selected as described).
*/
if ((member(selected_products,odes65_product)) && (bootstrap == FALSE))
  {
    /* could get this list from a package file */
    /* ... but won't...
    pkg_loc = product_location(des2k_product);
    pkg_filename = product_name(des2k_product);
    { execute("%pkg_loc%\%pkg_filename%.pkg"); }
    [ 'FILE_NOT_FOUND: products = list(); ]
    if (not(empty(products)))
      {
      union(odes65_dependency_list,products);
      }
    ... */
    /* ... and will code it here instead */

    /* Help bits */
    /* add(odes65_dependency_list, chelp72_product); */
    add(odes65_dependency_list, cmnhlp72_product);
    add(odes65_dependency_list, deshlp72_product);
    /* add(odes65_dependency_list, bpdhlp72_product); */
    add(odes65_dependency_list, cdoc72_product);
    add(odes65_dependency_list, ctut72_product);

    /* Repository bits are part of Designer package*/
    add(odes65_dependency_list, repos61_product);
    add(odes65_dependency_list, repadm61_product);
    add(odes65_dependency_list, repman61_product);
    add(odes65_dependency_list, rssisa61_product);
    add(odes65_dependency_list, rssisb61_product);
    /* add(odes65_dependency_list, rssisc61_product); */
    /* add(odes65_dependency_list, rssisd61_product); */
    /* add(odes65_dependency_list, rssise61_product); */
    /* add(odes65_dependency_list, rssisf61_product); */
    add(odes65_dependency_list, cktl61_product);
    add(odes65_dependency_list, repcom61_product);
    add(odes65_dependency_list, repico61_product);
    add(odes65_dependency_list, creq72_product);
    add(odes65_dependency_list, cgenrx61_product);
    /* add(odes65_dependency_list, cksr40_product);  */

    /* Designer bits */
    add(odes65_dependency_list, des2_72_product);
    add(odes65_dependency_list, descom61_product);
    add(odes65_dependency_list, desfp61_product);
    add(odes65_dependency_list, rob61_product);
    add(odes65_dependency_list, sysdes61_product);
    add(odes65_dependency_list, cmnde61_product);
    add(odes65_dependency_list, dwfde61_product);
    add(odes65_dependency_list, sysmod61_product);
    add(odes65_dependency_list, cgent61_product);
    add(odes65_dependency_list, pmod61_product);
    add(odes65_dependency_list, cgen72_product);
    add(odes65_dependency_list, cgens72_product);
    add(odes65_dependency_list, cgenw61_product);
    add(odes65_dependency_list, cgenv61_product);
    add(odes65_dependency_list, cgenh61_product);
    add(odes65_dependency_list, cgenf61_product);
    add(odes65_dependency_list, cgenr61_product);
    add(odes65_dependency_list, reprpt61_product);
    add(odes65_dependency_list, ctutx72_product);
    /* add(odes65_dependency_list, cgenp61_product);   */
    /* add(odes65_dependency_list, cgeng61_product);   */
    /* add(odes65_dependency_list, cgenq61_product);   */

  }
union(case_dependency_list, list(odes65_product, odes65_dependency_list));

/*
   If you are installing Designer components from a Designer CD then add
   the Designer Product component as a dependency to all components
*/

des2_72_dependency_list  = list();
if (DESIGNER2000_RELEASE) add(des2_72_dependency_list,odes65_product);
if (distribution) add (des2_72_dependency_list,orainst_product);
union(case_dependency_list, list(des2_72_product, des2_72_dependency_list));

descom61_dependency_list = list(creq72_product, cktl61_product, repcom61_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(descom61_dependency_list,odes65_product);
union(case_dependency_list, list(descom61_product, descom61_dependency_list));

desfp61_dependency_list = list(creq72_product, cktl61_product, repcom61_product, descom61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(desfp61_dependency_list,odes65_product);
union(case_dependency_list, list(desfp61_product, desfp61_dependency_list));

rob61_dependency_list = list();
if (DESIGNER2000_RELEASE) add(rob61_dependency_list,odes65_product);
union(case_dependency_list, list(rob61_product, rob61_dependency_list));

ctutx72_dependency_list = list(creq72_product, desfp61_product, ctut72_product, cgenf61_product);
if (DESIGNER2000_RELEASE) add(ctutx72_dependency_list,odes65_product);
union(case_dependency_list, list(ctutx72_product, ctutx72_dependency_list));

sysmod61_dependency_list = list(creq72_product, cktl61_product, repcom61_product, repadm61_product, descom61_product, desfp61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(sysmod61_dependency_list,odes65_product);
union(case_dependency_list, list(sysmod61_product, sysmod61_dependency_list));

sysdes61_dependency_list = list();
if (DESIGNER2000_RELEASE) add(sysdes61_dependency_list,odes65_product);
union(case_dependency_list, list(sysdes61_product, sysdes61_dependency_list));

cmnde61_dependency_list = list(creq72_product, cktl61_product, repcom61_product, repadm61_product, descom61_product, /* chelp72_product, */ cmnhlp72_product, /* deshlp72_product, */ cdoc72_product);
if (DESIGNER2000_RELEASE) add(cmnde61_dependency_list,odes65_product);
union(case_dependency_list, list(cmnde61_product, cmnde61_dependency_list));

dwfde61_dependency_list = list(desfp61_product, cmnde61_product, deshlp72_product);
if (DESIGNER2000_RELEASE) add(dwfde61_dependency_list,odes65_product);
union(case_dependency_list, list(dwfde61_product, dwfde61_dependency_list));

cgent61_dependency_list = list(creq72_product, cktl61_product, repcom61_product, descom61_product, sysmod61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, desfp61_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(cgent61_dependency_list,odes65_product);
union(case_dependency_list, list(cgent61_product, cgent61_dependency_list));

pmod61_dependency_list   = list(creq72_product, cktl61_product, repcom61_product, descom61_product, desfp61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(pmod61_dependency_list,odes65_product);
union(case_dependency_list, list(pmod61_product, pmod61_dependency_list));

cgen72_dependency_list   = list();
if (DESIGNER2000_RELEASE) add(cgen72_dependency_list,odes65_product);
union(case_dependency_list, list(cgen72_product, cgen72_dependency_list));

cgenf61_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, dwfde61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(cgenf61_dependency_list,odes65_product);
{
  cgenf61_dev2000_dependency_list = list(forms60_product, fdes60_product);
  if (evaluate("case_install_dev2000_dependencies",'GLOBAL)) union(cgenf61_dependency_list,cgenf61_dev2000_dependency_list);
}
['UNBOUND_VARIABLE: cgenf61_dev2000_dependency_list = list();]
union(case_dependency_list, list(cgenf61_product, cgenf61_dependency_list));

cgenr61_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, cgenrx61_product, dwfde61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(cgenr61_dependency_list,odes65_product);
{
cgenr61_dev2000_dependency_list = list(report60_product);
cgenr61_dev2000_builder_dependency_list = list(rdes60_product);
if (evaluate("case_install_dev2000_dependencies",'GLOBAL)) union(cgenr61_dependency_list,cgenr61_dev2000_dependency_list);
if (DATAMART_DESIGNER_RELEASE)
  {
    {
    rdes60_product_parent = product_parent(rdes60_products);
    if (not(rdes_60_product_parent == unused_product))
      {
        union(cgenr61_dependency_list,cgenr61_dev2000_dependency_list);
      }
    }
    ['PARENT_NOT_FOUND: continue();]
  }
}
['UNBOUND_VARIABLE: cgenr61_dev2000_dependency_list = list();]
union(case_dependency_list, list(cgenr61_product, cgenr61_dependency_list));

cgenl61_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, dwfde61_product, cgenf61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(cgenl61_dependency_list,odes65_product);
{
  cgenl61_dev2000_dependency_list = list(forms60_product, fdes60_product);
  if (evaluate("case_install_dev2000_dependencies",'GLOBAL)) union(cgenl61_dependency_list,cgenl61_dev2000_dependency_list);
}
['UNBOUND_VARIABLE: cgenl61_dev2000_dependency_list = list();]
union(case_dependency_list, list(cgenl61_product, cgenl61_dependency_list));

cgenh61_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, dwfde61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(cgenh61_dependency_list,odes65_product);
union(case_dependency_list, list(cgenh61_product, cgenh61_dependency_list));

if (DESIGNER2000_RELEASE)
{
  cgens72_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, dwfde61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
}
else if (OBM_RELEASE)
{
  cgens72_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, dwfdbd61_product, /* chelp72_product, */ cmnhlp72_product, /* deshlp72_product, */ cdoc72_product);
}
else
{
  cgens72_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, dwfde61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
}
if (DESIGNER2000_RELEASE) add(cgens72_dependency_list,odes65_product);
union(case_dependency_list, list(cgens72_product, cgens72_dependency_list));

cgenv61_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, dwfde61_product, cgens72_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(cgenv61_dependency_list,odes65_product);
union(case_dependency_list, list(cgenv61_product, cgenv61_dependency_list));

cgenw61_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, dwfde61_product, cgens72_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(cgenw61_dependency_list,odes65_product);
union(case_dependency_list, list(cgenw61_product, cgenw61_dependency_list));

reprpt61_dependency_list = list(creq72_product, cktl61_product, repcom61_product, repadm61_product, cgenrx61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
if (DESIGNER2000_RELEASE) add(reprpt61_dependency_list,odes65_product);
{
  reprpt61_dev2000_runtime_dependency_list = list(rrun60_product, gui60_product, tutil60_product);
  if (evaluate("case_install_dev2000_runtime_dependencies",'GLOBAL)) union(reprpt61_dependency_list,reprpt61_dev2000_runtime_dependency_list);
}
['UNBOUND_VARIABLE: reprpt61_dev2000_runtime_dependency_list = list();]
{
  if (DATAMART_DESIGNER_RELEASE)
    reprpt61_dev2000_dependency_list = list(rdes60_product);
  else
    reprpt61_dev2000_dependency_list = list();
  if (evaluate("case_install_dev2000_dependencies",'GLOBAL)) union(reprpt61_dependency_list,reprpt61_dev2000_dependency_list);
}
['UNBOUND_VARIABLE: reprpt61_dev2000_dependency_list = list();]
union(case_dependency_list, list(reprpt61_product, reprpt61_dependency_list));

  /* reset home variables (in case of cancel in custom mode) */

set("odes65",   "", 'GLOBAL);
set("des2_72",  "", 'GLOBAL);
set("descom61", "", 'GLOBAL);
set("desfp61", "", 'GLOBAL);
set("rob61", "", 'GLOBAL);
set("ctutx72", "", 'GLOBAL);
set("sysmod61", "", 'GLOBAL);
set("sysdes61", "", 'GLOBAL);
set("cmnde61", "", 'GLOBAL);
set("dwfde61", "", 'GLOBAL);
set("pmod61", "", 'GLOBAL);
set("cgen72", "", 'GLOBAL);
set("cgenf61", "", 'GLOBAL);
set("cgenr61", "", 'GLOBAL);
set("cgenh61", "", 'GLOBAL);
set("cgenl61", "", 'GLOBAL);
set("cgens72", "", 'GLOBAL);
set("cgenv61", "", 'GLOBAL);
set("cgenw61", "", 'GLOBAL);
set("reprpt61", "", 'GLOBAL);

  /***************************************************
    The Designer/2000 Seeded Repository Release
  ***************************************************/

  /***************************************************
    The complete set of Designer/2000 Seeded Repository dependencies
    Would be nice if the .prd file gave this on each
    product line.
    c.f. the .rgs file where dependencies are listed
    against the dependent product.
  ***************************************************/

cksr40_dependency_list   = list();
if (distribution) add (cksr40_dependency_list,orainst_product);
union(case_dependency_list, list(cksr40_product, cksr40_dependency_list));

  /* reset home variables (in case of cancel in custom mode) */

set("cksr40", "", 'GLOBAL);

  /***************************************************
    The complete set of Designer/2000 Broadcast dependencies
    Would be nice if the .prd file gave this on each
    product line.
    c.f. the .rgs file where dependencies are listed
    against the dependent product.
  ***************************************************/

{
desbs61_dependency_list = list(cktl61_product, repcom61_product);
if (distribution) add (desbs61_dependency_list,orainst_product);
{
  /* desbs_net_dependency_list = list(ssf21_product, rsf73_product, netclt23_product); */
  desbs_net_dependency_list = list(ssf60_product, rsf80_product, netclt80_product);
  if (evaluate("case_install_net_dependencies",'GLOBAL)) union(desbs61_dependency_list,desbs_net_dependency_list);
}
['UNBOUND_VARIABLE: desbs_net_dependency_list = list();]
union(case_dependency_list, list(desbs61_product, desbs61_dependency_list));
}
['UNBOUND_VARIABLE: continue(); ]

  /* reset home variables (in case of cancel in custom mode) */

set("desbs61", "", 'GLOBAL);

  /***************************************************
    The Object Database Designer Release
  ***************************************************/

  /***************************************************
    The complete set of Object Database Designer dependencies
    Would be nice if the .prd file gave this on each
    product line.
    c.f. the .rgs file where dependencies are listed
    against the dependent product.
  ***************************************************/

odd61_dependency_list  = list();
union(case_dependency_list, list(odd61_product, odd61_dependency_list));

objmod61_dependency_list  = list(oddreq61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
union(case_dependency_list, list(objmod61_product, objmod61_dependency_list));

att61_dependency_list  = list(oddreq61_product, objmod61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
union(case_dependency_list, list(att61_product, att61_dependency_list));

cgenc61_dependency_list  = list(oddreq61_product, objmod61_product, /* chelp72_product, */ cmnhlp72_product, deshlp72_product, cdoc72_product);
{
  cgenc60_oci_dependency_list = list(oci80_product);
  if (evaluate("case_install_oci_dependencies",'GLOBAL)) union(cgenc60_dependency_list,cgenc60_oci_dependency_list);
}
['UNBOUND_VARIABLE: cgenc60_oci_dependency_list = list();]
union(case_dependency_list, list(cgenc61_product, cgenc61_dependency_list));

cgencb61_dependency_list  = list();
union(case_dependency_list, list(cgencb61_product, cgencb61_dependency_list));

oddrep10_dependency_list   = list(oddrau61_product);
union(case_dependency_list, list(oddrep10_product, oddrep10_dependency_list));

oddreq61_dependency_list   = list(cktl61_product, repcom61_product, descom61_product, repadm61_product, cgens72_product, cmnde61_product, cdoc72_product);
union(case_dependency_list, list(oddreq61_product, oddreq61_dependency_list));

oddrau61_dependency_list   = list(oddreq61_product, repman61_product, rssisa61_product, rssisb61_product);
union(case_dependency_list, list(oddrau61_product, oddrau61_dependency_list));

  /* reset home variables (in case of cancel in custom mode) */

set("odd61", "", 'GLOBAL);
set("objmod61", "", 'GLOBAL);
set("att61", "", 'GLOBAL);
set("cgenc61", "", 'GLOBAL);
set("cgencb61", "", 'GLOBAL);
set("oddrep10", "", 'GLOBAL);
set("oddreq61", "", 'GLOBAL);
set("oddrau61", "", 'GLOBAL);

  /***************************************************
    The BPD Release
  ***************************************************/

  /***************************************************
    The complete set of Oracle Business Process Designer dependencies
    Would be nice if the .prd file gave this on each
    product line.
    c.f. the .rgs file where dependencies are listed
    against the dependent product.
  ***************************************************/

obpd10_dependency_list  = list();
/*
   If the user has selected the "BPD Product" product from the custom
   menu then add in all the BPD components as a dependency
   (if the product was selected from the package install then selected_products
   and case_selected_products will contain the installable products)
   Note that this product is a dependency of all the products components
   (and so will be verified/installed) and so should not automatically
   install all the components (unless selected as described).
*/
if ((member(selected_products,obpd10_product)) && (bootstrap == FALSE))
  {
    /* could get this list from a package file */
    /* ... but won't...
    pkg_loc = product_location(jdee_product);
    pkg_filename = product_name(obm_product);
    { execute("%pkg_loc%\%pkg_filename%.pkg"); }
    [ 'FILE_NOT_FOUND: products = list(); ]
    if (not(empty(products)))
      {
      union(obpd10_dependency_list,products);
      }
    ... */
    /* ... and will code it here instead */

    /* Help bits */
    /* add(obpd10_dependency_list, chelp72_product); */
    add(obpd10_dependency_list, cmnhlp72_product);
    add(obpd10_dependency_list, bpdhlp72_product);
    /* add(obpd10_dependency_list, jhelp72_product); */
    add(obpd10_dependency_list, cdoc72_product);

    /* Repository  bits */
    add(obpd10_dependency_list, repos61_product);
    add(obpd10_dependency_list, repadm61_product);
    add(obpd10_dependency_list, repman61_product);
    add(obpd10_dependency_list, rssisa61_product);
    /* add(obpd10_dependency_list, rssisb61_product); */
    add(obpd10_dependency_list, rssisc61_product);
    add(obpd10_dependency_list, rssisd61_product);
    /* add(obpd10_dependency_list, rssise61_product); */
    /* add(obpd10_dependency_list, rssisf61_product); */
    add(obpd10_dependency_list, cktl61_product);
    add(obpd10_dependency_list, repcom61_product);
    add(obpd10_dependency_list, repico61_product);
    add(obpd10_dependency_list, creq72_product);
    /* add(obpd10_dependency_list, desrep11_product); */

    /* BPD bits */
    add(obpd10_dependency_list, bpdt10_product);

    /* JDEE bits */
    add(obpd10_dependency_list, obm10_product);
    add(obpd10_dependency_list, bmmt65_product);
    /* add(obpd10_dependency_list, repide10_product); */

    /* Designer bits */
    /* none */
  }
union(case_dependency_list, list(obpd10_product, obpd10_dependency_list));

bpdt10_dependency_list = list(bmmt65_product);
if (BPD_RELEASE) add(bpdt10_dependency_list,obpd10_product);
union(case_dependency_list, list(bpdt10_product, bpdt10_dependency_list));

  /* reset home variables (in case of cancel in custom mode) */

set("obpd10",   "", 'GLOBAL);
set("bpdt10",   "", 'GLOBAL);

  /***************************************************
    The OBM Release
  ***************************************************/

  /***************************************************
    The complete set of Oracle Business Modelers dependencies
    Would be nice if the .prd file gave this on each
    product line.
    c.f. the .rgs file where dependencies are listed
    against the dependent product.
  ***************************************************/

jdee30_dependency_list  = list();
/*
   If the user has selected the "JDEE Product" product from the custom
   menu then add in all the JDEE components as a dependency
   (if the product was selected from the package install then selected_products
   and case_selected_products will contain the installable products)
   Note that this product is a dependency of all the products components
   (and so will be verified/installed) and so should not automatically
   install all the components (unless selected as described).
*/
if ((member(selected_products,jdee30_product)) && (bootstrap == FALSE))
  {
    /* could get this list from a package file */
    /* ... but won't...
    pkg_loc = product_location(jdee_product);
    pkg_filename = product_name(obm_product);
    { execute("%pkg_loc%\%pkg_filename%.pkg"); }
    [ 'FILE_NOT_FOUND: products = list(); ]
    if (not(empty(products)))
      {
      union(jdee30_dependency_list,products);
      }
    ... */
    /* ... and will code it here instead */

    /* Help bits */
    /* add(jdee30_dependency_list, chelp72_product); */
    add(jdee30_dependency_list, cmnhlp72_product);
    add(jdee30_dependency_list, jhelp72_product);
    /* add(jdee30_dependency_list, deshlp72_product); */
    add(jdee30_dependency_list, cdoc72_product);

    /* Repository  bits */
    add(jdee30_dependency_list, repos61_product);
    add(jdee30_dependency_list, repadm61_product);
    add(jdee30_dependency_list, repman61_product);
    add(jdee30_dependency_list, rssisa61_product);
    /* add(jdee30_dependency_list, rssisb61_product); */
    add(jdee30_dependency_list, rssisc61_product);
    /* add(jdee30_dependency_list, rssisd61_product); */
    add(jdee30_dependency_list, rssise61_product);
    add(jdee30_dependency_list, rssisf61_product);
    add(jdee30_dependency_list, cktl61_product);
    add(jdee30_dependency_list, repcom61_product);
    add(jdee30_dependency_list, reprem61_product);
    add(jdee30_dependency_list, repico61_product);
    add(jdee30_dependency_list, creq72_product);
    /* add(jdee30_dependency_list, desrep11_product); */

    /* BPD bits */
    /* none */

    /* JDEE bits */
    add(jdee30_dependency_list, obm10_product);
    add(jdee30_dependency_list, repide10_product);
    add(jdee30_dependency_list, bmmt65_product);
    add(jdee30_dependency_list, umlt10_product);
    add(jdee30_dependency_list, dwfdbd61_product);

    /* Designer bits */
    add(jdee30_dependency_list, cmnde61_product);
    add(jdee30_dependency_list, cgens72_product);
    /* add(jdee30_dependency_list, reprpt61_product); */
    /* add(jdee30_dependency_list, sysdes61_product); */
  }
union(case_dependency_list, list(jdee30_product, jdee30_dependency_list));

/*
   If you are installing JDEE components from a JDEE CD then add
   add the JDEE Product component as a dependency to all components
   If you are installing JDEE components from a BPD CD then add
   add the BPD Product component as a dependency to all components
*/

obm10_dependency_list  = list();
if (OBM_RELEASE) add(obm10_dependency_list,jdee30_product);
if (BPD_RELEASE) add(obm10_dependency_list,obpd10_product);
if (distribution) add (obm10_dependency_list,orainst_product);
union(case_dependency_list, list(obm10_product, obm10_dependency_list));

repide10_dependency_list = list(creq72_product, repadm61_product, repman61_product, cmnhlp72_product, jhelp72_product);
if (OBM_RELEASE) add(repide10_dependency_list,jdee30_product);
union(case_dependency_list, list(repide10_product, repide10_dependency_list));

reprem61_dependency_list = list(bmmt65_product, umlt10_product);
if (REPOSITORY_RELEASE) add(reprem61_dependency_list,orepos10_product);
union(case_dependency_list, list(reprem61_product, reprem61_dependency_list));

bmmt65_dependency_list = list(creq72_product, repadm61_product, repman61_product, cmnhlp72_product /*, jhelp72_product*/);
if (OBM_RELEASE) add(bmmt65_dependency_list,jdee30_product);
if (BPD_RELEASE) add(bmmt65_dependency_list,obpd10_product);
union(case_dependency_list, list(bmmt65_product, bmmt65_dependency_list));

umlt10_dependency_list = list(creq72_product, repadm61_product, repman61_product, cmnhlp72_product /*, jhelp72_product*/);
if (OBM_RELEASE) add(umlt10_dependency_list,jdee30_product);
union(case_dependency_list, list(umlt10_product, umlt10_dependency_list));

dwfdbd61_dependency_list = list(creq72_product, repman61_product, cmnde61_product, cmnhlp72_product, jhelp72_product);
if (OBM_RELEASE) add(dwfdbd61_dependency_list,jdee30_product);
union(case_dependency_list, list(dwfdbd61_product, dwfdbd61_dependency_list));

  /* reset home variables (in case of cancel in custom mode) */

set("jdee30",   "", 'GLOBAL);
set("obm10",    "", 'GLOBAL);
set("repide10", "", 'GLOBAL);
set("reprem61", "", 'GLOBAL);
set("bmmt65",   "", 'GLOBAL);
set("umlt10",   "", 'GLOBAL);
set("dwfdbd61", "", 'GLOBAL);

  /***************************************************
    The Designer Help Release
  ***************************************************/

  /***************************************************
    The complete set of Designer Help dependencies
    Would be nice if the .prd file gave this on each
    product line.
    c.f. the .rgs file where dependencies are listed
    against the dependent product.
  ***************************************************/

chelp72_dependency_list  = list();
if (distribution) add (chelp72_dependency_list,orainst_product);
if (DESIGNER2000_RELEASE) add(chelp72_dependency_list,odes65_product);
if (REPOSITORY_RELEASE) add(chelp72_dependency_list,orepos10_product);
if (OBM_RELEASE) add(chelp72_dependency_list,jdee30_product);
if (BPD_RELEASE) add(chelp72_dependency_list,obpd10_product);
union(case_dependency_list, list(chelp72_product, chelp72_dependency_list));

cmnhlp72_dependency_list  = list();
if (DESIGNER2000_RELEASE) add(cmnhlp72_dependency_list,odes65_product);
if (REPOSITORY_RELEASE) add(cmnhlp72_dependency_list,orepos10_product);
if (OBM_RELEASE) add(cmnhlp72_dependency_list,jdee30_product);
if (BPD_RELEASE) add(cmnhlp72_dependency_list,obpd10_product);
union(case_dependency_list, list(cmnhlp72_product, cmnhlp72_dependency_list));

deshlp72_dependency_list  = list(cmnhlp72_product);
if (DESIGNER2000_RELEASE) add(deshlp72_dependency_list,odes65_product);
union(case_dependency_list, list(deshlp72_product, deshlp72_dependency_list));

bpdhlp72_dependency_list  = list(cmnhlp72_product);
if (BPD_RELEASE) add(bpdhlp72_dependency_list,obpd10_product);
union(case_dependency_list, list(bpdhlp72_product, bpdhlp72_dependency_list));

jhelp72_dependency_list  = list(cmnhlp72_product);
if (OBM_RELEASE) add(jhelp72_dependency_list,jdee30_product);
union(case_dependency_list, list(jhelp72_product, jhelp72_dependency_list));

cdoc72_dependency_list  = list();
if (distribution) add (cdoc72_dependency_list,orainst_product);
if (DESIGNER2000_RELEASE) add(cdoc72_dependency_list,odes65_product);
if (REPOSITORY_RELEASE) add(cdoc72_dependency_list,orepos10_product);
if (OBM_RELEASE) add(cdoc72_dependency_list,jdee30_product);
if (BPD_RELEASE) add(cdoc72_dependency_list,obpd10_product);
union(case_dependency_list, list(cdoc72_product, cdoc72_dependency_list));

ctut72_dependency_list   = list();
if (DESIGNER2000_RELEASE) add(ctut72_dependency_list,odes65_product);
/* if (REPOSITORY_RELEASE) add(ctut72_dependency_list,orepos10_product); */
union(case_dependency_list, list(ctut72_product, ctut72_dependency_list));

  /* reset home variables (in case of cancel in custom mode) */

set("chelp72", "", 'GLOBAL);
set("cmnhlp72", "", 'GLOBAL);
set("deshlp72", "", 'GLOBAL);
set("bpdhlp72", "", 'GLOBAL);
set("jhelp72", "", 'GLOBAL);
set("cdoc72", "", 'GLOBAL);
set("ctut72", "", 'GLOBAL);

  /***************************************************
    The Patch Set Release
  ***************************************************/

  /***************************************************
    The complete set of Patch Set dependencies
    Would be nice if the .prd file gave this on each
    product line.
    c.f. the .rgs file where dependencies are listed
    against the dependent product.
  ***************************************************/

despsr70_dependency_list = list();
union(case_dependency_list, list(w32despsr70, despsr70_dependency_list));

bugfix10_dependency_list = list();
union(case_dependency_list, list(w32bugfix10, bugfix10_dependency_list));

  /* reset home variables (in case of cancel in custom mode) */

set("despsr70", "", 'GLOBAL);
set("bugfix10", "", 'GLOBAL);

  /***************************************************
    Obsolete Products
  ***************************************************/

cgeng30_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, dwfde61_product, chelp72_product);
{
  cgeng30_dev2000_dependency_list = list(graph30_product, gdes30_product);
  if (evaluate("case_install_dev2000_dependencies",'GLOBAL)) union(cgeng30_dependency_list,cgeng30_dev2000_dependency_list);
}
['UNBOUND_VARIABLE: cgeng30_dev2000_dependency_list = list();]
union(case_dependency_list, list(cgeng30_product, cgeng30_dependency_list));

cgenp20_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, repadm61_product, dwfde61_product, chelp72_product);
union(case_dependency_list, list(cgenp20_product, cgenp20_dependency_list));

cgenq30_dependency_list  = list(creq72_product, cktl61_product, repcom61_product, descom61_product, dwfde61_product, chelp72_product, cdoc72_product);
union(case_dependency_list, list(cgenq30_product, cgenq30_dependency_list));

odddes20_dependency_list = list();
union(case_dependency_list, list(odddes20_product, odddes20_dependency_list));

cgenca20_dependency_list  = list();
union(case_dependency_list, list(cgenca20_product, cgenca20_dependency_list));

cgencc20_dependency_list  = list();
union(case_dependency_list, list(cgencc20_product, cgencc20_dependency_list));

oddhlp10_dependency_list  = list(cmnhlp72_product);
union(case_dependency_list, list(oddhlp10_product, oddhlp10_dependency_list));

desrep11_dependency_list   = list();
if (distribution) add (desrep11_dependency_list,orainst_product);
union(case_dependency_list, list(desrep11_product, desrep11_dependency_list));

desrep10_dependency_list   = list();
if (distribution) add (desrep10_dependency_list,orainst_product);
union(case_dependency_list, list(desrep10_product, desrep10_dependency_list));

desrep61_dependency_list   = list();
if (distribution) add (desrep61_dependency_list,orainst_product);
union(case_dependency_list, list(desrep61_product, desrep61_dependency_list));

  /* reset home variables (in case of cancel in custom mode) */

set("cgeng30", "", 'GLOBAL);
set("cgenp20", "", 'GLOBAL);
set("cgenq30", "", 'GLOBAL);
set("odddes20", "", 'GLOBAL);
set("cgenca20", "", 'GLOBAL);
set("cgencc20", "", 'GLOBAL);
set("oddhlp10", "", 'GLOBAL);
set("desrep11", "", 'GLOBAL);
set("desrep10", "", 'GLOBAL);
set("desrep61", "", 'GLOBAL);

  /***************************************************
    clear file ownership variables
    (a substitution variable in the subgroup field in each .map file
    that is used to define the source of the file under the dve root)
  ***************************************************/

case_file_ownership_list = list();

add(case_file_ownership_list,"case_al");
add(case_file_ownership_list,"case_aw");
add(case_file_ownership_list,"case_bm");
add(case_file_ownership_list,"case_cdi");
add(case_file_ownership_list,"case_cds");
add(case_file_ownership_list,"case_cdu");
add(case_file_ownership_list,"case_cf");
add(case_file_ownership_list,"case_drsc");
add(case_file_ownership_list,"case_cflpt");
add(case_file_ownership_list,"case_ck");
add(case_file_ownership_list,"case_ckt");
add(case_file_ownership_list,"case_ckrau");
add(case_file_ownership_list,"case_ckrpt");
add(case_file_ownership_list,"case_ckprp");
add(case_file_ownership_list,"case_repsrb");
add(case_file_ownership_list,"case_cksr");
add(case_file_ownership_list,"case_ckutl");
add(case_file_ownership_list,"case_repjava");
add(case_file_ownership_list,"case_common");
add(case_file_ownership_list,"case_cr");
add(case_file_ownership_list,"case_cv");
add(case_file_ownership_list,"case_cw");
add(case_file_ownership_list,"case_cws");
add(case_file_ownership_list,"case_cwz");
add(case_file_ownership_list,"case_cwsctb");
add(case_file_ownership_list,"case_cwbs_solaris");
add(case_file_ownership_list,"case_d2k");
add(case_file_ownership_list,"case_dev2kgen");
add(case_file_ownership_list,"case_do");
add(case_file_ownership_list,"case_dw");
add(case_file_ownership_list,"case_f50");
add(case_file_ownership_list,"case_ga");
add(case_file_ownership_list,"case_gg");
add(case_file_ownership_list,"case_ia");
add(case_file_ownership_list,"case_leg");
add(case_file_ownership_list,"case_model");
add(case_file_ownership_list,"case_nn");
add(case_file_ownership_list,"case_occs");
add(case_file_ownership_list,"case_occspl");
add(case_file_ownership_list,"case_ol");
add(case_file_ownership_list,"case_ol8");
add(case_file_ownership_list,"case_olcpp");
add(case_file_ownership_list,"case_olrm");
add(case_file_ownership_list,"case_pcc");
add(case_file_ownership_list,"case_plsql");
add(case_file_ownership_list,"case_products");
add(case_file_ownership_list,"case_rm");
add(case_file_ownership_list,"case_rmu");
add(case_file_ownership_list,"case_rmpl");
add(case_file_ownership_list,"case_rpc");
add(case_file_ownership_list,"case_rs");
add(case_file_ownership_list,"case_rspl");
add(case_file_ownership_list,"case_sm");
add(case_file_ownership_list,"case_sm2");
add(case_file_ownership_list,"case_sqllib");
add(case_file_ownership_list,"case_sqlnet");
add(case_file_ownership_list,"case_tk");
add(case_file_ownership_list,"case_ut");
add(case_file_ownership_list,"case_wiz");
add(case_file_ownership_list,"case_ide");
add(case_file_ownership_list,"case_jdk");
add(case_file_ownership_list,"case_jrapi");
add(case_file_ownership_list,"case_jfapi");
add(case_file_ownership_list,"case_cmax");
add(case_file_ownership_list,"case_doc");
add(case_file_ownership_list,"case_firstp");
add(case_file_ownership_list,"case_olj");
add(case_file_ownership_list,"case_doj");
add(case_file_ownership_list,"case_smj");
add(case_file_ownership_list,"case_zro");
add(case_file_ownership_list,"case_testing");
add(case_file_ownership_list,"case_unknown");
add(case_file_ownership_list,"case_symbols");
add(case_file_ownership_list,"case_tools");
add(case_file_ownership_list,"case_install");
add(case_file_ownership_list,"case_japanese");
add(case_file_ownership_list,"case_korean");
add(case_file_ownership_list,"case_obsolete");
add(case_file_ownership_list,"case_static");
add(case_file_ownership_list,"case_manual");
add(case_file_ownership_list,"case_stage_process");
add(case_file_ownership_list,"case_rob");

/* still used ?? */
add(case_file_ownership_list,"case_sm8");

while(not(empty(case_file_ownership_list)))
  {
    next_file_ownership_entry = first(case_file_ownership_list);
    case_file_ownership_list = rest(case_file_ownership_list);

    /* set the entry to be blank in the global namespace */
    if (next_file_ownership_entry == "case_symbols")
      {
        set(next_file_ownership_entry, windows_sys_dir, 'GLOBAL);
      }
    else
      {
        set(next_file_ownership_entry, "", 'GLOBAL);
      }

    /* record it in the registry for when the installer engine needs it */
    /* Unfortunately you can not use this api to enter the null string
       as the installer engine uses this value to indicate removal
       of the entry.
       So, add in the values from a .reg file. Do this in the product
       des2_72 and we actually stand a chance of deleting them.
    */
    /* do not need to do this if we use a second .map file (*.mp_)
       which does not contain the case_xxx variables and gets installed
       and renamed instead of installing the usual .map file
    */
    /*...
    modify_key = "HKEY_LOCAL_MACHINE";
    **** modify_subkey = "SOFTWARE\ORACLE"; ****
    modify_subkey = oracle_key;
    modify_variable = next_file_ownership_entry;
    modify_value = "";
    information_dialog("%modify_key%, %modify_subkey%, %modify_variable%, %modify_value%");
    win32_set_value(modify_key, modify_subkey, modify_variable, modify_value);
    ...*/
  }

  /***************************************************
    set case_install_files and case_install_patch_files
    to allow the install to copy files as appropriate
    (see des2_72.vrf/patch_check)
  ***************************************************/

set("case_install_files", TRUE,'GLOBAL);
set("case_install_patch_files", FALSE,'GLOBAL);

  /***************************************************
    Decide what bits of the scripts we are going to execute
  ***************************************************/

/* run configuration in user.shd -
     micosoft DLLs
     winsock 2
     imp/exp install
     tnsnames/local
*/

/* optimisation */
perform_start_vrf    = FALSE;
perform_end_vrf      = FALSE;

  /***************************************************
    debug stuff
  ***************************************************/

/* debug flags */

debug_list = list(
  'DEBUG_VRF,           /* debug entry/exit to all vrf files */
  'DEBUG_INS,           /* debug entry/exit to all ins files */
  'DEBUG_DES2_72        /* debug entry/exit and variables in this script */
  'DEBUG_REPADM61       /* debug entry/exit and variables in this script */
  );
debug_list = list();

/****** End Designer/200, Object Database Designer, Datamart Designer & Mentor Declarations **********/

     return(0);
}