PROCEDURE activate_network_archiving, actna, actnr (
  configuration_file, cf: file = $system.etc.netarc_config
  debug, d: boolean = FALSE
  debug_options, do: list of key all, none, keyend = none
  status)

"   This procedure resides on osf$builtin_library.  The start procs which are
"   called by this procedure reside on $system.tcp_ip.netarc.command_library.
"   This procedure checks to see that Network_Archiving is installed before
"   the  start proc is called.

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 activate:  Network Archiving is not installed.')..
 o=$response
    EXIT_PROC
  IFEND

network_archiving_library.start_Network_Archiving ..
    cf=configuration_file ..
    d=debug ..
    do=debug_options ..
    status=command_status
EXIT_PROC WITH command_status WHEN NOT command_status.normal

PROCEND activate_network_archiving
