PROCEDURE rap$define_nfs_time_servers (
  status: (var) status)

  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$define_tcp_daytime_server status=tcp_daytime_status
    IF NOT tcp_daytime_status.normal THEN
      disv tcp_daytime_status o=$response
    IFEND

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

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

    rap$define_udp_time_server status=udp_time_status
    IF NOT udp_time_status.normal THEN
      disv udp_time_status o=$response
    IFEND

    delcle $system.software_maintenance.raf$library

  ELSE

    EXIT_PROC WITH local_status

  IFEND

PROCEND rap$define_nfs_time_servers
