PROCEDURE install_xtf    (
  status)

  VAR
    ignore_status: status
    local_status: status

    name_base_configuration: name = base_configuration
    name_initial_configuration: name = initial_configuration

    rav$installation_defaults: (XREF) rat$installation_defaults
    rav$installation_environment: (XREF) rat$installation_environment
    rav$subproduct_information: (XREF) rat$subproduct_information

    destination_xtf_file: file
    source_xtf_file: file
    xtf_catalog: file

  VAREND

  xtf_catalog = ..
    rav$subproduct_information.actual_installation_path
  source_xtf_file = xtf_catalog//name_initial_configuration
  destination_xtf_file = xtf_catalog//name_base_configuration


  install_block: ..
    BLOCK

      IF NOT $file(destination_xtf_file permanent) THEN
        $system.put_line l=' Installing '//$string(name_base_configuration) o=$job_log
        install_file f=source_xtf_file t=destination_xtf_file status=local_status
        EXIT install_block WHEN NOT local_status.normal
      IFEND

    BLOCKEND install_block

  EXIT procedure WITH local_status WHEN NOT local_status.normal

PROCEND install_xtf
