PROCEDURE deactivate_scf (
  status)

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

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

  VAR
    local_status : status
  VAREND

  MANAGE_JOBS
    select_job name=$name('scf'//$mainframe(id)) job_state=(deferred, queued, initiated) ..
          user_information='Status and Control Facility (SCF) 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 'SCF'//$mainframe(id))
    IFEND
  QUIT

  EXIT_PROC WITH local_status

PROCEND deactivate_scf
