How do you manage your job queues? Do you have caps on the maximum active jobs? Here's a technique for studying this topic....

job queue closing in on max active jobs.sql

-- Resources:
-- https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_74/rzajq/rzajqudfactivejobinfo.htm
-- https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_74/rzajq/rzajqviewjobqueueinfo.htm

-- Review job queues, from a percent of capacity consumed perspective
select maximum_active_jobs,
       active_jobs,
       dec(dec(active_jobs, 19, 2) / dec(maximum_active_jobs, 19, 2), 19, 2) as jobq_percent_consumed, 
       job_queue_name, job_queue_library, job_queue_status, number_of_jobs,
       subsystem_name, subsystem_library_name, sequence_number,  held_jobs, released_jobs, scheduled_jobs, text_description,
       operator_controlled
  from qsys2.job_queue_info
  where active_jobs is not null and maximum_active_jobs > 0
  order by dec(dec(active_jobs, 19, 2) / dec(maximum_active_jobs, 19, 2), 19, 2) desc;


-- Review job queues that are over 75% capacity full
with busy_jqs (jql, jq, sbs) as (
    select job_queue_library, job_queue_name, subsystem_name
      from qsys2.job_queue_info
      where active_jobs is not null
            and maximum_active_jobs > 0
            and dec(dec(active_jobs, 19, 2) / dec(maximum_active_jobs, 19, 2), 19, 2) > 0.75
      order by dec(dec(active_jobs, 19, 2) / dec(maximum_active_jobs, 19, 2), 19, 2) desc)
  select busy_jqs.*, z.*
    from busy_jqs, lateral (
           select *
             from table (
                 qsys2.active_job_info(
                   subsystem_list_filter => sbs, detailed_info => 'ALL')
               )
             where job_queue_library = jql
                   and job_queue = jq
         ) z;