PROCEDURE deactivate_nqs (
  status)


  VAR
    local_status: status
  VAREND

  MANAGE_JOBS
    select_job name=network_queueing_system_client job_state=(deferred, queued, initiated) ..
          user_information='Network Queueing System (NQS) 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 'NQS')
    IFEND
  QUIT

  EXIT_PROC WITH local_status

PROCEND deactivate_nqs
