PROC rap$define_qtf (
  status : var of status = $optional
  )


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

"   This request defines and activates the NAM/VE QTF client application.
"   This definition is retained across deadstarts.
*IFEND


  create_variable command_file kind=string value='$local.'//$unique
  create_variable ignore_status kind=status
  create_variable local_status kind=status


COLLECT_TEXT output=$fname(command_file) until='COLLECT_END'
    $system.osf$command_library.manage_network_applications
      define_client client=osa$queue_transfer_client protocol=cdna_session
        change_connection_priority connection_priority=4
        change_maximum_connections maximum_connections=40
        change_client_validation system_privilege=true
        change_application_identifier application_identifier=2006
      end_define_client
      activate_client client=osa$queue_transfer_client
    quit
COLLECT_END

  include_file file=$fname(command_file) status=local_status
  delete_file file=$fname(command_file) status=ignore_status

  EXIT_PROC WITH local_status WHEN NOT local_status.normal

  put_line line=' QTF client application defined for NAM/VE' output=$response

PROCEND rap$define_qtf
