PROC terminate_system_logs (
  status : var of status = $optional
  )


*IF $variable(rav$proc_doc,declared)<>'UNKNOWN'

" This is one of several procedures created to simplify the installation process.
" These procedures are kept in the OSF$SITE_COMMAND_LIBRARY and therefore will
" receive minimal support.
"
" The purpose of this procedure is to terminate the system logs prior to performing
" an  upgrade.  This procedure is called out in the upgrade chapter of the SRB.
*IFEND


  create_variable proc_status k=status

  WHEN any_fault DO
    put_line $strrep(osv$status) o=$response
    proc_status = osv$status
  WHENEND

  terminate_log t=account
  terminate_log t=engineering
  deactivate_history_log
  terminate_log t=history
  terminate_log t=statistic
  terminate_log t=system

  EXIT_PROC WITH proc_status WHEN NOT proc_status.normal

PROCEND terminate_system_logs
