PROCEDURE rap$delete_rlm (
  terminate_active_connections, tac : boolean = false
  status)

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

COLLECT_TEXT output=command_file until='COLLECT_END' sm='%'
  $system.osf$command_library.manage_network_applications

    deactivate_client client=$REMOTE_LINE_MONITOR_CLIENT ..
          terminate_active_connections=%terminate_active_connections% ..
          status=delete_status
    IF delete_status.normal OR ($condition(delete_status.condition) = ..
          'NAE$APPLICATION_ALREADY_INACTIV') THEN
      delete_client client=$REMOTE_LINE_MONITOR_CLIENT status=delete_status
    IFEND
  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
  EXIT_PROC WITH delete_status WHEN NOT delete_status.normal

  put_line line=' $REMOTE_LINE_MONITOR_CLIENT deleted.' ..
    output=$response

PROCEND rap$delete_rlm
