PROCEDURE deactivate_btfs (
  status)

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

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

  VAR
    local_status: status
  VAREND


  MANAGE_JOBS
    select_job name=$name('btfs'//$mainframe(id)) job_state=(deferred, queued, initiated) ..
          user_information='Batch Transfer Facility Server (BTFS) for NOS/VE' status=local_status
    IF local_status.normal AND ($size(jmv$selected_jobs) > 0) THEN
      terminate_job names=jmv$selected_jobs status=local_status
    ELSE
      local_status = $status(false 'JM' jme$job_not_found 'BTFS'//$mainframe(id))
    IFEND
  QUIT

  EXIT_PROC WITH local_status

PROCEND deactivate_btfs
