PROCEDURE rap$define_nqs (
  maximum_connections, mc: integer = 40
  status)

*IF $variable(rav$proc_doc,declared)<>'UNKNOWN'

"    This request defines the nam application name for the nqs server
"    application.
"
*IFEND

  VAR
    command_file     : file =$unique($local)
    ignore_status    : status
    local_status     : status
  VAREND

COLLECT_TEXT command_file until='COLLECT_END'
  $system.osf$command_library.manage_network_applications
    define_tcpip_application application=osa$nqs_server protocol=stream_socket
      change_maximum_sockets maximum_sockets=maximum_connections
      change_tcpip_validation ring=6
    quit
    activate_tcpip_application application=osa$nqs_server
  quit
COLLECT_END

  include_file command_file status=local_status
  delete_file command_file status=ignore_status

  IF local_status.normal THEN
    put_line ' NQS server application is defined' o=$response
  IFEND

  EXIT procedure WITH local_status WHEN NOT local_status.normal

PROCEND rap$define_nqs

