PROC rap$define_ntf (
  status)


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

"   This request defines NTF.
*IFEND


    create_variable command_file k=string v='$local.'//$unique
    create_variable ignore_status k=status
    create_variable local_status k=status


  collect_text $fname(command_file) until='  collect_end'
    $system.osf$command_library.manage_network_applications
      define_client client=osa$network_transfer_fac_client protocol=cdna_session
        change_connection_priority connection_priority=5
        change_maximum_connections mc=20
        change_client_validation sp=true
        change_application_identifier ai=2004
      end_define_client
      activate_client client=osa$network_transfer_fac_client
    quit
  collect_end

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

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

  EXIT_PROC WITH local_status

PROCEND rap$define_ntf
