PROCEDURE deactivate_cartridge_library, deacl (
  status)

  "$FORMAT=OFF"
  VAR
    job_name: name
    selected_jobs: list 0..$max_list of name
  VAREND
  "$FORMAT=ON"

  job_name = $name('$5744_interface_'//$substring($mainframe(id),9,9))
  manage_jobs
    select_job ..
      login_family=$system login_user=$system name=job_name job_selection_list=selected_jobs
    qui
  IF $size(selected_jobs)=0 THEN
    display_value '--ERROR-- $5744_interface job is UNKNOWN'
  ELSE
    terminate_job job_name=job_name
  IFEND

PROCEND deactivate_cartridge_library
