RE: Is a certain PGM/JOB running?

The link Alan gave is ideal for many of the DB2 for i Services. That list
will also tell you at which release, or ptf, the service either arrived,
and/or was enhanced.

There are also numerous other system catalog entries available at
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_73/db2/rbafzcatalog.htm

select count(*)
from table(active_job_info( JOB_NAME_FILTER => 'ADMIN')) x;

I have three jobs named ADMIN and several other ADMINx jobs in my QHTTPSVR
subsystem. This returned the number 3.
You could also code it as
select
case
when count(*) > 0 then '1'
else '0'
end as JobActive
from table(active_job_info( JOB_NAME_FILTER => 'ADMIN')) x;


This other service will NOT show a lock on a program just because it is in
a call stack.
select
system_object_schema, system_object_name,object_type, job_name
from qsys2.object_lock_info
where system_object_name = 'QZHBMAIN';




Rob Berendt