PROCEDURE rap$define_rlm (
  status)

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

COLLECT_TEXT output=command_file until='COLLECT_END'
    $system.osf$command_library.manage_network_applications
      define_client client=$REMOTE_LINE_MONITOR_CLIENT ..
            protocol=cdna_session
        change_connection_priority connection_priority=5
        change_maximum_connections maximum_connections=40
        change_client_validation system_privilege=FALSE
        change_application_identifier application_identifier=VARIABLE
      end_define_client
      activate_client client=$REMOTE_LINE_MONITOR_CLIENT
    quit
COLLECT_END

  include_file file=command_file status=local_status
  delete_file file=command_file status=ignore_status

  EXIT_PROC WITH local_status WHEN NOT local_status.normal

  put_line line=' $REMOTE_LINE_MONITOR_CLIENT defined and activated.' ..
    output=$response

PROCEND rap$define_rlm
