PROCEDURE (HIDDEN) rap$activate_namve (
  status)


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

" PURPOSE:
"   This procedure activates NAM/VE.
*IFEND


*copy rav$margin

  "$FORMAT=OFF
  VAR
    ignore_status: status
    local_status: status
  VAREND
  "$FORMAT=ON"


  rap$display_message mm=initiation_messages mn=activating_namve m=rav$margin t=$response status=ignore_status


activate_configuration: ..
  BLOCK

    define_system_task name=namve_system_input_task, sp=nap$system_input_task automatic_restart=true ..
          deactivate_task_option=terminate, idle_task_option=ignore tel=warning lm=$null lmo=none dm=off ..
          status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ALREADY_DEFINED' THEN
      EXIT activate_configuration
    IFEND

    define_system_task name=namve_completed_output_task, sp=nap$completed_output_task, ..
          automatic_restart=true deactivate_task_option=terminate idle_task_option=ignore tel=warning ..
          lm=$null lmo=none dm=off status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ALREADY_DEFINED' THEN
      EXIT activate_configuration
    IFEND

    define_system_task name=namve_directory_me sp=nlp$directory_manager automatic_restart=true ..
          deactivate_task_option=terminate idle_task_option=ignore tel=warning lm=$null lmo=none dm=off ..
          status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ALREADY_DEFINED' THEN
      EXIT activate_configuration
    IFEND

    define_system_task name=namve_timer_monitor sp=nlp$monitor_timers automatic_restart=true ..
          deactivate_task_option=terminate idle_task_option=ignore tel=warning lm=$null lmo=none dm=off ..
          status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ALREADY_DEFINED' THEN
      EXIT activate_configuration
    IFEND

    define_system_task name=namve_connection_establisher sp=nap$connection_establish_task ..
          automatic_restart=true deactivate_task_option=terminate idle_task_option=ignore tel=warning ..
          lm=$null lmo=none dm=off status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ALREADY_DEFINED' THEN
      EXIT activate_configuration
    IFEND

    define_system_task name=namve_poll_connections_task sp=nap$am_poll_connections automatic_restart=true ..
          deactivate_task_option=terminate idle_task_option=ignore tel=warning lm=$null lmo=none dm=off ..
          status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ALREADY_DEFINED' THEN
      EXIT activate_configuration
    IFEND

    define_system_task name=intranet_layer_mgmt_task sp=nap$manage_intranet_layer automatic_restart=true ..
          deactivate_task_option=terminate idle_task_option=ignore tel=warning lm=$null lmo=none dm=off ..
          status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ALREADY_DEFINED' THEN
      EXIT activate_configuration
    IFEND

    execute_task sp=nap$initialize_networks tel=warning lm=$null lmo=none dm=off status=local_status
    IF NOT local_status.normal THEN
      IF $condition(local_status.condition) = 'NAE$INITIALIZATION_WARNING' THEN
        put_line $strrep(local_status) o=$response
      ELSE
        EXIT activate_configuration
      IFEND
    IFEND

    activate_system_task task_name=intranet_layer_mgmt_task status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ACTIVE' THEN
      EXIT activate_configuration
    IFEND

    activate_system_task task_name=namve_system_input_task status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ACTIVE' THEN
      EXIT activate_configuration
    IFEND

    activate_system_task task_name=namve_completed_output_task status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ACTIVE' THEN
      EXIT activate_configuration
    IFEND

    activate_system_task task_name=namve_directory_me status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ACTIVE' THEN
      EXIT activate_configuration
    IFEND

    activate_system_task task_name=namve_timer_monitor status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ACTIVE' THEN
      EXIT activate_configuration
    IFEND

    activate_system_task task_name=namve_connection_establisher status=local_status
    IF NOT local_status.normal AND $condition(local_status.condition) <> 'OSE$SYSTEM_TASK_ACTIVE' THEN
      EXIT activate_configuration
    IFEND

    activate_system_task task_name=namve_poll_connections_task status=local_status

  BLOCKEND activate_configuration

  IF local_status.normal OR ($condition(local_status.condition) = 'OSE$SYSTEM_TASK_ACTIVE') THEN
    rap$display_message mm=initiation_messages mn=namve_activated m=rav$margin t=$response ..
          status=ignore_status
  ELSE
    EXIT procedure WITH local_status
  IFEND

PROCEND rap$activate_namve
