PROCEDURE rap$delete_nqs (
  terminate_active_connections, tac: boolean = false
  status)

  VAR
    delete_status    : status
  VAREND

  $system.osf$command_library.manage_network_applications

    deactivate_tcpip_application application=osa$nqs_server tas=terminate_active_connections ..
          status=delete_status
    IF delete_status.normal OR (delete_status.condition = 'NAE$APPLICATION_ALREADY_INACTIV') THEN
      delete_tcpip_application application=osa$nqs_server status=delete_status
    IFEND

    IF delete_status.normal OR (delete_status.condition = 'NAE$UNKNOWN_APPLICATION') THEN
      delete_status.normal = true
    IFEND

  QUIT

  EXIT procedure WITH delete_status

PROCEND rap$delete_nqs
