PROC deactivate_scfs (
  system_task_name, stn : name = $optional
  status                : var of status = $optional
  )


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

"    This request deactivates and deletes the SCFS system task.
*IFEND


  create_variable local_status k=status


  system_task_name = 'scf_server'
  IF $specified(system_task_name) THEN
    system_task_name = $string($value(system_task_name))
  IFEND

  deactivate_system_task task_name=$name(system_task_name) status=local_status
  IF local_status.normal OR ($condition(local_status.condition) =   ..
        'OSE$SYSTEM_TASK_NOT_ACTIVE') THEN
    wait time=2000
    delete_system_task name=$name(system_task_name) status=local_status
  IFEND
  EXIT_PROC WITH local_status WHEN NOT local_status.normal

PROCEND deactivate_scfs

