PROC rap$define_drje (
  status)


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

"   This request defines DRJE.
*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$drje_device_outcall protocol=cdna_virtual_terminal
        change_application_identifier application_identifier=variable
        change_maximum_connections maximum_connections=300
        change_connection_priority connection_priority=4
        change_client_validation capability=ntf_operation ring=13 ..
            system_privilege=FALSE
      end_define_client save_definition=TRUE
      activate_client osa$drje_device_outcall
    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 ' DRJE application is defined' o=$response
  IFEND

  EXIT_PROC WITH local_status

PROCEND rap$define_drje
