PROC deactivate_ptf (
  status       : var of status = $optional
  )


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

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


  create_variable local_status k=status


  deactivate_system_task task_name=osa$file_transfer_server 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=osa$file_transfer_server status=local_status
  IFEND
  EXIT_PROC WITH local_status WHEN NOT local_status.normal

PROCEND deactivate_ptf

