PROCEDURE deactivate_xtf (
  status)

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

"   This request terminates the XTF job.

*IFEND

  "$FORMAT=OFF"
  VAR
    application_job_name: name = $name('XTF'//$mainframe(id))
    local_status: status
    selected_job: name
  VAREND
  "$FORMAT=ON"

  MANAGE_JOBS
    select_jobs name=application_job_name job_state=all status=local_status
    IF local_status.normal AND ($size(jmv$selected_jobs) > 0) THEN
      FOR EACH selected_job in jmv$selected_jobs DO
        terminate_job name=selected_job status=local_status
        IF local_status.normal THEN
          put_line line=' XTF '//$string(selected_job)//' terminated.' o=$response
        ELSE
          put_line line=' XTF '//$string(selected_job//' could not be terminated.' o=$response
        IFEND
      FOREND
    ELSE
      local_status = $status(false, 'JM', jme$job_not_found, application_job_name)
      put_line ' XTF is not active.' o=$response
    IFEND
  QUIT

  EXIT procedure WITH local_status

PROCEND deactivate_xtf
