PROCEDURE deactivate_mail_cluster_server (
  status)

  "$FORMAT=OFF"
  VAR
    application_job_name: name = $name('MAIL_DFS_SRVR'//$mainframe(id))
    select_status: status
    terminate_status: status
  VAREND
  "$FORMAT=ON"

  MANAGE_JOBS
    select_job login_user=$system login_family=$system ..
          name=application_job_name job_state=all status=select_status
    IF select_status.normal THEN
      IF $size(jmv$selected_jobs) > 0 THEN
        WHILE $size(jmv$selected_jobs) > 0 DO
          terminate_job job_name=$first(jmv$selected_jobs) ..
                status=terminate_status
          IF terminate_status.normal THEN
            put_line ' MAILVE '//..
$string($first(jmv$selected_jobs))//' terminated.' o=$response
          ELSE
            display_value $status_message(terminate_status, 80) o=$response
          IFEND
          jmv$selected_jobs = $rest(jmv$selected_jobs)
        WHILEND
      ELSE
        put_line ' MAILVE_CLUSTER_SERVER is not active.' o=$response
      IFEND
    ELSE
      EXIT procedure WITH select_status
    IFEND
  QUIT

PROCEND deactivate_mail_cluster_server
