PROC operator_display_manager, opedm(status)

  create_variable (proc_status ignore_status) kind=status
  define_system_task name=operator_display_manager sp=ofp$system_display_manager ..
        automatic_restart=TRUE deactivate_task_option=prohibited idle_task_option=ignore ..
        restart_after_idle=TRUE l=osf$task_services_library ..
        tel=warning lm=$null lmo=none dm=off status=proc_status
  IF NOT proc_status.normal THEN
    IF $condition(proc_status.condition) <> 'OSE$SYSTEM_TASK_ALREADY_DEFINED' THEN
      EXIT_PROC WITH proc_status
    IFEND
  IFEND
  deactivate_system_task task_name=operator_display_manager status=ignore_status
  ignore_status = $task_status(operator_display_manager)

  activate_system_task task_name=operator_display_manager
  display_message to=job m=' ----  Operator Display Manager (OPEDM) started.'

PROCEND operator_display_manager
