PROCEDURE deactivate_network_archiving, deana, deanr (
  configuration_file, cf: file = $system.etc.netarc_config
  status)

"   This procedure resides on osf$builtin_library.  The deactivate procs call
"   the deactivate_netarc_server proc which is on the
"   $system.tcp_ip.netarc.command_library.  The deactivate_network_archiving
"   procedure checks to see if network archiving is installed before calling
"   the terminate proc.

VAR
  command_status: status
  network_archiving_library: file = $system.tcp_ip.netarc.command_library
VAREND

IF (NOT $file(network_archiving_library permanent)) THEN
  put_line ('  ', ..
  ' --ERROR-- Unable to deactivate:  Network Archiving is not installed.') ..
      o=$response
  EXIT_PROC
IFEND

network_archiving_library.deactivate_netarc_server ..
  configuration_file=configuration_file ..
  status=command_status
EXIT_PROC WITH command_status WHEN NOT command_status.normal

PROCEND deactivate_network_archiving
