PROCEDURE install_debug (
  status)


  VAR
    local_status: status

    debug_bound_product: file
    name_bound_product: name = bound_product

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

  install_block: ..
    BLOCK

      debug_bound_product = ..
        rav$subproduct_information.actual_installation_path//name_bound_product
      $system.put_line l=' Installing Debug ...' o=$job_log
      $system.change_file_attributes debug_bound_product ..
        fp=debugger status=local_status
      EXIT install_block WHEN NOT local_status.normal

    BLOCKEND install_block

  EXIT procedure WITH local_status WHEN NOT local_status.normal

PROCEND install_debug
