PROCEDURE create_installation_environment, creie (
  status)

  VAR
    command_table: file = $unique($Local)
    ignore_status: status
  VAREND


$system.collect_text o=command_table
  command n=(change_config_file_access, chacfa) p=rap$change_config_file_access
  command n=(create_default_family, credf) p=rap$create_default_family
  command n=(create_dmroot_user_name, credun) p=rap$create_dmroot_user_name
  command n=(create_profile_for_upgrade, crepfu) p=rap$create_profile_for_upgrade
  command n=(create_scheduling_class, create_scheduling_classes, cresc) ..
          p=rap$create_scheduling_class
  IF $file($system.archive_ve catalog) THEN
    command n=(copy_processor_job_files,coppjf) p=rap$copy_processor_job_files
    command n=(update_sysfiles_for_archive,updsfa) p=rap$update_sysfiles_for_archive
  IFEND
  IF $file($system.nqs catalog) THEN
    command n=(install_nqs, insn) p=rap$install_nqs
  IFEND
  command n=(quit, qui) p=rap$quit_creie
TABLEND
**


  UTILITY n=create_installation_environment p='creie' ..
    l=$system.software_maintenance.raf$library ..
    t=command_table

    $system.delete_file f=command_table status=ignore_status
    $system.include_file f=$command_of_caller u=$utility(name)

  UTILITYEND

PROCEND create_installation_environment

