PROCEDURE activate_portmap, actp (
  debug, d: boolean = FALSE
  debug_options, do: any of
      key
        all, none
      keyend
      list of key
        (internal_errors, ie)
        (ipam_errors, ipe)
        (restart_portmap, rp)
      keyend
    anyend = none
  epilog, e: file = nfd$epilog, $system.tcp_ip.onc.epilog
  status)

"   This procedure is under NOS/VE code control because it resides
"   on osf$builtin_library.  The NFS products are under CDCNET
"   code control.  To minimize the number of times a mod is required
"   to both NOS/VE and CDCNET the activate procs call corresponding
"   start procs passing all the parameters.  The start procs reside on
"   onc.command_library which is under CDCNET code control.

  VAR
    nfd$epilog: (push) string = $string(epilog)
    tcp_ip: file = nfd$tcp_ip, $system.tcp_ip
  VAREND

  tcp_ip.onc.command_library.start_portmap debug=debug debug_options=debug_options

PROCEND activate_portmap
