PROC rap$define_btf (
  status)


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

"   This request defines BTF.
*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$batch_transfer_client protocol=cdna_session
        change_connection_priority cp=2
        change_maximum_connections mc=20
        change_client_validation sp=true
      end_define_client
      activate_client client=osa$batch_transfer_client
    quit
  collect_end

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

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

  EXIT_PROC WITH local_status

PROCEND rap$define_btf
