PROCEDURE rap$delete_nfs_time_servers (
  terminate_active_connections, tac : boolean = false
  status                            : (var) status = $optional )

  create_variable tcp_daytime_status kind=status
  create_variable tcp_time_status    kind=status
  create_variable udp_daytime_status kind=status
  create_variable udp_time_status    kind=status
  create_variable local_status       kind=status

  crecle $system.software_maintenance.raf$library status=local_status

  IF local_status.normal THEN

    rap$delete_tcp_daytime_server tac=tac  status=tcp_daytime_status
    IF NOT tcp_daytime_status.normal THEN
      disv tcp_daytime_status o=$response
    IFEND

    rap$delete_tcp_time_server tac=tac  status=tcp_time_status
    IF NOT tcp_time_status.normal THEN
      disv tcp_time_status o=$response
    IFEND

    rap$delete_udp_daytime_server tac=tac  status=udp_daytime_status
    IF NOT udp_daytime_status.normal THEN
      disv udp_daytime_status o=$response
    IFEND

    rap$delete_udp_time_server tac=tac  status=udp_time_status
    IF NOT udp_time_status.normal THEN
      disv udp_time_status o=$reponse
    IFEND

    delcle $system.software_maintenance.raf$library

  ELSE

    EXIT_PROC WITH local_status

  IFEND

PROCEND rap$delete_nfs_time_servers


