PROCEDURE deactivate_ftam_responder, deafr (
  status)

  "$FORMAT=OFF"
  VAR
    responder_user_job_name: name = $name('FTAM'//$mainframe(id))
    local_status: status
  VAREND
  "$FORMAT=ON"

  IF NOT $job_validation(system_operation) THEN
    EXIT procedure WITH $status(false, 'RA', 0, 'FTAM/VE can only be deactivated by a system operator.')
  IFEND

  MANAGE_JOBS
    select_jobs name=responder_user_job_name job_state=all 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, responder_user_job_name)
    IFEND
  QUIT

  EXIT procedure WITH local_status

PROCEND deactivate_ftam_responder
